Vložiť stĺpec Excel VBA

Vo vynikajúcom prípade, ak chceme vložiť stĺpec, existuje niekoľko spôsobov, ako to urobiť. Môžeme kliknúť doprava a vybrať Vložiť stĺpec z rozbaľovacej ponuky alebo pomocou klávesov Ctrl + Shift + Plus (+) spolu. Ale čo keď automatizujeme tento proces tiež vytvorením makra prostredníctvom VBA? To je veľmi užitočné, keď pracujeme na vytvorení makra obrovskej kódovacej štruktúry alebo pridaní stĺpca alebo viacerých stĺpcov, čo je tiež úlohou. VBA má celý stĺpec a na vloženie nového stĺpca sa používa funkcia Vložiť.

Ako vložiť stĺpec v Excel VBA?

Naučíme sa, ako vložiť stĺpec do Excelu pomocou kódu VBA s niekoľkými príkladmi.

Túto šablónu vloženia stĺpca Excel VBA si môžete stiahnuť tu - šablónu vloženia stĺpca Excel VBA

Príklad č. 1 - Vložte stĺpec VBA

Máme tabuľku 2 stĺpcov a 11 riadkov, ako je uvedené nižšie. Teraz budeme automatizovať proces vkladania stĺpcov rôznymi spôsobmi.

Postupujte podľa nasledujúcich krokov:

Krok 1: Najskôr vložte nový modul do VBA z možnosti ponuky Vložiť, ako je uvedené nižšie.

Krok 2: Teraz začnite podkategóriu v mene vykonávanej funkcie, ako je stĺpec VBA Vložiť stĺpec alebo v akomkoľvek inom názve, ako je uvedené nižšie.

kód:

 Sub VBAColumn1 () End Sub

Krok 3: Najskôr vyberte rozsah buniek alebo kompletných stĺpcov, do ktorých chceme vložiť stĺpec a potom príkaz Vložiť, ako je to znázornené nižšie. Príkaz Vložiť umožní vložiť ľubovoľný riadok alebo stĺpec alebo bunku do vybratého stĺpca rozsahu alebo bunky rozsahu.

kód:

 Rozsah podčasti VBAColumn1 () („B: B“)

Krok 4: Teraz vyberte rozsah buniek ako referenciu, odkiaľ chceme vložiť stĺpec, ako je uvedené nižšie.

kód:

 Rozsah sub VBAColumn1 () ("B: B"). Vložte rozsah ("B4") End Sub

Krok 5 : Ako je uvedené vo vysvetlení, použijeme celý stĺpec s funkciou Vložiť, ako je uvedené nižšie. To umožní vložiť stĺpec.

kód:

 Rozsah podčasti VBAColumn1 () („B: B“). Vložte rozsah („B4“). EntireColumn.Insert End Sub Sub

Krok 6: Teraz zostavte kód stlačením funkčného klávesu F8 a potom kliknutím na tlačidlo Prehrať spustite celý kód, ktorý je pod panelom s ponukami, ako je to znázornené nižšie. Všimneme si medzi stĺpcami 1 a 2, vložia sa dva nové prázdne stĺpce, ako je to znázornené nižšie.

Príklad č. 2 - Vložte stĺpec VBA

Existuje ďalší spôsob vloženia stĺpca. Táto metóda obsahuje kombináciu rôznych príkazov.

Krok 1: Vložte nový modul z ponuky Vložiť.

Krok 2: A napíšte podkategóriu do názvu vykonávanej funkcie, ako je to znázornené nižšie, alebo do akéhokoľvek iného názvu.

kód:

 Sub VBAColumn2 () Koniec Sub

Krok 3: Pomocou rozmerovej premennej DIM s akoukoľvek abecedou alebo názvom ju definujte ako rozsah, povedzme stĺpec, ako je uvedené nižšie.

kód:

 Sub VBAColumn2 () Dim stĺpec ako koniec rozsahu Sub

Krok 4: Teraz nasledujte rozsah, použite funkciu Nastaviť s definovaným stĺpcom dimenzie, ako je uvedené nižšie, za ktorým nasleduje rovnaké znamienko („=“).

kód:

 Sub VBAColumn2 () Dim stĺpec ako rozsah: Set Column = End Sub

Krok 5: Teraz použite aplikačnú funkciu, ktorá je vstavaná VBA s definovaným rozsahom úplného stĺpca B.

kód:

 Sub VBAColumn2 () Dim stĺpec ako rozsah: Set Column = Application.Range ("B: B") End Sub

Krok 6: Teraz použite stĺpcovú premennú s funkciou Insert, ako je to znázornené nižšie.

kód:

 Sub VBAColumn2 () Dim stĺpec ako rozsah: Set Column = Application.Range ("B: B") Column.Insert End Sub Sub

Krok 7: Pomocou príkazu Shift sa môžeme posunúť a vložiť stĺpec doprava alebo doľava. Normálne sa stĺpec vkladá do správneho smeru vždy z referenčnej vybranej bunky alebo stĺpca.

kód:

 Sub VBAColumn2 () Dim stĺpec ako rozsah: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub

Krok 8: Nakoniec vyberte referenčný formát pôvodu sprava alebo dole, ktorý je pre stĺpec alebo riadok v závislosti od typu inzerátu.

kód:

 Sub VBAColumn2 () Dim stĺpec ako rozsah: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub Sub

Krok 9: Teraz je dokončený. Môžeme zostaviť kód a spustiť ho. Uvidíme nový stĺpec medzi stĺpcami Colum1 a Column2, ako sa uvádza nižšie.

