Hoe gebruikt u een macro om een rij onder een tabel in Excel in te voegen, inclusief de bijbehorende formules?
Het komt vaak voor dat we lege rijen aan de onderkant van een bestaande tabel toevoegen om deze uit te breiden met nieuwe inhoud. In dit artikel leest u hoe u met een macro eenvoudig een nieuwe rij onder een opgegeven tabel in Excel kunt invoegen, inclusief de formule uit de cel erboven.
Gebruik een macro om een rij onder een tabel in Excel in te voegen
Gebruik een macro om een rij onder een tabel in Excel in te voegen
Voer de volgende stappen uit om met een macro een lege rij onder een opgegeven tabel in te voegen.
1. Druk tegelijkertijd op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module om het modulevenster te openen. Kopieer en plak vervolgens de onderstaande VBA-code in dit venster.
VBA-code: gebruik een macro om een Lege rij onder een opgegeven tabel in te voegen
Sub AddRows()
'Updated by Extendoffice 2017/9/12
Dim xLastRow As Long
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xLastRow = xRg.Row + xRg.Rows.Count
xRg.Rows(xLastRow).FillDown
xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub3. Druk op de toets F5 om de code uit te voeren. Er verschijnt een Kutools voor Excel-dialoogvenster waarin u het bereik van de betreffende tabel selecteert waaronder u een lege rij wilt invoegen; klik daarna op de knop OK. Zie screenshot:
U ziet nu dat er een nieuwe lege rij aan de onderkant van de opgegeven tabel is toegevoegd, compleet met de formule uit de cel erboven — precies zoals te zien in de onderstaande screenshot:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins