Excel VBA-kolom invoegen

Als we in Excel een kolom willen invoegen, zijn er meerdere manieren om dit te doen. We kunnen rechts klikken en Kolom invoegen selecteren in de vervolgkeuzelijst of met Ctrl + Shift + Plus (+) Key samen. Maar wat als we dit proces ook automatiseren door een macro via VBA te maken? Dit is vrij handig wanneer we werken aan het maken van een macro met een enorme coderingsstructuur of het toevoegen van een kolom of meerdere kolommen, wat ook een taak is om uit te voeren. VBA heeft een volledige kolom en de functie Invoegen wordt gebruikt voor het invoegen van een nieuwe kolom.

Hoe een kolom in Excel VBA in te voegen?

We zullen leren hoe een kolom in Excel in te voegen met behulp van VBA-code met enkele voorbeelden.

U kunt deze VBA-kolom Excel-sjabloon invoegen hier - VBA-kolom Excel-sjabloon invoegen

Voorbeeld # 1 - VBA-kolom invoegen

We hebben een tabel met 2 kolommen en 11 rijen zoals hieronder weergegeven. Nu zullen we het proces van het invoegen van kolommen op verschillende manieren automatiseren.

Volg hiervoor de onderstaande stappen:

Stap 1: Voeg eerst een nieuwe module in VBA in via de menu-optie Invoegen zoals hieronder wordt weergegeven.

Stap 2: Start nu een subcategorie in de naam van de uitgevoerde functie zoals VBA Kolom invoegen of in een andere naam zoals hieronder weergegeven.

Code:

 Sub VBAColumn1 () Einde Sub

Stap 3: Selecteer eerst het cellenbereik of voltooi de kolommen waarin we een kolom willen invoegen, gevolgd door de opdracht Invoegen, zoals hieronder wordt weergegeven. Met de opdracht Invoegen kunt u elke rij of kolom of een cel in de geselecteerde Bereik-kolom of cel invoegen.

Code:

 Sub VBAColumn1 () Bereik ("B: B"). Voer einde Sub in

Stap 4: Selecteer nu het celbereik als referentie van waaruit we een kolom willen invoegen, zoals hieronder getoond.

Code:

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

Stap 5 : Zoals in de uitleg wordt besproken, gebruiken we de volledige kolom met functie Invoegen zoals hieronder wordt weergegeven. Hierdoor kan de kolom worden ingevoegd.

Code:

 Sub VBAColumn1 () Bereik ("B: B"). Bereik invoegen ("B4"). Gehele kolom. Eind invoegen Sub

Stap 6: compileer nu de code door op de functietoets F8 te drukken en klik vervolgens op de knop Afspelen om de volledige code uit te voeren die zich onder de menubalk bevindt, zoals hieronder weergegeven. We zullen opmerken tussen kolom1 en kolom2, twee nieuwe lege kolommen worden ingevoegd zoals hieronder getoond.

Voorbeeld # 2 - VBA-kolom invoegen

Er is nog een methode om een ​​kolom in te voegen. Deze methode bevat een combinatie van verschillende opdrachten.

Stap 1: voeg een nieuwe module in het menu Invoegen in.

Stap 2: En schrijf een subcategorie in de naam van de functie Uitgevoerd zoals hieronder of in een andere naam weergegeven.

Code:

 Sub VBAColumn2 () Einde Sub

Stap 3: definieer met behulp van de dimensievariabele DIM met een willekeurig alfabet of naam het bereik, laat het Kolom zeggen, zoals hieronder wordt weergegeven.

Code:

 Sub VBAColumn2 () Dim kolom als bereik einde Sub

Stap 4: Volg nu het bereik en gebruik een Set-functie met gedefinieerde dimensiekolom zoals hieronder weergegeven, gevolgd door een gelijkteken (“=”).

Code:

 Sub VBAColumn2 () Kolom dimmen als bereik: kolom instellen = einde sub

Stap 5: Gebruik nu de toepassingsfunctie die is ingebouwd in VBA met gedefinieerd bereik van volledige kolom B.

Code:

 Sub VBAColumn2 () Kolom dimmen als bereik: kolom instellen = Application.Range ("B: B") End Sub

Stap 6: Gebruik nu Kolomvariabele met Insert-functie zoals hieronder getoond.

Code:

 Sub VBAColumn2 () Kolom dimmen als bereik: kolom instellen = Application.Range ("B: B") Column.Invoegen End Sub

Stap 7: We kunnen verschuiven om een ​​kolom naar rechts of links in te voegen met behulp van het Shift-commando. Normaal wordt de kolom altijd vanuit de geselecteerde cel of kolom naar de juiste richting ingevoegd.

Code:

 Sub VBAColumn2 () Kolom dimmen als bereik: kolom instellen = Application.Range ("B: B") Column.Shift invoegen: = xlShiftToRight, End Sub

Stap 8: Selecteer ten slotte de oorsprongsreferentie-indeling rechts of onder, afhankelijk van het type invoeging, voor Kolom of Rij.

Code:

 Sub VBAColumn2 () Kolom dimmen als bereik: kolom instellen = Application.Range ("B: B") Kolom. Shift invoegen: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Stap 9: Nu is het voltooid. We kunnen de code compileren en uitvoeren. We zien een nieuwe kolom tussen Kolom1 en Kolom2 worden toegevoegd, zoals hieronder wordt weergegeven.

Voorbeeld # 3 - VBA-kolom invoegen

