Egy sor beszúrása a VBA-ba némileg különbözik az oszlop beszúrásától a VBA-ba, az oszlopokban teljes oszlop-módszert használtunk, de a sorok beszúrásához a munkalap-metódust az insert paranccsal használjuk a sor beszúrására, egy sor hivatkozást is megadunk, ahová be akarunk illeszteni. az oszlopokhoz hasonló másik sor.
Helyezze be a sort a VBA Excel programmal
A VBA kódolással az összes olyan műveletet elvégezhetjük, amelyet kiválóan végezünk. Másolhatunk, beilleszthetünk, törölhetünk, és még sok mindent megtehetünk a VBA nyelvén keresztül. A „Sor beszúrása” az egyik ilyen módszer, amelyet gyakran alkalmazunk az excelben. Ebben a cikkben megmutatjuk, hogyan hajthatja végre a beszúrássoros módszert a VBA-ban.
Hogyan illesszünk be sort az Excel VBA-ba?
Az alábbiakban bemutatjuk a VBA használatának különféle módszereit egy sor beszúrására az excelben.
1. módszer - a Beszúrási módszer használata
A VBA-ban egy sor beszúrásához hasonló technikát kell használnunk, amelyet az excel munkalapon használtunk. A VBA-ban a range objektumot kell használnunk a sor beszúrásához.
Nézze meg például az alábbi kódot.
Kód:
Sub InsertRow_Example1 () Tartomány ("A1"). Beszúrja a Vége Sub-t Ez a kód az A1 cellán lefelé mozog a B1-be, és beilleszti az egyetlen cellát.
Ez annyi problémát fog okozni az adatok kezelése szempontjából. Ez csak lefelé mozgatja az említett cellát, és az összes többi kapcsolódó oszlop ugyanaz marad.
2. módszer - Teljes sor tulajdonság használata
A felső betétes sorban valójában többféle módszert alkalmazhatunk. Az alábbi módszer a teljes sort beilleszti a kiválasztott cella fölé.
1. lépés: Először említse meg a cella címét .
Kód:
Sub InsertRow_Example2 () tartomány ("A1"). End Sub
2. lépés: A használat helyett válassza ki a „ Teljes sor ” tulajdonságot.
Kód:
Sub InsertRow_Example2 () Tartomány ("A1"). EntireRow. End Sub
3. lépés: A teljes sor tulajdonság elérése után használja a beszúrási módszert .
Kód:
Sub InsertRow_Example2 () tartomány ("A1"). EntireRow.Insert End Sub 
Ezzel beilleszti a sort az A1 cella fölé. Mivel az A1 az első sor, az A1 cellán lefelé halad a B1-be.
Amint a fenti képen látható, a teljes sort kell beillesztenie, nem pedig az egyetlen cellát.
3. módszer - Sorszámok használata
A fenti példában csak az egycellás címet használtuk, és beillesztettük a sort. Beilleszthetjük azonban sorszámok használatával is.
Tegyük fel, hogy be akar illeszteni egy sort az 5. sor alá, először meg kell említenünk a sorszámokat a RANGE objektum használatával.
Kód:
Sub InsertRow_Example3 () tartomány ("6: 6"). End SubMivel a teljes sort 6: 6-ként említettük, itt az Entire Row tulajdonságot kell használnunk, egyenesen használhatjuk az „INSERT” módszert.
Kód:
Sub InsertRow_Example3 () Range ("6: 6"). Insert Sub Ez a teljes sort is beszúrja, nem pedig egyetlen cellát.
Abban az esetben, ha két sort akar beilleszteni az 5. sor alá, először 2 sort kell kiválasztanunk, majd az INSERT módszert kell használnunk.
Sub InsertRow_Example3 () Range ("6: 7"). Insert Sub Ez két sort illeszt be az 5. sor alá.
Így a lehető legtöbb sort beszúrhatjuk a munkalapba.
4. módszer - Aktív cella tulajdonság használata
Használhatjuk az Active Cell VBA tulajdonságot sorok beszúrására. Az aktív cella nem más, mint egy jelenleg kiválasztott cella.
Tegyük fel, hogy a B5 cellában van, és egy sort szeretne beilleszteni fölé, és használhatja az aktív cella tulajdonságokat.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
Ezzel beilleszti a sort az aktív cella fölé.
5. módszer - Aktív cellatulajdonság használata offszet funkcióval
Tegyük fel, hogy egy sort akar beilleszteni az aktív cella 2 sora után, az Eltolás funkcióval kell ellensúlyoznunk a sorok számát.
Tegyük fel, hogy a B5 cellában van.
Ha be akarja illeszteni a sort a 2. sor után az aktív cellából, akkor az alábbi kódot használhatjuk.
Kód:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
Ez beilleszt egy sort a 6. sor után.
Helyezze be az alternatív sorokat
Az alternatív sorok beszúrásával gyakran találkoztam sokszor. Az alábbi adatkép megtekintéséhez.
Most alternatív sorokat kell beillesztenünk. Hurkokat kell használnunk minden alternatív sor beszúrásához.
Kód:
Sub InsertRow_Example6 () Dim K egész számként X X egész számként X = 1 K = 1 - 4 celláig (X, 1). EntireRow. X = X + 2 beszúrása Következő K End Sub
Ez beszúrja az ilyen sorokat.
A VBA Insert Row Excel programot itt töltheti le. VBA Helyezze be a sor Excel sablont