Vložit sloupec Excel VBA

Ve Excelu, pokud chceme vložit sloupec, existuje několik způsobů, jak to udělat. Můžeme kliknout doprava a vybrat Vložit sloupec z rozevíracího seznamu nebo pomocí kláves Ctrl + Shift + Plus (+) dohromady. Ale co když automatizujeme tento proces také vytvořením makra pomocí VBA? To je docela užitečné, když pracujeme na vytvoření makra obrovské kódovací struktury nebo přidání sloupce nebo více sloupců, což je také úkol. VBA má celý sloupec a pro vložení nového sloupce se používá funkce Vložit.

Jak vložit sloupec v Excel VBA?

Naučíme se, jak vložit sloupec do Excelu pomocí kódu VBA s několika příklady.

Tuto šablonu VBA Vložit sloupec Excel si můžete stáhnout zde - VBA Vložit Sloupec Excel šablony

Příklad # 1 - Vložit sloupec VBA

Máme tabulku 2 sloupců a 11 řádků, jak je ukázáno níže. Nyní budeme automatizovat proces vkládání sloupců různými způsoby.

Postupujte podle následujících kroků:

Krok 1: Nejprve vložte nový modul do VBA z nabídky Vložit, jak je ukázáno níže.

Krok 2: Nyní spusťte podkategorii v názvu prováděné funkce, jako je sloupec VBA Vložit sloupec nebo v jakémkoli jiném názvu, jak je uvedeno níže.

Kód:

 Sub VBAColumn1 () End Sub

Krok 3: Nejprve vyberte rozsah buněk nebo úplných sloupců, do kterých chceme vložit sloupec, následovaný příkazem Vložit, jak je uvedeno níže. Příkaz Vložit umožní vložit libovolný řádek nebo sloupec nebo buňku do vybraného sloupce rozsahu nebo buňky.

Kód:

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

Krok 4: Nyní vyberte oblast buněk jako referenci, odkud chceme vložit sloupec, jak je ukázáno níže.

Kód:

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

Krok 5 : Jak je vysvětleno ve vysvětlení, použijeme celý sloupec s funkcí Vložit, jak je uvedeno níže. To umožní vložení sloupce.

Kód:

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

Krok 6: Nyní zkompilujte kód stisknutím funkční klávesy F8 a poté kliknutím na tlačítko Přehrát spusťte celý kód, který je pod panelem nabídek, jak je znázorněno níže. Všimneme si mezi sloupci 1 a sloupcem 2, vloží se dva nové prázdné sloupce, jak je ukázáno níže.

Příklad č. 2 - Vložit sloupec VBA

Existuje jiný způsob vložení sloupce. Tato metoda zahrnuje kombinaci různých příkazů.

Krok 1: Vložte nový modul z nabídky Vložit.

Krok 2: A napište podkategorii do názvu Provedené funkce, jak je uvedeno níže nebo do jakéhokoli jiného jména.

Kód:

 Sub VBAColumn2 () End Sub

Krok 3: Pomocí proměnné DIM s libovolnou abecedou nebo názvem ji definujte jako rozsah, řekněme sloupec, jak je ukázáno níže.

Kód:

 Sub VBAColumn2 () Dim Sloupec jako Konec rozsahu Sub

Krok 4: Nyní sledujte rozsah pomocí funkce Set s definovaným sloupcem kóty, jak je ukázáno níže, následovaným znaménkem rovnosti („=“).

Kód:

 Sub VBAColumn2 () Dim Column As Range: Set Column = End Sub

Krok 5: Nyní použijte aplikační funkci, která je vestavěná VBA s definovaným rozsahem úplného sloupce B.

Kód:

 Sub VBAColumn2 () Dim sloupec jako rozsah: Set Column = Application.Range ("B: B") End Sub

Krok 6: Nyní použijte sloupcovou proměnnou s funkcí Vložit, jak je ukázáno níže.

Kód:

 Sub VBAColumn2 () Dim sloupec jako rozsah: Set Column = Application.Range ("B: B") Column.Insert End Sub Sub

Krok 7: Pomocí příkazu Shift můžeme posunout sloupec doprava nebo doleva. Normálně se sloupec vkládá do správného směru vždy z vybrané vybrané buňky nebo sloupce.

Kód:

 Sub VBAColumn2 () Dim sloupec jako rozsah: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub

Krok 8: Nakonec vyberte referenční formát počátku zprava nebo níže, což je pro sloupec nebo řádek v závislosti na typu vložení.

Kód:

 Sub VBAColumn2 () Dim sloupec jako rozsah: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Krok 9: Nyní je dokončen. Můžeme kód zkompilovat a spustit. Uvidíme nový sloupec mezi Colum1 a Column2 bude přidán, jak je ukázáno níže.

Příklad č. 3 - Vložit sloupec VBA

Tento příklad je dalším nejjednodušším způsobem vložení sloupce do VBA.

Krok 1: Vložte nový modul

