使用VBA将列从一个表复制到另一个表（使用循环）
我试图从工作表1中复制列，并将其粘贴到工作表2中，特别是工作表2中的下一个空列（以便我不覆盖数据）。 总的来说，我需要复制3-81列。
这是我到目前为止的代码：
Dim col As Integer For i = 3 To 81 Worksheets("Sheet1").Columns(i).Copy Destination:=Sheets("Sheet 2").Column(i). 由于我在复制和粘贴下一个列之前对每个粘贴的列应用了一个函数，所以我不能简单地将列表中的列作为列（i），因为它只会覆盖最后一列计算的数据。
我怎样才能改变目的地，使我没有这个问题？
这个问题已经被问了很多次，但是我无法find我的解决scheme，因为我似乎是唯一一个使用循环，并指定col作为我。
Dim i As Long, j As Long j = 3 For i = 3 To 81 Worksheets("Sheet1").Columns(i).Copy _ Destination:=Sheets("Sheet 2").Columns(j) j = j + 2 Next i