excel vba midªº¥Îªk

lionliu

¦U¦ì¤j­ô§Ú·Q½Ð°Ýmid¬O§_¦³¶i¶¥ªº¥Îªk¡A½d¨Ò¦p¤U

              A                                         B                  C                   D
1      AC@2345@DFG            AC                 2345             DFG
2     AD@ 12@ERT                  AD                  12                 ERT
3    AXC@1 @ GH                   AXC               1                    GH
§Ú·Q±NAÄæÂà´«¦¨ B ¡B C¡BD

lionliu

¦^´_ 3# no3-taco
ÁÂÁÂ2¦ì¤j­ôªº¦^ÂСA¥Ø«e¥Îno3¤j­Óªº¤èªk¸û¤è«K¡C

no3-taco

mid¦³¨ç¼Æ ©M ³¯­z¦¡ ¨âºØ¥Îªk

§A³o­Ó¥Îsplit¤ñ¸û¦n
¤U­±µ¹§A°Ñ¦Ò¡A½Ð¤p¤ß¨Ï¥Î¡A­×§ï«á¨S¿ìªk´_­ì

Sub test()
Dim a, i, j
For i = 1 To 3
    a = Split(Cells(i, 1), "@")
    For j = 0 To UBound(a)
        Cells(i, j + 2) = a(j)
    Next j
Next i
End Sub

rouber590324

¥Î  ¸ê®Æ­åªR  ´N OK ªü