Kopieren Spalte von einem Blatt zu einem anderen mit VBA (mit Schleife)

Question

Ich versuche, Spalten aus Blatt 1 zu kopieren und fügen Sie sie in Blatt 2, insbesondere in der nächsten leeren Spalte auf Blatt 2 (so dass ich keine Daten überschreiben). Insgesamt muss ich die Spalten 3-81 kopieren.

Hier ist der Code Ich habe bisher:

Dim col As Integer 

For i = 3 To 81 
Worksheets("Sheet1").Columns(i).Copy Destination:=Sheets("Sheet 2").Column(i). 

Da ich eine Funktion zu jedem eingefügten Spalte vor dem Kopieren und Einfügen der nächsten anwenden, kann ich einfach nicht das Ziel als Spalte (i) bezeichnen, weil es überschreibt einfach die letzte Spalte der berechneten Daten.

Wie kann ich das Ziel ändern, damit ich dieses Problem nicht habe?

Diese Frage wurde schon oft gestellt, aber ich kann meine Lösung nicht finden, da ich der Einzige zu sein scheint, der eine Schleife benutzt und col als i zuweist.

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