Rivin lisääminen VBA: een eroaa jonkin verran sarakkeen lisäämisestä VBA: hon, sarakkeissa käytimme koko sarakemenetelmää, mutta rivien lisäämiseen käytämme laskentamenetelmää insert-komennolla rivin lisäämiseen, annamme myös riviviitteen mihin haluamme lisätä toinen sarakkeita vastaava rivi.
Lisää rivi VBA Excelillä
VBA-koodauksella voimme suorittaa kaikki toiminnot, jotka teemme erinomaisesti. Voimme kopioida, voimme liittää, voimme poistaa ja voimme tehdä monia muita asioita VBA-kielellä. "Rivin lisääminen" on yksi tällainen menetelmä, jota teemme usein Excelissä. Tässä artikkelissa näytämme sinulle, miten lisäysrivimenetelmä suoritetaan VBA: ssa.
Kuinka lisätä rivi Excel VBA: hon?
Alla on useita tapoja käyttää VBA: tä rivin lisäämiseen Exceliin.
Menetelmä # 1 - Lisäysmenetelmän käyttö
VBA: ssa rivin lisääminen edellyttää samanlaista tekniikkaa, jota olemme käyttäneet Excel-laskentataulukossa. VBA: ssa meidän on käytettävä alueobjektia rivin lisäämiseen.
Katso esimerkiksi alla oleva koodi.
Koodi:
Sub InsertRow_Example1 () -alue ("A1"). Lisää End Sub
Tämä koodi siirtää solun A1 alaspäin kohtaan B1 ja lisää ainoan solun.
Tämä aiheuttaa niin paljon ongelmia tietojen käsittelyssä. Tämä siirtää vain mainitun solun alaspäin, ja kaikki muut siihen liittyvät sarakkeet pysyvät samana.
Tapa # 2 - Koko riviomaisuuden käyttö
Yläterärivi, voimme itse asiassa käyttää useita menetelmiä. Alla oleva menetelmä lisää koko rivin valitun solun yläpuolelle.
Vaihe 1: Mainitse ensin solun osoite .
Koodi:
Sub InsertRow_Example2 () -alue ("A1"). End Sub
Vaihe 2: Valitse " Koko rivi " sen sijaan, että vain käyttäisit .
Koodi:
Sub InsertRow_Example2 () -alue ("A1"). EntireRow. End Sub
Vaihe 3: Kun olet käyttänyt koko riviominaisuutta, käytä lisäysmenetelmää .
Koodi:
Sub InsertRow_Example2 () -alue ("A1"). EntireRow.Insert End Sub
Tämä lisää rivin solun A1 yläpuolelle. Koska A1 on ensimmäinen rivi, se siirtyy A1-solua alaspäin B1: een.
Kuten yllä olevassa kuvassa voit, sen on lisättävä koko rivi, ei yksittäistä solua.
Tapa # 3 - rivinumeroiden käyttö
Yllä olevassa esimerkissä olemme juuri käyttäneet yhden solun osoitetta ja lisänneet rivin. Voimme kuitenkin lisätä ne myös rivinumeroilla.
Oletetaan, että haluat lisätä rivin viidennen rivin alle . Ensinnäkin meidän on mainittava rivinumerot RANGE-objektilla.
Koodi:
Sub InsertRow_Example3 () -alue ("6: 6"). End Sub
Koska olemme maininneet koko rivin 6: 6: ksi, meidän on käytettävä tässä koko rivi -ominaisuutta. Voimme käyttää suoraan INSERT-menetelmää.
Koodi:
Sub InsertRow_Example3 () -alue ("6: 6"). Lisää End Sub
Tämä lisää myös koko rivin, ei yksittäistä solua.
Jos haluat lisätä kaksi riviä viidennen rivin alle , meidän on ensin valittava 2 riviä ja käytettävä sitten INSERT-menetelmää.
Sub InsertRow_Example3 () -alue ("6: 7"). Lisää End Sub
Tämä lisää kaksi riviä viidennen rivin alle .
Näin voimme lisätä niin monta riviä kuin mahdollista laskentataulukkoon.
Tapa # 4 - Aktiivisen solun ominaisuuden käyttö
Voimme käyttää Active Cell VBA -ominaisuutta rivien lisäämiseen. Aktiivinen solu on vain valittu solu.
Oletetaan, että olet solussa B5 ja haluat lisätä rivin yllä, voit käyttää aktiivista soluominaisuutta.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
Tämä lisää rivin aktiivisen solun yläpuolelle.
Tapa # 5 - Aktiivisen solun ominaisuuden käyttäminen offset-toiminnolla
Oletetaan, että haluat lisätä rivin 2 aktiivisen solun rivin jälkeen, meidän on käytettävä Offset-toimintoa rivien lukumäärän kompensoimiseksi.
Oletetaan, että olet B5-solussa.
Jos haluat lisätä rivin jälkeen 2 toisen rivin aktiivisen solun, niin voimme käyttää alla koodia.
Koodi:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
Tämä lisää rivin kuudennen rivin jälkeen.
Lisää vaihtoehtoiset rivit
Vaihtoehtoisten rivien lisääminen on usein tavannut monta kertaa. Katso alla olevaa datakuvaa.
Nyt meidän on lisättävä vaihtoehtoisia rivejä. Meidän on käytettävä silmukoita jokaisen vaihtoehtoisen rivin lisäämiseen.
Koodi:
Sub InsertRow_Example6 () Dim K kokonaislukuna Dim X kokonaislukuna X = 1 K = 1 - 4 soluun (X, 1) .EntireRow.Insert X = X + 2 Seuraava K End Sub
Tämä lisää tällaisia rivejä.
Voit ladata tämän VBA Insert Row Excel -sovelluksen täältä. VBA Lisää rivin Excel-malli
