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, we kunnen eigenlijk verschillende methoden gebruiken. Met de onderstaande methode wordt de hele rij boven de geselecteerde cel ingevoegd.
Stap 1: noem 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 de invoegmethode nadat u de volledige rij-eigenschap hebt geopend .
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 wilt een rij onder de 5 voegen ste rij. Eerst moeten we de rijnummers vermelden met behulp van het RANGE-object.
Code:
Sub InsertRow_Example3 () Bereik ("6: 6"). Einde Sub
Omdat we de hele rij als 6: 6 hebben genoemd, moeten we de eigenschap Gehele rij hier gebruiken. We kunnen direct 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.
In het geval als u twee rijen onder de 5 voegen ste rij, moeten we 2 rijen eerst selecteren en vervolgens gebruik maken van de INSERT methode.
Sub InsertRow_Example3 () Bereik ("6: 7"). End Sub invoegen
Dit zal twee rijen onder de 5 voegen ste rij.
Op deze manier kunnen we zoveel mogelijk rijen in het werkblad invoegen.
Methode # 4 - Actieve celeigenschap gebruiken
We kunnen de eigenschap Active Cell VBA 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, dan moeten we de functie Offset gebruiken om het aantal rijen te compenseren.
Stel dat u zich in cel B5 bevindt.
Als je de rij na de 2 e rij van de actieve cel wilt invoegen , dan kunnen we de onderstaande code gebruiken.
Code:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
Dit rij in te voegen na 6 ste 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 op deze manier invoegen.
U kunt deze VBA Insert Row Excel hier downloaden. VBA Rij Excel-sjabloon invoegen
