Hoe meerdere rijen in te voegen met vba

U kunt de volgende methoden gebruiken om meerdere rijen in Excel in te voegen met VBA:

Methode 1: rijen in een specifiek bereik invoegen

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

Deze specifieke macro voegt drie lege rijen in het bereik 5 tot 7 van het blad met de naam Blad1 in en verplaatst alle bestaande rijen naar beneden.

Methode 2: Rijen invoegen op basis van een actieve cel

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

Deze specifieke macro voegt drie lege rijen in, beginnend bij de cel die u momenteel in uw werkblad hebt geselecteerd, en verplaatst zich naar alle bestaande rijen.

De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken met het volgende spreadsheet in Excel:

Voorbeeld 1: rijen in een specifiek bereik invoegen

We kunnen de volgende macro maken om drie lege rijen in te voegen in het bereik 5 tot 7 van het blad met de naam Blad1 en alle bestaande rijen naar beneden te verplaatsen:

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat er drie lege rijen in het werkblad zijn ingevoegd op rijlocaties 5 tot en met 7 .

De waarden die voorheen in deze lijnen bestonden, zijn simpelweg verlaagd.

Voorbeeld 2: rijen invoegen op basis van een actieve cel

Laten we zeggen dat cel A3 momenteel is geselecteerd in mijn spreadsheet.

We kunnen de volgende macro maken om drie lege rijen in het werkblad in te voegen, beginnend bij de momenteel geselecteerde cel:

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat er drie lege rijen in het werkblad zijn ingevoegd, beginnend bij rij 3.

De waarden die voorheen in deze rijen bestonden, zijn verlaagd.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: hoe u de laatst gebruikte regel kunt vinden
VBA: het aantal rijen binnen bereik tellen
VBA: het aantal gebruikte kolommen tellen