如何用vba拆分EXCEL某列单元格内容并复制其他单元格内容?
发布网友
共2个回答
热心网友
测试通过的程序代码如下图：
Option Explicit
Sub 拆分C列()
Dim arr1, arr2(1 To 1000, 1 To 5), i1%, i2%, j%, t
arr1 = ActiveSheet.UsedRange
For i1 = 1 To UBound(arr1)
For Each t In Split(arr1(i1, 3), Chr(10))
i2 = i2 + 1
For j = 1 To 5
arr2(i2, j) = arr1(i1, j)
Next j
arr2(i2, 3) = t
Next t
Next i1
With ActiveSheet.Range("a1").Resize(i2, 5)
.Select
.Value = arr2
End With
End Sub
热心网友
复制其他列内容？
这个是什么意思？
你应该再做个效果图出来。
WPS编程还得另外安装VBA插件，才支持编程。
