Changbanana

¦^´_ 2# ­ã´£³¡ªL

¨Ï¥Î±zªþ¤Wªºµ{¦¡½X

1. Sub TEST()
   
2. TT = Split([A1], "/")
   
3. [A2].Resize(, UBound(TT) + 1) = TT
   
4. End Sub

½Æ»s¥N½X

­YA1Àx¦s®æ¬°:1111123/1111223/1111553/1111663
µ²ªG¦bA2§e²{¾îªº:1111123         1111223        1111553        1111663 (¦A¦P¤@¦æ)

­Yµ²ªG·Q­nª½ªº¦A¦P¤@Äæ
¸Ó«ç»ò­×§ï©O?
µ²ªG·Q§e²{
1111123
1111223
1111553
1111663

Changbanana

¦^´_ 5# Kubi


ÁÂÁ§Aªº¼ö¤ß¬Û§U ¦ý¬O¨S¦³¦^µª¨ì°ÝÃD­C~~

´ú¸Õ¹L«áÅܦ¨­È³£¦b¦P¤@­ÓÀx¦s®æ¤¤

µ²ªG¬O»Ý­n¦A¦P¤@Äæ ¤]´N¬O»¡A2:A5»Ý§e²{
1111123
1111223
1111553
1111663

Changbanana

¦^´_ 7# ML089


  WOW~
  ­ì¨ÓÂà¸m¬O³o¼Ë¥Î
  ¤§«e¤@ª½§âApplication.Transpose¥´¦A³Ì«e­±³£¤@ª½¥X²{¿ù»~
  ÁÂÁ§A~°ÝÃD¸Ñ¨M¤F