Vstavljanje vrstice v VBA se nekoliko razlikuje od vstavljanja stolpca v VBA, v stolpcih smo uporabili celotno metodo stolpcev, za vstavljanje vrstic pa uporabimo metodo delovnega lista z ukazom insert za vstavljanje vrstice, prav tako pa navedemo sklic na vrstico, kamor želimo vstaviti druga vrstica, podobna stolpcem.
Vstavite vrstico z VBA Excel
Vsa večina vseh dejanj, ki jih naredimo v excelu, lahko izvedemo s kodiranjem VBA. Lahko kopiramo, lahko prilepimo, lahko izbrišemo in lahko naredimo veliko več stvari z jezikom VBA. "Vstavljanje vrstice" je ena izmed takih metod, ki jo pogosto delamo v Excelu. V tem članku vam bomo pokazali, kako izvesti metodo vstavljanja vrstice v VBA.
Kako vstaviti vrstico v Excel VBA?
Spodaj so navedeni različni načini uporabe VBA za vstavljanje vrstice v excel.
1. način - Uporaba metode vstavljanja
Za vstavljanje vrstice v VBA moramo uporabiti podobno tehniko, kot smo jo uporabili v delovnem listu excel. V VBA moramo za vstavitev vrstice uporabiti objekt range.
Na primer, poglejte spodnjo kodo.
Koda:
Sub InsertRow_Example1 () Obseg ("A1"). Vstavi End Sub
Ta koda se premakne navzdol po celici A1 do B1 in vstavi edino celico.
To bo povzročilo toliko težav pri ravnanju s podatki. S tem boste zgolj pomaknili omenjeno celico navzdol, vsi ostali povezani stolpci pa bodo ostali enaki.
2. način - Uporaba celotne lastnosti vrstice
Zgornja vrstica za vstavljanje lahko dejansko uporabimo več metod. Spodnja metoda bo vstavila celo vrstico nad izbrano celico.
1. korak: Najprej omenite naslov celice .
Koda:
Sub InsertRow_Example2 () Obseg ("A1"). Končaj pod
2. korak: Namesto da samo uporabite, izberite lastnost » Celotna vrstica «.
Koda:
Sub InsertRow_Example2 () Obseg ("A1"). EntireRow. Končaj pod
3. korak: Po dostopu do celotne lastnosti vrstice uporabite metodo vstavljanja .
Koda:
Sub InsertRow_Example2 () Obseg ("A1"). EntireRow.Insert End Sub
S tem boste vstavili vrstico nad celico A1. Ker je A1 prva vrstica, se bo premaknila navzdol po celici A1 na B1.
Kot lahko na zgornji sliki, mora vstaviti celo vrstico in ne posamezne celice.
3. metoda - Uporaba številk vrstic
V zgornjem primeru smo pravkar uporabili naslov ene celice in vstavili vrstico. Lahko pa jih vstavimo tudi s številkami vrstic.
Predpostavimo, da želite vstaviti vrstico pod 5 na th zapored. Najprej moramo omeniti številke vrstic z uporabo predmeta RANGE.
Koda:
Sub InsertRow_Example3 () Obseg ("6: 6"). Končaj pod
Ker smo celotno vrstico omenili kot 6: 6, moramo tukaj uporabiti lastnost Entire Row. Neposredno lahko uporabimo metodo »INSERT«.
Koda:
Sub InsertRow_Example3 () Obseg ("6: 6"). Vstavi Končni Sub
S tem bo vstavljena tudi celotna vrstica, ne posamezne celice.
V primeru, če želite vstaviti dve vrstici pod 5 th zapored, moramo najprej izbrati 2 vrstic in nato uporabite metodo INSERT.
Sub InsertRow_Example3 () Obseg ("6: 7"). Vstavi Končni Sub
To bo vstaviti dve vrstici pod 5 na th zapored.
Tako lahko v delovni list vstavimo čim več vrstic.
4. način - Uporaba lastnosti aktivne celice
Za vstavljanje vrstic lahko uporabimo lastnost Active Cell VBA. Aktivna celica ni nič drugega kot trenutno izbrana celica.
Predpostavimo, da ste v celici B5 in želite vstaviti vrstico zgoraj, lahko uporabite lastnost aktivne celice.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
S tem boste vstavili vrstico nad aktivno celico.
5. način - Uporaba lastnosti aktivne celice s funkcijo odmika
Predpostavimo, da želite vstaviti vrstico po 2 vrsticah aktivne celice, zato moramo uporabiti funkcijo Offset, da premaknemo število vrstic.
Predpostavimo, da ste v celici B5.
Če želite vrstico vstaviti za 2. vrstico iz aktivne celice, lahko uporabimo spodnjo kodo.
Koda:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
To bo vstaviti vrstico po 6 v th zapored.
Vstavite nadomestne vrstice
Vstavljanje nadomestnih vrstic je pogosto že velikokrat naletelo nanje. Za ogled spodnje podatkovne slike.
Zdaj moramo vstaviti nadomestne vrstice. Za vstavljanje vsake nadomestne vrstice moramo uporabiti zanke.
Koda:
Sub InsertRow_Example6 () Dim K Kot Celo število Dim X Kot Celo število X = 1 Za K = 1 do 4 celice (X, 1) .EntireRow.Insert X = X + 2 Naslednji K Konec Sub
Tako bodo vstavljene vrstice, kot je ta.
Ta VBA Insert Row Excel lahko prenesete tukaj. VBA Vstavi vrstico Excel
