Wie kopiere ich Daten in die nächste leere Zeile eines anderen Arbeitsblatts in Excel?
Angenommen, Sie möchten bestimmte Daten im Bereich A1: E1 von Sheet1 kopieren und schnell in die nächste leere Zeile von Sheet2 in einer Arbeitsmappe einfügen (siehe Abbildung unten). Was können Sie tun, um dies zu erreichen? In diesem Artikel wird eine VBA-Methode für Sie vorgestellt.
Kopieren Sie die Daten mit VBA-Code in die nächste leere Zeile eines anderen Arbeitsblatts
Kopieren Sie die Daten mit VBA-Code in die nächste leere Zeile eines anderen Arbeitsblatts
Sie können den folgenden VBA-Code ausführen, um Daten in ein bestimmtes Blatt zu kopieren und automatisch in die nächste leere Zeile eines anderen Arbeitsblatts einzufügen.
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Kopieren Sie die Daten in die nächste leere Zeile eines anderen Arbeitsblatts
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
Note: Im Code ist Sheet2 das Zielarbeitsblatt der kopierten Daten. Sie können es je nach Bedarf ändern.
3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes beim Auftauchen Kutools for Excel Wählen Sie im Dialogfeld den Bereich aus, den Sie in die nächste leere Zeile von Sheet2 kopieren möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
Dann werden die kopierten Daten von Sheet1 sofort in die nächste leere Zeile des spezifischen Sheet2 eingefügt, wie im folgenden Screenshot gezeigt:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!