|
1学分
大神们,帮忙写一个拆分程序呗,或者帮我修改下程序,谢谢
我自己现有程序实现不了;
Sub splitting()
startRow = 2
endrow = ActiveSheet.Range("A65535").End(xlUp).Row
i = startRow
rowx = 1
Do While i <= endrow
nameQty = UBound(Split(Cells(i, 2), "、", , vbTextCompare)) + 1
For j = 1 To nameQty
Cells(rowx + 1, 4).Value = Split(Cells(i, 2), "、", , vbTextCompare)(j - 1)
Cells(rowx + 1, 3).Value = Cells(i, 1).Value
rowx = rowx + 1
Next
rowx = rowx - 1
i = i + 1
Loop
End Sub
|
最佳答案
查看完整内容
Sub tt()
Dim arr(), last_row As Long, brr()
Application.DisplayAlerts = False
irow = 3
With Sheet1
last_row = .Cells(Rows.Count, 2).End(3).Row
arr = .Range("a3:b" & last_row).Value
ReDim brr(1 To UBound(arr) * 100, 1 To 2)
End With
For i = 1 To UBound(arr)
arrtemp = Split(arr(i, 2), "、")
For j = 0 To UBound(arrtemp)
...
|