Wie kopiert man Daten in die nächste leere Zeile eines anderen Arbeitsblatts in Excel?

Angenommen, Sie möchten bestimmte Daten im Bereich A1:E1 von Arbeitsblatt1 kopieren und schnell in die nächste leere Zeile von Arbeitsblatt2 in einer Arbeitsmappe einfügen, wie im folgenden Screenshot gezeigt. Was können Sie tun, um dies einfach zu erreichen? Dieser Artikel stellt eine VBA-Methode vor.

Daten mit VBA-Code in die nächste leere Zeile eines anderen Arbeitsblatts kopieren

Daten mit VBA-Code in die nächste leere Zeile eines anderen Arbeitsblatts kopieren

Sie können den folgenden VBA-Code ausführen, um Daten in einem bestimmten Arbeitsblatt zu kopieren und automatisch in die nächste leere Zeile eines anderen Arbeitsblatts einzufügen.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.

VBA-Code: Daten in die nächste leere Zeile eines anderen Arbeitsblatts kopieren

Private Sub CommandButton1_Click()
    Dim xScreenUpdating As Boolean
    Dim xPasteSht As Worksheet
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xPasteSht = Worksheets("Sheet2")
    xScreenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xRg.Copy
    xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = xScreenUpdating
End Sub

Hinweis: Im Code ist Arbeitsblatt2 das Zielarbeitsblatt für die kopierten Daten. Sie können es bei Bedarf ändern.

3. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld Kutools für Excel den Bereich aus, den Sie in die nächste leere Zeile von Arbeitsblatt2 kopieren möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

Die kopierten Daten aus Arbeitsblatt1 werden dann sofort in die nächste leere Zeile von Arbeitsblatt2 eingefügt, wie im folgenden Screenshot gezeigt.