- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 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 |
|