¡m½Ð±Ð¡nÃö©ó¦r¦ê§ì¨ú

eric093

½Ð°Ý¦U¦ì¡A¦pªG¨Ì¤U­z¦r¦ê¡]³¡¥÷¦r¦ê¤¤¥i¯à·|¦³¼Æ¦r¡^¡]§O³æ¦ìµ¹ªº­ì©l¸ê®Æ¡^
§Ú·Q¥u§ì¥X¯S©w¸ê®Æ¡Avbaªºµ{¦¡¸Ó¦p¦ó¤U¤â¡H


·Q§ì¥Xªº¸ê®Æ
353345643²Î¤@ª«¬y
353869043·s¦Ëª«¬y¤½¥q
358475043¦v°t³q·s¦Ë¯¸
353345643¦v°t³q·s¦Ë¯¸4


­ì©l¸ê®Æ¦p¤U
353345643-b1-²Î¤@ª«¬y-131119.jpg^353345643-b2-²Î¤@ª«¬y-131119.jpg
353869043-b1-·s¦Ëª«¬y¤½¥q-131119.jpg^353869043-b2-·s¦Ëª«¬y¤½¥q-131119.jpg
358475043-b1-¦v°t³q·s¦Ë¯¸-131119.jpg^358475043-b2-°t³q·s¦Ë¯¸-131119.jpg
358455043-b1-¦v°t³q·s¦Ë¯¸4-131119.jpg^358455043-b2-°t³q·s¦Ë¯¸4-131119.jpg

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

sunnyso

¦^´_ 1# eric093
¤@©w­n¥ÎVBA¶Ü? ¨ç¼Æ¤]¥i¥H§ì¥X¨Ó®@.

eric093

¦^´_ 2# dechiuan999


    «D±`·PÁ¡A§Ú¦A¨Ó¬ã¨s¤@¤U¸Ì­±ªºµ{¦¡½X¡I
   ·P®¦¡I

eric093

¦^´_ 3# sunnyso


    ·PÁ¡I§Ú·Q¥Îvbaªº­ì¦]¬O¨C¤Ñ³£·|°µ³o°Ê§@¡A©Ò¥H¡A·Q¼g­Ó¥¨¶°¡I

ML089

¦^´_ 1# eric093


Sub ex()
    For Each A In [A1].Resize([A65536].End(xlUp).Row)
        S = Split(A, "-")
        A.Offset(, 1) = S(0) & S(2)
    Next
End Sub