dechiuan999

¦^´_ 1# eric093


    ±z¦n¡G
½Ð¸Õ¸Õ¤U¦C»y
Sub aa()   
    Dim mSht As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim mSplit   
    Set mSht = ActiveSheet
    With mSht
        Set mRng1 = .Range("a1", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1
            mSplit = Split(mRng.Value, "-")
            mRng.Offset(, 1).Value = mSplit(0) & mSplit(2)
        Next
    End With        
End Sub