|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 自动换行新增()
Dim i%, s%, k%, m%, arr, brr
arr = Sheet1.Range("a1").CurrentRegion
m = Sheet2.Cells(Rows.Count, 1).End(3).Row
For i = 2 To UBound(arr)
If arr(i, 3) <> "" Then
arr_split = Split(arr(i, 3), ",")
For s = 0 To UBound(arr_split)
k = k + 1
Sheet2.Cells(m + k, 1) = arr(i, 1)
Sheet2.Cells(m + k, 2) = arr_split(s)
Sheet2.Cells(m + k, 3) = arr(i, 4)
Sheet2.Cells(m + k, 4) = arr(i, 5)
Sheet2.Cells(m + k, 5) = arr(i, 6)
Next
End If
Next
End Sub |
|