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 SubOpmerking: 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.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen