- ©«¤l
- 561
- ¥DÃD
- 160
- ºëµØ
- 0
- ¿n¤À
- 725
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-7
|
DEAR ALL ¤j¤j
¤w§ä¨ì¸Ñµª¦p¤U THANKS*10000
Sub ¥ú¸n»áªR()
Sheet27.Select
Sheet27.[C2:AZ65536].ClearContents
On Error Resume Next
T2 = Split([B2], ";")
[C2].Resize(, UBound(T2) + 1) = T2
End Sub |
|