[µo°Ý] ©î¥X¼Æ¦r«á¦Û°Ê©¹¤U´¡¦C¨Ã¶ñº¡

shuo1125

¦U¦ì«e½ú¦n!
½Ð°Ý¦³¿ìªkÅýBÄæ+¸¹¤ÀÂ÷«á¼Æ¦r©¹¤U´¡¦C¨Ã¶ñº¡¶Ü(¦p¦PªþÀɳo¼Ë)¡A
°²³]B2=2+3+4+5¡A ¥ÎSplit¥i¥H¤ÀÂ÷+¸¹¡A¦ý¦pªG­n¦bB2±N¼Æ¦r©¹¤U´¡¦C¨Ã¶ñº¡¡A
¨Ã¥B¹J¨ìªÅ®æ©Î¨ä¥L¤£°Ê§@¡A¥u­pºâ¦³+¸¹ªº¸ê®Æ
³o¼Ë¤£ª¾¹D«ç¼g¤ñ¸û¦n...
¨D§U¦U¦ìÀ°¦£¸Ñµª¡A
ÁÂÁ¤j®a¡C

jcchiang

¦^´_ 1# shuo1125

¸Õ¸Õ¬Ý
Sub ex()
Dim a As Variant, x As Variant, y%
For Each a In Range([b2], [b65535].End(3))
If a <> "" Then
   x = Split(a, "+")
   [F2].Offset(y).Resize(UBound(x) + 1) = Application.Transpose(x)
   y = y + UBound(x) + 1
Else
   y = y + 1
End If
Next
End Sub

hcm19522

https://blog.xuite.net/hcm19522/twblog/589642825

shuo1125

¦^´_ 2# jcchiang
·PÁÂJ¤j¡A¥i¥H¥Î!
§Ú¦b²z¸Ñ¤@¤Uµ{¦¡½X
¦³®É­Ô³æÀ´¥Î³BÅÞ¿è¤]¤£¨£±o¼g±o¥X¨Ó....
¤£ª¾¹D¦³¨S¦³¤°»ò¬ÛÃö®ÑÄy¤Îª¾ÃÑ¥i¥H¼W¥[¦Û¤vÅÞ¿è½s¼gªº¯à¤O
¯u¬O¨ØªA¦Ü·¥!!

shuo1125

¦^´_ 2# jcchiang
J¤j ¤£¦n·N«ä·Q¦b½Ð°Ý¤@¤U
¦pªG§Ú·Q§â©î¥Xªº¼Æ¦r¡Aª½±µ¦bEÄæ¦V¤U´¡¦C¶ñº¡(¦V¶À¼Ð¨º¼Ë)
½Ð°Ý¥ÎInsert­n«ç»ò§ï¼g...
¥i¥H¦A³Â·Ð«ü¾É¤@¤U¶Ü
ÁÂÁÂ!!

shuo1125

¦^´_ 3# hcm19522
¤£¦n·N«ä ¤ñ¸û°¾¦V¼g¦bVB
¤]ÁÂÁ§A~

jcchiang

¦^´_ 5# shuo1125

Sub ex1()
Dim a%, x As Variant
a = 2
Do While Cells(a, 2) <> "" Or Cells(a, 5) <> ""
   x = Split(Cells(a, 5), "+")  
   If UBound(x) > 0 Then     '§PÂ_¼Æ­È²Õ¼Æ
      Rows(a).Offset(1).Resize(UBound(x)).Insert
      Cells(a, 5).Resize(UBound(x) + 1) = Application.Transpose(x)
      a = a + UBound(x)
   End If
a = a + 1
Loop
End Sub

shuo1125

¦^´_ 7# jcchiang
·PÁÂJ¤j
§¹¥þ²Å¦X»Ý¨D!!