使用excel VBA 复制一个工作表中指定的列中的数据，粘贴到另一个工作表的指定列的最下方。

Question

1. 需要提取的原始工作表中列的数据并不连续，比如，需要复制原始工作表中的第1列，第5列、第8列...另外因为第一行是标题行，所以不需要提取。需要提取第二行以下的数据
2. 因为需要粘贴的另一个工作表已有数据，所以要把复制的数据粘贴到目标工作表指定列的最下方未使用的第一个单元格。
批定列也不连续，比如把已复制的目标工作表中的第1列，粘贴到目标工作表中的第2列最下方；把原始表第5列，粘到目标表的第6列；把原始表第8列，粘到目标表第7列......

非常感谢各位老师...

Answer 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

Answer 2

把表发我邮箱，举例说清楚目的与要求，[email protected]