Príklad č. 3 - Vložte stĺpec VBA

Tento príklad predstavuje ďalší najjednoduchší spôsob vloženia stĺpca do VBA.

Krok 1: Vložte nový modul

Krok 2: Pridajte podkategóriu do názvu stĺpca Vložiť VBA, ako je to znázornené nižšie.

kód:

 Sub VBAColumn3 () Koniec Sub

Krok 3: Najprv vyberte odkaz na stĺpec alebo bunku, do ktorého chceme pridať stĺpec pomocou možnosti Vybrať, ako je uvedené nižšie.

kód:

 Stĺpce pod VBAColumn3 () ("B: B"). Vyberte End Sub

Krok 4: V druhom riadku použite príkaz Výber spolu s funkciou Vložiť, ako je to znázornené nižšie.

kód:

 Stĺpce Sub VBAColumn3 () ("B: B"). Vyberte Selection.Insert End Sub

Krok 5: Nakoniec pomocou funkcie Shift vyberte polohu, kam chceme posunúť vložený nový stĺpec, doprava alebo doľava. Výber umiestnenia nového stĺpca závisí od individuálnych požiadaviek.

kód:

 Stĺpce pod VBAColumn3 () ("B: B"). Vyberte Selection.Insert Shift: = xlToRight End Sub

Krok 6: Týmto sa dokončí náš kód. Teraz môžeme zostaviť kód, aby sme zistili, či existuje nejaká chyba. Ak sa nenájde žiadna chyba, spustite kód. Uvidíme nový stĺpec, ktorý sa pridá medzi stĺpec 1 a stĺpec 2, ako je uvedené nižšie.

Príklad č. 4 - Vložte stĺpec VBA

V tomto príklade sa naučíme, ako pridať nové stĺpce za každý už existujúci stĺpec.

Krok 1: Teraz vložte modul z ponuky vloženia.

Krok 2: Potom pridajte podkategóriu do názvu VBA Vložiť stĺpec so sekvenciou čísel.

kód:

 Sub VBAColumn4 () Koniec Sub

Krok 3: Teraz pomocou DIM definujte premennú v akomkoľvek názve. Stĺpec sme použili ako celé číslo (v prípade použitia čísel)

kód:

 Sub VBAColumn4 () Dim stĺpec ako celé číslo Sub Sub

Krok 4: Do stĺpca za každým stojacim vyplneným stĺpcom vyberieme a použijeme stĺpec (2) na pridanie nového stĺpca, ako je znázornené nižšie.

kód:

 Sub VBAColumn4 () Dim stĺpec ako celé stĺpce (2) .Vyberte End Sub

Krok 5: Otvorte slučku For-Next, kde napíšeme podmienky na vloženie stĺpca za sebou, ako je znázornené.

kód:

 Sub VBAColumn4 () Dim stĺpec ako celé stĺpce (2) .Vyberte pre nasledujúci koniec Sub

Krok 6: Keďže v našich vzorových údajoch máme iba dva stĺpce, mohli by sme pridať iba nový stĺpec z týchto stĺpcov. Používame teda 0 až 2 rozsah stĺpcov sekvencií.

kód:

 Sub VBAColumn4 () Dim stĺpec ako celé stĺpce (2) .Vyberte stĺpec = 0 až 2 Next End Sub

Krok 7: Pomocou funkcie ActiveCell vložte EntireColumn na vloženie, ako je uvedené nižšie.

kód:

 Sub VBAColumn4 () Dim stĺpec ako celé stĺpce (2) .Vyberte stĺpec = 0 až 2 ActiveCell.EntireColumn.Insert Next End Sub

Krok 8: Pomocou funkcie ActiveCell umiestnite novo pridaný stĺpec pomocou Offset. Používame pozíciu 0 a 2.

kód:

 Sub VBAColumn4 () Dim stĺpec ako celé stĺpce (2) .Vyberte stĺpec = 0 až 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) .Vyberte ďalší koniec Sub

Krok 9: Teraz zostavte kód a spustite ho, ak sa nenájde žiadna chyba. Uvidíme, že po stĺpcoch 1 a 2 sa pridajú nové stĺpce.

Výhody vloženého stĺpca Excel VBA

  • Je užitočné rýchlo pridať nový stĺpec do ľubovoľného rozsahu buniek.
  • Implementácia je jednoduchá, aj keď je štruktúra kódu obrovská.
  • Ak pracujeme na obrovskom kóde, nový stĺpec sa stane potrebným na dokončenie kódu. Úlohy uvedené vyššie uľahčia prácu pomocou vyššie uvedených príkladov.

Čo je potrebné pamätať

  • Ak používate príklad 4, nezabudnite vybrať rozsah stĺpcov, kým sa tabuľka nedá použiť.
  • Uloženie súboru v makre umožňuje Excel, uloží kód.
  • Vložte iba príslušné a povinné stĺpce, aby ste zabránili pridaniu nepotrebných stĺpcov.

Odporúčané články

Toto je návod na vloženie stĺpca VBA. Tu diskutujeme o tom, ako vložiť stĺpec v programe Excel pomocou kódu VBA spolu s praktickými príkladmi a šablónou programu Excel na stiahnutie. Môžete si tiež prečítať naše ďalšie navrhované články -

  1. Funkcia VBA VLOOKUP
  2. DCOUNT Funkcia v Exceli
  3. VBA skopírovať
  4. Funkcia COMBIN v Exceli

Kategórie:

VBA