Wie kopiert man bestimmte Spalten von einem Blatt und fügt sie in ein anderes Blatt in einem anderen Bereich ein?

Question

Ich bin ein Anfänger und ich habe diesen Code unten, aber dies kopiert nur die letzte Zeile von Blatt und Pasten in Blatt 2 Bereich. Grundsätzlich wird die leere Zeile nicht aktualisiert. Und wirft auch Laufzeitfehler 1004 - Anwendung definiert oder Objekt definiert Fehler. Jede Hilfe würde sehr geschätzt werden.

Sub copypaste() 
Dim lastrow As Long, erow As Long 

lastrow = ThisWorkbook.Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row 
For i = 2 To lastrow 

Sheet1.Cells(i, 3).Copy 
erow = ThisWorkbook.Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 
Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow, 2) 
Sheet1.Cells(i, 14).Copy 
Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow, 4) 
Sheet1.Cells(i, 6).Copy 
Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow, 3) 

Next i 

Application.CutCopyMode = False 
ThisWorkbook.Worksheets("sheet2").Columns().AutoFit 
Range("A1").Select 

End Sub 

Können sagen, dieses Blatt ist 1 sheet 1

und das ist sheet2: sheet2:

Wo die Header etwas anders sind bei der Benennung und es gibt auch eine Positionsänderung. Und die letzte Reihe in Blatt 1 ist abwechslungsreich.

Answer 1

Versuchen Sie dies, immer besser zu vermeiden, kopieren und einfügen.

Sub copypaste() 
Dim lastrow As Integer, erow As Integer, sheet1 As Worksheet, sheet2 As Worksheet 

Set sheet1 = Worksheets("Sheet1") 
Set sheet2 = Worksheets("Sheet2") 
lastrow = sheet1.Cells(Rows.Count, 1).End(xlUp).Row 

For i = 2 To lastrow 
    erow = sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row 
    sheet2.Cells(erow, 2) = sheet1.Cells(i, 3) 
    sheet2.Cells(erow, 3) = sheet1.Cells(i, 6) 
    sheet2.Cells(erow, 4) = sheet1.Cells(i, 14) 
Next i 

'ThisWorkbook.Worksheets("Sheet2").Columns().AutoFit 
'sheet1.Cells(1, 1).Activate 
End Sub