Hoe kopieer je gegevens naar de volgende lege rij van een ander werkblad in Excel?

Stel dat je bepaalde gegevens in het bereik A1:E1 van Werkblad1 wilt kopiëren en snel wilt plakken in de volgende lege rij van Werkblad2 in een werkboek, zoals in onderstaande schermafbeelding te zien is. Wat kun je doen om dit eenvoudig te bereiken? Dit artikel introduceert een VBA-methode voor je.

Kopieer gegevens naar de volgende lege rij van een ander werkblad met VBA-code

Kopieer gegevens naar de volgende lege rij van een ander werkblad met VBA-code

Je kunt de onderstaande VBA-code uitvoeren om gegevens in een bepaald werkblad te kopiëren en automatisch te plakken in de volgende lege rij van een ander werkblad.

1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: kopieer gegevens naar de volgende lege rij van een ander werkblad

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

Opmerking: In de code is Werkblad2 het doelwerkblad voor de gekopieerde gegevens. Je kunt dit aanpassen op basis van je behoefte.

3. Druk op de F5-toets om de code uit te voeren. Selecteer in het pop-upvenster van Kutools voor Excel het bereik dat je wilt kopiëren naar de volgende lege rij van Werkblad2 en klik vervolgens op de OK-knop. Zie onderstaande schermafbeelding:

De gekopieerde gegevens van Werkblad1 worden dan onmiddellijk geplakt in de volgende lege rij van Werkblad2, zoals te zien is in onderstaande schermafbeelding.