Umetanje retka u VBA ponešto se razlikuje od umetanja stupca u VBA, u stupcima smo koristili cijelu metodu stupaca, ali za umetanje redaka koristimo metodu radnog lista s naredbom insert za umetanje retka, pružamo i referencu na red gdje želimo umetnuti drugi redak sličan stupcima.
Umetnite red s VBA Excelom
Sve većinu svih radnji koje radimo u excelu možemo izvesti s VBA kodiranjem. Možemo kopirati, zalijepiti, izbrisati i učiniti još mnogo toga putem VBA jezika. "Umetanje reda" jedna je od takvih metoda koju često radimo u excelu. U ovom ćemo vam članku pokazati kako izvršiti metodu umetanja retka u VBA.
Kako umetnuti redak u Excel VBA?
Ispod su razne metode upotrebe VBA za umetanje reda u excel.
1. metoda - Korištenje metode umetanja
Da bismo u VBA umetnuli redak, trebamo upotrijebiti sličnu tehniku koju smo koristili u Excelovom radnom listu. U VBA moramo za umetanje retka koristiti objekt range.
Na primjer, pogledajte donji kod.
Kodirati:
Sub InsertRow_Example1 () Raspon ("A1"). Umetni kraj Sub Ovaj će se kôd pomaknuti niz ćeliju A1 do B1 i umetnuti jedinu ćeliju.
To će uzrokovati toliko problema u pogledu rukovanja podacima. Ovo će samo pomaknuti spomenutu ćeliju prema dolje, a svi ostali pridruženi stupci ostaju isti.
Metoda # 2 - Korištenje cijelog svojstva reda
Gornji redak za umetanje zapravo možemo koristiti nekoliko metoda. Metoda u nastavku umetnut će cijeli redak iznad odabrane ćelije.
Korak 1: Prvo spomenite adresu stanice .
Kodirati:
Pod InsertRow_Example2 () Raspon ("A1"). Kraj pod
Korak 2: Umjesto da samo koristite, odaberite svojstvo " Cijeli red ".
Kodirati:
Sub InsertRow_Example2 () Raspon ("A1"). EntireRow. Kraj pod
Korak 3: Nakon pristupa svojstvu cijelog retka koristite metodu umetanja .
Kodirati:
Pod InsertRow_Example2 () Raspon ("A1"). EntireRow.Insert End Sub 
Ovo će umetnuti redak iznad ćelije A1. Budući da je A1 prvi red, pomaknut će se niz A1 ćeliju na B1.
Kao što možete na gornjoj slici, mora umetnuti cijeli redak, a ne jednu ćeliju.
3. metoda - Korištenje brojeva redaka
U gornjem primjeru upravo smo upotrijebili adresu jedne ćelije i umetnuli redak. Međutim, možemo ih umetnuti i pomoću brojeva redaka.
Pretpostavimo da želite umetnuti redak ispod 5. retka, prvo moramo spomenuti brojeve redaka pomoću objekta RANGE.
Kodirati:
Pod InsertRow_Example3 () Raspon ("6: 6"). Kraj podBudući da smo cijeli red spomenuli kao 6: 6, ovdje moramo koristiti svojstvo Entire Row, možemo izravno koristiti metodu "INSERT".
Kodirati:
Pod InsertRow_Example3 () Raspon ("6: 6"). Umetni Kraj Sub Ovo će također umetnuti cijeli redak, a ne jednu ćeliju.
U slučaju da želite umetnuti dva retka ispod 5. retka, prvo moramo odabrati 2 retka, a zatim koristiti metodu INSERT.
Pod InsertRow_Example3 () Raspon ("6: 7"). Umetni Kraj Sub Ovo će umetnuti dva retka ispod 5. retka.
Ovako, u radni list možemo umetnuti što više redaka.
Metoda # 4 - Korištenje svojstva aktivne stanice
Za umetanje redaka možemo koristiti svojstvo Active Cell VBA. Aktivna stanica nije ništa drugo nego trenutno odabrana stanica.
Pretpostavimo da ste u ćeliji B5 i želite umetnuti redak iznad da možete koristiti aktivno svojstvo ćelije.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
Ovo će umetnuti redak iznad aktivne ćelije.
5. metoda - Korištenje aktivnog svojstva stanice s funkcijom pomaka
Pretpostavimo da želite umetnuti redak nakon 2 retka aktivne ćelije, trebamo koristiti funkciju Offset za pomicanje broja redaka.
Pretpostavimo da ste u ćeliji B5.
Ako želite umetnuti redak nakon 2. retka iz aktivne ćelije, možemo koristiti donji kod.
Kodirati:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
Ovo će umetnuti redak nakon 6. redaka.
Umetnite zamjenske redove
Umetanje alternativnih redova često sam nailazio na njih mnogo puta. Za pogled na donju sliku podataka.
Sada moramo umetnuti alternativne retke. Moramo koristiti petlje za umetanje svakog zamjenskog retka.
Kodirati:
Sub InsertRow_Example6 () Zatamni K kao cjelina Dim X Kao cjelina X = 1 za K = 1 do 4 ćelije (X, 1) .EntireRow.Insert X = X + 2 Sljedeća K Kraj Sub
Ovo će umetnuti ovakve retke.
Ovdje možete preuzeti ovaj VBA Insert Row Excel. VBA umetanje retka u Excel predložak