Krok 2: Přidejte název do sloupce Vložit sloupec VBA, jak je ukázáno níže.

Kód:

 Sub VBAColumn3 () End Sub

Krok 3: Nejprve vyberte odkaz na sloupec nebo buňku, kam chceme přidat sloupec pomocí Select, jak je ukázáno níže.

Kód:

 Sloupce Sub VBAColumn3 () ("B: B"). Vyberte End Sub

Krok 4: Ve druhém řádku použijte příkaz Výběr spolu s funkcí Vložit, jak je ukázáno níže.

Kód:

 Sloupce Sub VBAColumn3 () ("B: B"). Vyberte Selection.Insert End Sub

Krok 5: Nakonec pomocí funkce Shift vyberte polohu, kam chceme přesunout vložený nový sloupec, vpravo nebo vlevo. Výběr umístění nového sloupce závisí na požadavcích jednotlivce.

Kód:

 Sloupce Sub VBAColumn3 () ("B: B"). Vyberte Selection.Insert Shift: = xlToRight End Sub

Krok 6: Tímto dokončíte náš kód. Nyní můžeme kompilovat kód, abychom zjistili, zda došlo k nějaké chybě. Pokud není nalezena žádná chyba, spusťte kód. Uvidíme nový sloupec, který bude přidán mezi sloupec 1 a sloupec 2, jak je uvedeno níže.

Příklad č. 4 - Vložit sloupec VBA

V tomto příkladu se naučíme, jak přidat nové sloupce za každý již stojící sloupec.

Krok 1: Nyní vložte modul z nabídky Vložit.

Krok 2: Poté přidejte podkategorii do názvu VBA Insert Column s posloupností čísel.

Kód:

 Sub VBAColumn4 () End Sub

Krok 3: Nyní pomocí DIM definujte proměnnou v jakémkoli názvu. Sloupec jsme použili jako celé číslo (v případě použití čísel)

Kód:

 Sub VBAColumn4 () Dim sloupec jako celé číslo Sub Sub

Krok 4: Do sloupce za každým stojícím vyplněným sloupcem vybereme a použijeme sloupec (2) pro přidání nového sloupce, jak je znázorněno níže.

Kód:

 Sub VBAColumn4 () Dim sloupec jako celé sloupce (2) .Vyberte End Sub

Krok 5: Otevřete smyčku For-Next, kde napíšeme podmínky pro vložení sloupce za sebou, jak je znázorněno.

Kód:

 Sub VBAColumn4 () Dim sloupec jako celé sloupce (2) .Vyberte pro další konec Sub

Krok 6: Protože v našich vzorových datech máme pouze 2 sloupce, mohli bychom přidat pouze nový sloupec z těchto sloupců. Používáme tedy 0 až 2 řadu sloupců sekvence.

Kód:

 Sub VBAColumn4 () Dim sloupec jako celé sloupce (2) .Vyberte sloupec = 0 až 2 další konec sub

Krok 7: Pomocí funkce ActiveCell vložte EntireColumn pro vložení, jak je ukázáno níže.

Kód:

 Sub VBAColumn4 () Dim sloupec jako celé sloupce (2) .Vyberte sloupec = 0 až 2 ActiveCell.EntireColumn.Insert Next End Sub

Krok 8: Pomocí funkce ActiveCell umístěte nově přidaný sloupec pomocí Offset. Používáme 0 a 2 pozici.

Kód:

 Sub VBAColumn4 () Dim sloupec jako celé sloupce (2) .Vyberte sloupec = 0 až 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) .Vyberte Next End Sub

Krok 9: Nyní zkompilujte kód a spusťte jej, pokud nebyla nalezena žádná chyba. Uvidíme, že po sloupcích 1 a 2 budou přidány nové sloupce.

Výhody Excel VBA Vložit sloupec

  • Je užitečné rychle přidat nový sloupec do libovolného rozsahu buněk.
  • Je snadné jej implementovat, i když struktura kódu je obrovská.
  • Pokud pracujeme na obrovském kódu, nový sloupec se stane potřebou dokončit kód, pomocí výše uvedených příkladů bude úkol snadnější.

Co si pamatovat

  • Pokud používáte příklad 4, nezapomeňte vybrat rozsah sloupců, dokud nebude tabulka použitelná.
  • Uložení souboru v makru umožňuje Excel, uloží kód.
  • Vložte pouze použitelné a povinné sloupce, abyste zabránili přidání nepotřebných sloupců.

Doporučené články

Toto je průvodce vložením sloupce VBA. Zde diskutujeme o tom, jak vložit sloupec v Excelu pomocí kódu VBA spolu s praktickými příklady a stahovatelnou šablonou Excel. Můžete si také prohlédnout naše další doporučené články -

  1. Funkce VBA VLOOKUP
  2. DCOUNT Funkce v Excelu
  3. Vložit kopii VBA
  4. Funkce COMBIN v Excelu

Kategorie:

VBA