excel vba 重复复制数据的值 粘贴到另一个新建SHEET表中

2025-03-18 18:05:36
推荐回答(1个)
回答1:

Sub test()
Dim s, t
Dim i As Integer
Dim rs As Integer
s = Array(1, 5, 8)
t = Array(2, 6, 7)
Sheets("目标表").Select
With Sheets("原始表")
For i = 0 To UBound(s)
rs = .Cells(65536, s(i)).End(xlUp).Row - 1
Cells(65536, t(i)).End(xlUp).Offset(1, 0).Resize(rs, 1).Value = .Cells(2, s(i)).Resize(rs, 1).Value
Next
End With
End Sub