VBA（ループ付き）を使用して1つのシートから別のシートに列をコピー

Question

シート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）と目的地を示すことができないことので計算されたデータの最後の列を単に上書きします。

この問題が発生しないように宛先を変更するにはどうすればよいですか？

この質問は以前は何度も聞かれましたが、ループを使用してcolをiとして割り当てる唯一の方法だと思われるため、私の解を見つけることができません。

Answer 1

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