Hoe macro te gebruiken om rij onder tabel in Excel in te voegen?
Het is gebruikelijk dat we lege rijen toevoegen onder aan een opgegeven tabel om de tabel uit te vouwen en nieuwe inhoud toe te voegen. In dit artikel wordt gesproken over het gebruik van een macro om een nieuwe rij onder een opgegeven tabel in te voegen en de formule van de bovenstaande cel in Excel te behouden.
Gebruik macro om rij onder tabel in Excel in te voegen
Gebruik macro om rij onder tabel in Excel in te voegen
Ga als volgt te werk om een lege rij onder een opgegeven tabel met macro in te voegen.
1. druk de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, klik dan Invoegen > Module om het modulevenster te openen. Kopieer en plak vervolgens de onderstaande VBA-code in het venster.
VBA-code: gebruik 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 Sub
3. druk de F5 sleutel om de code uit te voeren. En een Kutools for Excel dialoogvenster verschijnt, selecteer het bepaalde tabelbereik waarin u hieronder een lege rij wilt toevoegen en klik vervolgens op de OK knop. Zie screenshot:
Vervolgens kunt u zien dat er een nieuwe lege rij is toegevoegd onder aan de opgegeven tabel. En de formule in de bovenstaande cel is ook gereserveerd in de nieuw ingevoegde rij, zoals hieronder zie screenshot:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!