ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ vinejason ©ó 2018-5-29 17:03 ½s¿è

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

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 5# ikboy

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

TOP

  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

TOP

  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

TOP

¥»©«³Ì«á¥Ñ vinejason ©ó 2018-5-29 22:54 ½s¿è
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¦æ¤À³Î
µL¤îºÉªº§V¤O¤W¶i

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD