Excel VBA oszlop

Ha egy oszlopot akarunk beilleszteni, akkor többféle módon is meg lehet csinálni. A jobb egérgombbal kattintva kiválaszthatjuk az Oszlop beszúrása elemet a legördülő menüből, vagy a Ctrl + Shift + Plus (+) billentyűk együttes használatával. De mi van, ha automatizáljuk ezt a folyamatot is egy makró létrehozásával a VBA-n keresztül? Ez nagyon hasznos, ha egy hatalmas kódolási struktúra makró létrehozásán vagy egy oszlop vagy több oszlop hozzáadásán dolgozunk, amely szintén feladat. A VBA rendelkezik egy teljes oszloppal, és egy új oszlop beszúrására szolgál az Insert funkció.

Hogyan beszúrhatunk oszlopot az Excel VBA-ba?

Néhány példa alapján megtanuljuk, hogyan kell egy oszlopot beilleszteni az Excelbe VBA kód használatával.

Itt töltheti le a VBA beszúrás oszlop Excel sablonját - VBA beszúrás oszlop Excel sablon

1. példa - VBA beszúrásoszlop

Van egy 2 oszlopból és 11 sorból álló táblázat, az alább látható módon. Most különféle módon automatizáljuk az oszlopok beillesztésének folyamatát.

Ehhez kövesse az alábbi lépéseket:

1. lépés: Először helyezze be az új modult a VBA-ba az Insert menübe az alább látható módon.

2. lépés: Most indítson alkategóriát a végrehajtott funkció nevében, mint például a VBA beszúrás oszlop vagy bármely más név, az alább látható módon.

Kód:

 VBAC oszlop1 () alpont vége

3. lépés: Először válassza ki a cellák tartományát vagy a teljes oszlopokat, ahova be akarunk helyezni egy oszlopot, majd az Insert parancsot, az alább látható módon. A Beszúrás parancs lehetővé teszi bármely sor vagy oszlop vagy cella beszúrását a kiválasztott tartomány oszlopba vagy cellába.

Kód:

 Sub VBAColumn1 () tartomány ("B: B")

4. lépés: Most válassza ki a cellatartományt referenciaként, ahonnan be akarunk helyezni egy oszlopot, az alább látható módon.

Kód:

 Sub VBAColumn1 () Range ("B: B"). Insert Range ("B4") End Sub

5. lépés : Amint azt a magyarázat ismerteti, a Teljes oszlopot az Insert funkcióval fogjuk használni, az alább látható módon. Ez lehetővé teszi az oszlop beillesztését.

Kód:

 Al VBAC oszlop1 () tartomány ("B: B"). Helyezze be a tartomány ("B4"). EntireColumn.Insert End Sub

6. lépés: Most fordítsa le a kódot az F8 funkcionális gomb megnyomásával, majd kattintson a Play gombra a teljes kód futtatásához, amely a menüsor alatt található, az alább látható módon. Az 1. oszlop és a 2. oszlop között észrevesszük, két új üres oszlop kerül beillesztésre az alábbiak szerint.

2. példa - VBA beszúrási oszlop

Van egy másik módszer az oszlop beszúrására. Ez a módszer a különféle parancsok kombinációját tartalmazza.

1. lépés: Helyezzen be új modult a Beszúrás menüből.

2. lépés: Írjon alkategóriát a Végrehajtott funkció nevére, az alább látható módon, vagy bármely más névre.

Kód:

 Sub VBAColumn2 () Sub

3. lépés: A DIM méretváltozó segítségével, bármilyen ábécé vagy névvel, határozza meg tartományként, mondjuk, mondjuk az oszlop az alább látható módon.

Kód:

 Sub VBAColumn2 () Halvány oszlop mint tartomány vége Sub

4. lépés: Most kövesse a tartományt, és használja az Set ábrázolt függvényt az alább látható módon, meghatározott méretű oszloppal, amelyet egyenlő jel („=”) követ.

Kód:

 Sub VBAColumn2 () Halvány oszlop mint tartomány: Oszlop beállítása = Befejezés al

5. lépés: Most használja az alkalmazás funkciót, amely beépített VBA, a teljes B oszlop meghatározott tartományával .

Kód:

 Sub VBAColumn2 () Oszlop oszlop mint tartomány: Oszlop beállítása = Application.Range ("B: B") End Sub

6. lépés: Most használja az Oszlop változót az Insert funkcióval, az alább látható módon.

Kód:

 Sub VBAColumn2 () Oszlop oszlop mint tartomány: Oszlop beállítása = Alkalmazás.Range ("B: B") Oszlop.A beszúrás befejezése

7. lépés: A Shift paranccsal eltolhatunk egy oszlopot jobbra vagy balra. Az oszlopot általában a jobb oldali irányba helyezik, mindig a kiválasztott referencia cellából vagy oszlopból.

Kód:

 Sub VBAColumn2 () Halvány oszlop mint tartomány: Oszlop beállítása = Alkalmazás.Range ("B: B") Oszlop.Húzza be a váltást: = xlShiftToRight, Az al vége

8. lépés: Végül válassza ki az eredet referencia formátumát jobbról vagy alulról, amely az oszlophoz vagy a sorhoz tartozik, a betét típusától függően.

Kód:

 Sub VBAColumn2 () Oszlop oszlop mint tartomány: Oszlop beállítása = Alkalmazás.Range ("B: B") Oszlop.Húzza be a váltást: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

9. lépés: Most már kész. Összeállíthatjuk a kódot és futtathatjuk azt. Látni fogjuk az új oszlopot a Colum1 és a Column2 között, az alábbiak szerint.

3. példa - VBA beszúrási oszlop

Ez a példa egy további legegyszerűbb módszer egy oszlop beszúrására a VBA-ba.

1. lépés: Helyezzen be egy új modult

2. lépés: Adjon hozzá alkategóriát a VBA beszúrási oszlop nevéhez, az alább látható módon.

Kód:

 Sub VBAColumn3 () Sub

3. lépés: Először válassza ki azt az oszlopot vagy cellát, amelybe hozzá szeretnénk adni egy oszlopot a Select segítségével, az alább látható módon.

Kód:

 Sub VBAColumn3 () oszlopok ("B: B"). Válassza az Al befejezés lehetőséget

4. lépés: A második sorban használja a Kiválasztás parancsot és az Beszúrás funkciót, az alább látható módon.

Kód:

 Sub VBAColumn3 () oszlopok ("B: B"). Válassza a Selection.Insert End sub pontot

5. lépés: Végül válassza ki azt a helyet, ahová a beszúrt új oszlopot jobbra vagy balra el szeretnénk mozgatni a Shift funkció segítségével. Az új oszlop elhelyezésének választása mind az egyén elvárásainak felel meg.

Kód:

 Sub VBAColumn3 () oszlopok ("B: B"). Válassza a Selection.Insert Shift: = xlToRight End Sub lehetőséget

6. lépés: Ez kitölti a kódot. Most összeállíthatjuk a kódot annak megállapításához, hogy van-e hiba. Ha nem található hiba, akkor futtassa a kódot. Látjuk, hogy egy új oszlop kerül az 1. és a 2. oszlop közé az alábbiak szerint.

4. példa - VBA beszúrási oszlop

Ebben a példában megtanuljuk, hogyan lehet új oszlopokat felvenni minden már álló oszlop után.

1. lépés: Helyezze be a modult a beszúrás menüből.

2. lépés: Ezután adjon hozzá alkategóriát a VBA beszúrásoszlop nevéhez, a számsorozattal.

Kód:

 Sub VBAColumn4 () Sub

3. lépés: Most használja a DIM-et a változó meghatározásához bármilyen névben. Oszlopot használunk egész számként (számok esetén)

Kód:

 Sub VBAColumn4 () Halvány oszlop egész számként vége Sub

4. lépés: Minden állandó töltött oszlop után egy oszlopba kiválasztjuk és használjuk a (2) oszlopot, hogy új oszlopot adjunk az alábbiak szerint.

Kód:

 Sub VBAColumn4 () Halvány oszlop egész szám oszlopként (2) .Válassza ki a Befejezés alpontot

5. lépés: Nyisson meg egy Következő hurkot, ahol megírja az oszlopok egymás utáni beszúrásának feltételeit, az ábra szerint.

Kód:

 Sub VBAColumn4 () Halvány oszlop egész szám oszlopként (2) .Válassza ki a következő vége al

6. lépés: Mivel a mintaadatainkban csak 2 oszlop van, ezért csak egy új oszlopot adhatunk hozzá ezeknek az oszlopoknak. Tehát 0 - 2 sorozat oszlopokat használunk.

Kód:

 Sub VBAColumn4 () Oszlop oszlop egész szám oszlopként (2) .Válassza az Oszlop = 0-tól 2-ig Következő vége al

7. lépés: Az ActiveCell funkció segítségével használja az EntireColumn elemet az alábbi ábra szerint.

Kód:

 Sub VBAColumn4 () Oszlop oszlop egész szám oszlopként (2) .Válassza az Oszlop = 0-tól 2-ig ActiveCell.EntireColumn.Insert Next End Sub

8. lépés: Az ActiveCell funkció segítségével az Offset segítségével helyezze el az újonnan hozzáadott oszlopot. A 0. és a 2. pozíciót használjuk.

Kód:

 Sub VBAColumn4 () Oszlop oszlop egész szám oszlopként (2) .Válassza az Oszlop = 0-tól 2-ig ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) elemet.

9. lépés: Most fordítsa le a kódot, és futtassa, ha nem található hiba. Látni fogjuk, hogy az 1. oszlop és a 2. oszlop után új oszlopok kerülnek hozzáadásra.

Az Excel VBA beszúrási oszlop előnyei

  • Hasznos, ha gyorsan hozzáad egy új oszlopot bármilyen cellába.
  • Könnyű megvalósítani, még ha a kód szerkezete hatalmas is.
  • Ha hatalmas kódon dolgozunk, akkor egy új oszlop szükségessé teszi a kód kitöltését, a fenti példákkal megkönnyítjük a feladatot.

Dolgok, amikre emlékezni kell

  • Ha a 4. példát használja, akkor ne felejtse el kiválasztani az oszloptartományt, amíg a táblázat nem alkalmazható.
  • Ha a fájlt makróként menti, akkor engedélyezze az excel kódot.
  • Helyezzen be csak az alkalmazandó és a szükséges oszlopokat, hogy elkerülje a szükségtelen oszlopok hozzáadását.

Ajánlott cikkek

Ez egy útmutató a VBA beszúrás oszlopához. Itt megvitatjuk, hogyan lehet az Oszlopot beszúrni az Excelbe a VBA-kód használatával, a gyakorlati példákkal és a letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. VBA VLOOKUP funkció
  2. DCOUNT függvény Excelben
  3. VBA Másolás beillesztése
  4. KOMBIN funkció Excelben

Kategória:

VBA