VBA indsæt række (eksempel, kode) | Top 5 Excel VBA-metode til at indsætte række

Indsættelse af en række i VBA er noget forskellig fra at indsætte en kolonne i VBA, i kolonner brugte vi hele kolonnemetoden, men for at indsætte rækker bruger vi regnearkmetode med indsætningskommandoen for at indsætte en række, vi giver også en rækkehenvisning, hvor vi vil indsætte en anden række svarende til kolonnerne.

Indsæt række med VBA Excel

Vi kan udføre næsten alle de handlinger, vi udfører i excel med VBA-kodning. Vi kan kopiere, vi kan indsætte, vi kan slette, og vi kan gøre mange flere ting gennem VBA-sprog. "Indsættelse af række" er en af ​​sådanne metoder, som vi ofte gør i Excel. I denne artikel vil vi vise dig, hvordan du udfører metoden indsæt række i VBA.

Sådan indsættes række i Excel VBA?

Nedenfor er de forskellige metoder til brug af VBA til at indsætte en række i Excel.

Metode nr. 1 - Brug af indsætningsmetoden

I VBA for at indsætte en række skal vi bruge en lignende teknik, som vi har brugt i Excel-regneark. I VBA skal vi bruge intervalobjektet til at indsætte rækken.

Se f.eks. Nedenstående kode.

Kode:

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

Denne kode bevæger sig ned ad cellen A1 til B1 og indsætter den eneste celle.

Dette vil medføre så mange problemer med hensyn til håndtering af data. Dette vil bare flytte den nævnte celle ned, og alle de andre tilknyttede kolonner forbliver de samme.

Metode nr. 2 - Brug af hele rækkeegenskaben

Øverste indsæt række, vi kan faktisk bruge flere metoder. Nedenstående metode indsætter hele rækken over den valgte celle.

Trin 1: Nævn først celleadressen .

Kode:

Sub InsertRow_Example2 () Range ("A1"). Afslut sub

Trin 2: I stedet for bare at bruge vælg egenskaben " Hele række ".

Kode:

Sub InsertRow_Example2 () Range ("A1"). EntireRow. Afslut sub

Trin 3: Brug adgangsmetoden efter adgang til hele rækkeegenskaben .

Kode:

 Sub InsertRow_Example2 () Range ("A1"). EntireRow.Insert End Sub 

Dette indsætter rækken over cellen A1. Da A1 er den første række, flyttes den ned ad A1-cellen til B1.

Som du kan i ovenstående billede skal den indsætte hele rækken, ikke den eneste celle.

Metode nr. 3 - Brug af rækkenumre

I eksemplet ovenfor har vi netop brugt enkeltcelle-adressen og indsat rækken. Vi kan dog også indsætte dem ved hjælp af række numre.

Antag, at du vil indsætte en række under 5. række, først skal vi nævne rækkenumrene ved hjælp af RANGE-objekt.

Kode:

Sub InsertRow_Example3 () Range ("6: 6"). Afslut sub

Da vi har nævnt hele rækken som 6: 6, er vi nødt til at bruge hele rækken egenskab her, kan vi lige bruge metoden “INSERT”.

Kode:

 Sub InsertRow_Example3 () Range ("6: 6"). Insert End Sub 

Dette vil også indsætte hele rækken ikke den eneste celle.

Hvis du vil indsætte to rækker under 5. række, skal vi først vælge 2 rækker og derefter bruge INSERT-metoden.

 Sub InsertRow_Example3 () Range ("6: 7"). Insert End Sub 

Dette indsætter to rækker under 5. række.

På denne måde kan vi indsætte så mange rækker som muligt i regnearket.

Metode # 4 - Brug af aktiv celleejendom

Vi kan bruge Active Cell VBA egenskab til at indsætte rækker. Den aktive celle er intet andet end en aktuelt valgt celle.

Antag, at du er i celle B5, og at du vil indsætte en række ovenfor, du kan bruge aktiv celleegenskab.

 Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub 

Dette indsætter rækken over den aktive celle.

Metode nr. 5 - Brug af aktiv celleejendom med offset-funktion

Antag, at du vil indsætte en række efter 2 rækker i den aktive celle, vi skal bruge forskydningsfunktionen til at udligne antallet af rækker.

Antag, at du er i B5-cellen.

Hvis du vil indsætte rækken efter 2. række fra den aktive celle, kan vi bruge nedenstående kode.

Kode:

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

Dette indsætter række efter 6. række.

Indsæt alternative rækker

Indsættelse af alternative rækker er ofte, jeg har stødt på mange gange. For at se på nedenstående databillede.

Nu skal vi indsætte alternative rækker. Vi skal bruge løkker til at indsætte hver anden række.

Kode:

 Sub InsertRow_Example6 () Dim K som heltal Dim X Som heltal X = 1 For K = 1 til 4 celler (X, 1). EntireRow. Indsæt X = X + 2 Næste K End Sub 

Dette indsætter rækker som denne.

Du kan downloade denne VBA Insert Row Excel her. VBA indsæt række Excel-skabelon