VBA Rij invoegen

Het invoegen van een rij in VBA is enigszins anders dan het invoegen van een kolom in VBA, in kolommen hebben we de volledige kolommethode gebruikt, maar om rijen in te voegen, gebruiken we de werkbladmethode met de invoegopdracht om een ​​rij in te voegen, we bieden ook een rijverwijzing waar we willen invoegen een andere rij vergelijkbaar met de kolommen.

Rij invoegen met VBA Excel

We kunnen bijna alle acties uitvoeren die we doen in Excel met VBA-codering. We kunnen kopiëren, we kunnen plakken, we kunnen verwijderen en we kunnen nog veel meer dingen doen via VBA-taal. "Rij invoegen" is een van die methoden die we vaak in Excel gebruiken. In dit artikel laten we u zien hoe u de methode rij invoegen in VBA uitvoert.

Hoe rij in Excel VBA invoegen?

Hieronder staan ​​de verschillende methoden om VBA te gebruiken om een ​​rij in Excel in te voegen.

Methode # 1 - De invoegmethode gebruiken

Om in VBA een rij in te voegen, moeten we een vergelijkbare techniek gebruiken die we in het Excel-werkblad hebben gebruikt. In VBA moeten we het bereikobject gebruiken om de rij in te voegen.

Kijk bijvoorbeeld naar de onderstaande code.

Code:

 Sub InsertRow_Example1 () Bereik ("A1"). Insert End Sub 

Deze code gaat door de cel A1 naar de B1 en voegt de enige cel in.

Dit veroorzaakt zoveel problemen bij het omgaan met de gegevens. Hierdoor wordt de genoemde cel gewoon naar beneden verplaatst en blijven alle andere bijbehorende kolommen hetzelfde.

Methode # 2 - Gehele rij-eigenschap gebruiken

Bovenste invoegrij kunnen we eigenlijk verschillende methoden gebruiken. Met de onderstaande methode wordt de hele rij boven de geselecteerde cel ingevoegd.

Stap 1: vermeld eerst het celadres .

Code:

Sub InsertRow_Example2 () Bereik ("A1"). Einde Sub

Stap 2: Selecteer in plaats van alleen de eigenschap " Gehele rij " te gebruiken.

Code:

Sub InsertRow_Example2 () Bereik ("A1"). Gehele rij. Einde Sub

Stap 3: Gebruik na het openen van de volledige rij-eigenschap de invoegmethode .

Code:

 Sub InsertRow_Example2 () Bereik ("A1"). Gehele rij.Insert End Sub 

Hierdoor wordt de rij boven de cel A1 ingevoegd. Aangezien A1 de eerste rij is, gaat deze door de A1-cel naar B1.

Zoals je kunt in de bovenstaande afbeelding, moet het de hele rij invoegen, niet de enkele cel.

Methode # 3 - Rijnummers gebruiken

In het bovenstaande voorbeeld hebben we zojuist het eencellige adres gebruikt en de rij ingevoegd. We kunnen ze echter ook invoegen door rijnummers te gebruiken.

Stel dat u een rij onder de 5e rij wilt invoegen, dan moeten we eerst de rijnummers vermelden met het RANGE-object.

Code:

Sub InsertRow_Example3 () Bereik ("6: 6"). Einde Sub

Omdat we de hele rij hebben genoemd als 6: 6, moeten we de eigenschap Gehele rij hier gebruiken, we kunnen rechtstreeks de "INSERT" -methode gebruiken.

Code:

 Sub InsertRow_Example3 () Bereik ("6: 6"). End Sub invoegen 

Hiermee wordt ook de hele rij ingevoegd, niet de enkele cel.

Als u twee rijen onder de 5e rij wilt invoegen, moeten we eerst 2 rijen selecteren en vervolgens de INSERT-methode gebruiken.

 Sub InsertRow_Example3 () Bereik ("6: 7"). End Sub invoegen 

Hiermee worden twee rijen onder de 5e rij ingevoegd.

Op deze manier kunnen we zoveel mogelijk rijen in het werkblad invoegen.

Methode # 4 - Actieve celeigenschap gebruiken

We kunnen de Active Cell VBA-eigenschap gebruiken om rijen in te voegen. De actieve cel is niets anders dan een momenteel geselecteerde cel.

Stel dat u zich in cel B5 bevindt en u wilt een rij erboven invoegen, dan kunt u de actieve celeigenschap gebruiken.

 Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub 

Hierdoor wordt de rij boven de actieve cel ingevoegd.

Methode # 5 - Actieve celeigenschap gebruiken met offset-functie

Stel dat u een rij wilt invoegen na 2 rijen van de actieve cel, we moeten de functie Offset gebruiken om het aantal rijen te compenseren.

Stel dat u zich in cel B5 bevindt.

Als u de rij na de 2e rij van de actieve cel wilt invoegen, kunnen we de onderstaande code gebruiken.

Code:

 Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub 

Hiermee wordt een rij ingevoegd na de 6e rij.

Voeg alternatieve rijen in

Het invoegen van alternatieve rijen ben ik vaak tegengekomen. Kijk voor de onderstaande gegevensafbeelding.

Nu moeten we alternatieve rijen invoegen. We moeten lussen gebruiken om elke alternatieve rij in te voegen.

Code:

 Sub InsertRow_Example6 () Dim K As Integer Dim X As Integer X = 1 Voor K = 1 tot 4 cellen (X, 1) .EntireRow.Insert X = X + 2 Volgende K End Sub 

Dit zal rijen als volgt invoegen.

U kunt deze VBA Insert Row Excel hier downloaden. VBA Rij Excel-sjabloon invoegen