[µo°Ý] ¸ê®Æ¤À³Î

vinejason

·PÁÂiamaraymond §gÀ°¦£±Nºô­¶¸ê®Æ¸ü¤U¨Ó
§Ú¸ÕµÛ±N¸ê®Æ¤ÀÃþ¹J¨ì¤@­Ó§xÃø
¦A¦¸½Ð±Ð¦U¦ì¥ý¶i
§â¤º®e²¤¶©M§@ªÌ²¤¶¤À¦¨2Äæ
Book1.rar (6.48 KB)

¸ê®Æ¤À³Î
¤U¸ü¦¸¼Æ: 11

2018-5-29 16:49

rph

1¡BÂI¿ï"¸ê®Æ",¦A¿ï"¸ê®Æ­åªR"
2¡B¿ï"©T©w¼e«×"
3¡B¦A±N¤À³Î½u²¾¦Ü­n¤À³Î¦ì¸m«á¡AÂI¿ï"§¹¦¨"§Y¥i

vinejason

1¡BÂI¿ï"¸ê®Æ",¦A¿ï"¸ê®Æ­åªR"
2¡B¿ï"©T©w¼e«×"
3¡B¦A±N¤À³Î½u²¾¦Ü­n¤À³Î¦ì¸m«á¡AÂI¿ï"§¹¦¨"§Y¥i
rph µoªí©ó 2018-5-29 17:29

³o­Ó¤èªk§Ú¸Õ¹L¤£¦æ®@ !
¦]¬°¸ê®Æ¶q¬ù¦³¤W¤dµ§
¦Ó¥B¨C­Ó¸ê®Æªøµu¤£¤@
¦]¦¹µLªk¨Ï¥Î¸ê®Æ³¡ªR¶i¦æ¤À³Î

quickfixer

1. Sub test()
   
2.     Cells(1, 2) = Split(Cells(1, 1), "¡i§@ªÌ²¤¶¡j")(0)
   
3.     Cells(1, 3) = "¡i§@ªÌ²¤¶¡j" & Chr(13) & Split(Cells(1, 1), "¡i§@ªÌ²¤¶¡j")(1)
   
4. End Sub

½Æ»s¥N½X

ikboy

1. Sub zz()
   
2. Dim s$, sp$, b(), ar, n&
   
3. sp = "¡i"
   
4. ar = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).Value
   
5. ReDim b(1 To UBound(ar) * 2, 1 To 1)
   
6. For i = 1 To UBound(ar)
   
7.     a = Split(ar(i, 1), sp)
   
8.     For ii = 1 To UBound(a)
   
9.         n = n + 1
   
10.         b(n, 1) = sp & a(ii)
    
11.     Next
    
12. Next
    
13. [b1].Resize(n) = b
    
14. End Sub

½Æ»s¥N½X

vinejason

¦^´_ 5# ikboy

¦]¬°±z­Ì±o¥H«e¶i¤@¤j¨B
¤j¤jªº·P®¦
¯¬ºÖ±z­Ì¤Z¨Æ´I¨¬ ÆF»î¿³²±

hcm19522

http://blog.xuite.net/hcm19522/twblog/582836161