Eilutės įterpimas VBA šiek tiek skiriasi nuo stulpelio įterpimo į VBA, stulpeliuose mes naudojome visą stulpelio metodą, tačiau eilutėms įterpti mes naudojame darbalapio metodą su įterpimo komanda eilutei įterpti, taip pat pateikiame eilutės nuorodą ten, kur norime įterpti kita eilutė, panaši į stulpelius.
Įterpkite eilutę naudodami „VBA Excel“
Visus veiksmus, kuriuos atliekame puikiai, galime atlikti naudodami VBA kodavimą. Mes galime nukopijuoti, įklijuoti, ištrinti ir padaryti daug daugiau dalykų per VBA kalbą. „Įterpti eilutę“ yra vienas iš tokių metodų, kuriuos dažnai darome „Excel“. Šiame straipsnyje mes parodysime, kaip atlikti įterpimo eilutės metodą VBA.
Kaip įterpti eilutę „Excel VBA“?
Toliau pateikiami įvairūs VBA naudojimo būdai, norint įterpti eilutę „Excel“.
1 metodas - įterpimo metodo naudojimas
VBA, norėdami įterpti eilutę, turime naudoti panašią techniką, kurią naudojome „Excel“ darbalapyje. VBA, norėdami įterpti eilutę, turime naudoti diapazono objektą.
Pavyzdžiui, pažvelkite į žemiau pateiktą kodą.
Kodas:
Sub InsertRow_Example1 () Range ("A1"). Įterpkite End Sub
Šis kodas judės langeliu A1 žemyn į B1 ir įterps vienintelį langelį.
Tai sukels tiek daug problemų tvarkant duomenis. Tai tiesiog perkels minėtą langelį žemyn, o visi kiti susieti stulpeliai išliks tokie patys.
2 metodas - visos eilutės nuosavybės naudojimas
Viršutinė intarpo eilutė, mes iš tikrųjų galime naudoti kelis metodus. Šis metodas įterps visą eilutę virš pasirinkto langelio.
1 žingsnis: Pirmiausia paminėkite langelio adresą .
Kodas:
Sub InsertRow_Example2 () diapazonas („A1“). Pabaigos sub
2 veiksmas: užuot naudoję, pasirinkite „ Visa eilutė “ ypatybę.
Kodas:
Sub InsertRow_Example2 () diapazonas ("A1"). EntireRow. Pabaigos sub
3 žingsnis: pasiekę visą eilutės ypatybę, naudokite įterpimo metodą .
Kodas:
Sub InsertRow_Example2 () Range ("A1"). EntireRow.Insert End Sub
Tai įterps eilutę virš langelio A1. Kadangi A1 yra pirmoji eilutė, ji judės žemyn A1 langeliu į B1.
Kaip galite aukščiau pateiktame paveikslėlyje, jis turi įterpti visą eilutę, o ne vieną langelį.
3 metodas - eilučių skaičių naudojimas
Ankstesniame pavyzdyje mes ką tik panaudojome vienos langelio adresą ir įterpėme eilutę. Tačiau mes taip pat galime juos įterpti naudodami eilučių numerius.
Tarkime, kad norite įterpti eilutę žemiau 5 -osios eilutės. Pirmiausia turime paminėti eilučių numerius naudodami objektą RANGE.
Kodas:
Sub InsertRow_Example3 () diapazonas („6: 6“). Pabaigos sub
Kadangi paminėjome visą eilutę kaip 6: 6, čia turime naudoti „Entire Row“ ypatybę. Mes galime tiesiai naudoti „INSERT“ metodą.
Kodas:
Sub InsertRow_Example3 () Range ("6: 6"). Įterpti End Sub
Taip pat bus įterpta visa eilutė, o ne viena langelis.
Jei norite įterpti dvi eilutes žemiau 5 -osios eilutės, pirmiausia turime pasirinkti 2 eilutes ir tada naudoti INSERT metodą.
Sub InsertRow_Example3 () Range ("6: 7"). Įterpti End Sub
Tai įterps dvi eilutes žemiau 5 -osios eilutės.
Taip galime į darbalapį įterpti kuo daugiau eilučių.
4 metodas - aktyvios langelio nuosavybės naudojimas
Eilėms įterpti galime naudoti ypatybę „Active Cell VBA“. Aktyvi ląstelė yra ne kas kita, o šiuo metu pasirinkta ląstelė.
Tarkime, kad esate langelyje B5 ir norite įterpti eilutę aukščiau, galite naudoti aktyvią langelio ypatybę.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
Tai įterps eilutę virš aktyvios langelio.
5 metodas - Aktyvios langelio ypatybės naudojimas su poslinkio funkcija
Tarkime, kad norite įterpti eilutę po 2 aktyvios langelio eilėmis, norėdami kompensuoti eilučių skaičių, turime naudoti funkciją „Poslinkis“.
Tarkime, kad esate B5 langelyje.
Jei norite įterpti eilutę po 2 -osios eilės nuo aktyvaus langelio, tada mes galime naudoti žemiau kodą.
Kodas:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End End
Tai įterps eilutę po 6 -osios eilutės.
Įterpti alternatyvias eilutes
Įterpdamas alternatyvias eiles dažnai susiduriu daug kartų. Norėdami pamatyti žemiau pateiktą duomenų vaizdą.
Dabar turime įterpti alternatyvias eilutes. Norėdami įterpti kiekvieną pakaitinę eilutę, turime naudoti kilpas.
Kodas:
Sub InsertRow_Example6 () Dim K kaip sveikasis skaičius X X skaičius kaip sveikasis skaičius X = 1 K = 1–4 langeliams (X, 1). EntireRow. Įterpti X = X + 2 Kitas K End Sub
Taip bus įterptos tokios eilutės.
Šią „VBA Insert Row Excel“ galite atsisiųsti čia. VBA įterpti eilutės „Excel“ šabloną