Dit voorbeeld is een andere eenvoudigste manier om een ​​kolom in VBA in te voegen.

Stap 1: Plaats een nieuwe module

Stap 2: Voeg een subcategorie toe aan de naam van de VBA-invoegkolom zoals hieronder weergegeven.

Code:

 Sub VBAColumn3 () Einde Sub

Stap 3: Selecteer eerst de kolom- of celverwijzing waaraan we een kolom willen toevoegen met behulp van Selecteren zoals hieronder weergegeven.

Code:

 Sub VBAColumn3 () Kolommen ("B: B"). Selecteer End Sub

Stap 4: Gebruik op de tweede regel de opdracht Selectie samen met de functie Invoegen, zoals hieronder wordt weergegeven.

Code:

 Sub VBAColumn3 () Kolommen ("B: B"). Selecteer selectie. Einde invoegen

Stap 5: Selecteer ten slotte de positie waar we de ingevoegde nieuwe kolom willen verplaatsen, naar rechts of naar links met behulp van de Shift-functie. De selectie van het plaatsen van een nieuwe kolom is volledig aan de behoefte van het individu.

Code:

 Sub VBAColumn3 () Kolommen ("B: B"). Selecteer selectie. Shift invoegen: = xlToRight End Sub

Stap 6: hiermee is onze code voltooid. Nu kunnen we de code compileren om na te gaan of er een fout is. Als er geen fout wordt gevonden, voer dan de code uit. We zien een nieuwe kolom worden toegevoegd tussen kolom1 en kolom2, zoals hieronder wordt weergegeven.

Voorbeeld # 4 - VBA-kolom invoegen

In dit voorbeeld leren we hoe u nieuwe kolommen toevoegt na elke reeds staande kolom.

Stap 1: voeg nu een module in vanuit het invoegmenu.

Stap 2: Voeg daarna een subcategorie toe in de naam van VBA Kolom invoegen met een reeks getallen.

Code:

 Sub VBAColumn4 () Einde Sub

Stap 3: Gebruik nu DIM om een ​​variabele in een willekeurige naam te definiëren. We hebben de kolom als geheel getal gebruikt (in het geval dat getallen worden gebruikt)

Code:

 Sub VBAColumn4 () Kolom dimmen als geheel getal Sub

Stap 4: Aan een kolom na elke staande gevulde kolom, zullen we Kolom (2) selecteren en gebruiken om een ​​nieuwe kolom toe te voegen zoals hieronder getoond.

Code:

 Sub VBAColumn4 () Kolom dimmen als gehele kolommen (2). Selecteer End Sub

Stap 5: Open een For-Next-lus, waar we de voorwaarden zullen schrijven om een ​​kolom na elkaar in te voegen zoals getoond.

Code:

 Sub VBAColumn4 () Kolom dimmen als gehele kolommen (2). Selecteer voor volgende einde Sub

Stap 6: Omdat we slechts 2 kolommen in onze voorbeeldgegevens hebben, kunnen we alleen een nieuwe kolom van alleen die kolommen toevoegen. Dus gebruiken we 0 tot 2 reeks reekskolommen.

Code:

 Sub VBAColumn4 () Kolom dimmen als gehele kolommen (2). Selecteren voor kolom = 0 tot 2 Volgende einde Sub

Stap 7: Met behulp van de ActiveCell-functie gebruikt u GeheleColumn om in te voegen zoals hieronder getoond.

Code:

 Sub VBAColumn4 () Kolom dimmen als gehele kolommen (2). Selecteer voor kolom = 0 tot 2 ActiveCell.EntireColumn.Invoegen Volgende einde Sub

Stap 8: Gebruik Offset om de nieuw toegevoegde kolom te plaatsen met behulp van de ActiveCell-functie. We gebruiken 0 en 2 e positie.

Code:

 Sub VBAColumn4 () Kolom dimmen als gehele kolommen (2). Selecteer voor kolom = 0 tot 2 ActiveCell.EntireColumn.Invoegen ActiveCell.Offset (0, 2). Selecteer Next End Sub

Stap 9: compileer nu de code en voer deze uit als er geen fout wordt gevonden. We zullen zien dat na kolom1 en kolom2 nieuwe kolommen zijn toegevoegd.

Voordelen van Excel VBA Kolom invoegen

  • Het is handig als u snel een nieuwe kolom in een willekeurig cellenbereik wilt toevoegen.
  • Het is gemakkelijk te implementeren, zelfs als de structuur van de code enorm is.
  • Als we aan een enorme code werken, wordt een nieuwe kolom een ​​noodzaak om de code in te vullen, met behulp van de bovenstaande voorbeelden wordt de taak eenvoudig.

Dingen om te onthouden

  • Als u voorbeeld 4 gebruikt, vergeet dan niet het kolombereik te selecteren totdat de tabel van toepassing is.
  • Het opslaan van het bestand in macro inschakelen excel, slaat de code op.
  • Voeg alleen toepasselijke en vereiste kolommen in om te voorkomen dat onnodige kolommen worden toegevoegd.

Aanbevolen artikelen

Dit is een gids voor VBA-kolom invoegen. Hier bespreken we hoe u Kolom in Excel invoegt met behulp van VBA-code, samen met praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -

  1. VBA VLOOKUP-functie
  2. DCOUNT-functie in Excel
  3. VBA kopiëren plakken
  4. COMBIN-functie in Excel

Categorie:

VBA