Excel VBA indsæt kolonne
I excel, hvis vi vil indsætte en kolonne, er der flere måder at gøre det på. Vi kan klikke til højre og vælge Indsæt kolonne på rullelisten eller bruge Ctrl + Shift + Plus (+) -tasten sammen. Men hvad nu hvis vi automatiserer denne proces også ved at oprette en makro gennem VBA? Dette er meget nyttigt, når vi arbejder på at skabe en makro med enorm kodningstruktur eller tilføje en kolonne eller flere kolonner, som også er en opgave at udføre. VBA har en hel kolonne, og indsæt funktionen bruges til at indsætte en ny kolonne.
Sådan indsættes kolonne i Excel VBA?
Vi lærer, hvordan man indsætter en kolonne i Excel ved hjælp af VBA-kode med få eksempler.
Du kan downloade denne VBA Indsæt kolonne Excel-skabelon her - VBA Indsæt kolonne Excel-skabelonEksempel 1 - VBA-indsættelseskolonne
Vi har en tabel med 2 kolonner og 11 rækker som vist nedenfor. Nu automatiserer vi processen med at indsætte kolonner på forskellige måder.
Følg nedenstående trin for dette:
Trin 1: Indsæt først et nyt modul i VBA fra menuen Indsæt menu som vist nedenfor.
Trin 2: Start nu en underkategori i navnet på den udførte funktion som VBA Indsæt kolonne eller i et hvilket som helst andet navn som vist nedenfor.
Kode:
Sub VBAColumn1 () End Sub
Trin 3: Vælg først området med celler eller komplette kolonner, hvor vi vil indsætte en kolonne efterfulgt af Indsæt kommando som vist nedenfor. Kommandoen Indsæt gør det muligt at indsætte en række eller kolonne eller en celle i den valgte Range-kolonne eller -celle.
Kode:
Sub VBAColumn1 () Område ("B: B"). Indsæt slut Sub
Trin 4: Vælg nu celleområdet som reference, hvorfra vi vil indsætte en kolonne som vist nedenfor.
Kode:
Sub VBAColumn1 () Range ("B: B"). Indsæt Range ("B4") End Sub
Trin 5 : Som omtalt i forklaringen vil vi bruge hele kolonnen med funktionen Indsæt som vist nedenfor. Dette gør det muligt at indsætte kolonnen.
Kode:
Sub VBAColumn1 () Område ("B: B"). Indsæt område ("B4"). HeleColumn.Insert End Sub
Trin 6: Kompilér nu koden ved at trykke på F8-funktionstasten og klik derefter på knappen Play for at køre den komplette kode, der er under menulinjen som vist nedenfor. Vi vil bemærke mellem kolonne1 og kolonne2, to nye tomme kolonner indsættes som vist nedenfor.
Eksempel 2 - VBA Indsæt kolonne
Der er en anden metode til at indsætte en kolonne. Denne metode inkluderer en kombination af forskellige kommandoer.
Trin 1: Indsæt et nyt modul fra menuen Indsæt.
Trin 2: Og skriv en underkategori i navnet på den udførte funktion som vist nedenfor eller i et hvilket som helst andet navn.
Kode:
Sub VBAColumn2 () End Sub
Trin 3: Ved hjælp af dimensionsvariabel DIM med ethvert alfabet eller navn skal du definere det som Range lad 'sige kolonne som vist nedenfor.
Kode:
Sub VBAColumn2 () Dim Column As Range End Sub
Trin 4: Følg nu rækkevidden, brug en sæt-funktion med en defineret dimension kolonne som vist nedenfor, efterfulgt af lige tegn (“=”).
Kode:
Sub VBAColumn2 () Dim Column As Range: Indstil kolonne = End Sub
Trin 5: Brug nu applikationsfunktion, der er indbygget VBA med defineret rækkevidde for komplet kolonne B.
Kode:
Sub VBAColumn2 () Dim Column As Range: Indstil kolonne = Application.Range ("B: B") End Sub
Trin 6: Brug nu kolonnevariabel med Indsæt-funktion som vist nedenfor.
Kode:
Sub VBAColumn2 () Dim Column As Range: Angiv kolonne = Application.Range ("B: B") Column.Insert End Sub Sub
Trin 7: Vi kan skifte for at indsætte en kolonne til højre eller venstre retning ved hjælp af kommandoen Skift. Normalt indsættes kolonne i højre retning altid fra den valgte referencecelle eller -kolonne.
Kode:
Sub VBAColumn2 () Dim Column As Range: Angiv kolonne = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub
Trin 8: Vælg til sidst oprindelsesreferenceformat fra højre eller nedenfor, som er til kolonne eller række afhængigt af typen af indsats.
Kode:
Sub VBAColumn2 () Dim Column As Range: Indstil kolonne = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub
Trin 9: Nu er det afsluttet. Vi kan kompilere koden og køre den. Vi vil se en ny kolonne mellem Colum1 og Column2 tilføjes som vist nedenfor.
Eksempel 3 - Indsæt kolonne i VBA
Dette eksempel er en anden nemmeste måde at indsætte en kolonne i VBA.
Trin 1: Indsæt et nyt modul
Trin 2: Tilføj en underkategori i navnet på VBA Indsæt kolonne som vist nedenfor.
Kode:
Sub VBAColumn3 () End Sub
Trin 3: Vælg først kolonnen eller cellehenvisningen, hvor vi vil tilføje en kolonne ved hjælp af Vælg som vist nedenfor.
Kode:
Sub VBAColumn3 () Kolonner ("B: B"). Vælg Afslut under
Trin 4: I den anden linje skal du bruge valgkommando sammen med Indsæt-funktion som vist nedenfor.
Kode:
Sub VBAColumn3 () Kolonner ("B: B"). Vælg valg.Indtast slutet Sub
Trin 5: Vælg til sidst den position, hvor vi vil flytte den indsatte nye kolonne, enten til højre eller venstre ved hjælp af Shift-funktion. Valget af at placere en ny kolonne er alt op til den enkeltes krav.
Kode:
Sub VBAColumn3 () Kolonner ("B: B"). Vælg valg.Insert Shift: = xlToRight End Sub
Trin 6: Dette afslutter vores kode. Nu kan vi kompilere koden for at finde ud af, om der er nogen fejl. Hvis der ikke findes nogen fejl, skal du køre koden. Vi vil se en ny kolonne tilføjes mellem kolonne1 og kolonne2 som vist nedenfor.
Eksempel 4 - VBA Indsæt kolonne
I dette eksempel lærer vi, hvordan man tilføjer nye kolonner efter hver allerede stående kolonne.
Trin 1: Indsæt nu et modul fra insert-menuen.
Trin 2: Tilføj derefter underkategori i navnet på VBA Indsæt kolonne med en række af numre.
Kode:
Sub VBAColumn4 () End Sub
Trin 3: Brug nu DIM til at definere en variabel i ethvert navn. Vi har brugt kolonne som heltal (i tilfælde af at der bruges tal)
Kode:
Sub VBAColumn4 () Dim kolonne Som heltal End Sub
Trin 4: Til en kolonne efter hver stående udfyldt kolonne, vil vi vælge og bruge kolonne (2) til at tilføje en ny kolonne som vist nedenfor.
Kode:
Sub VBAColumn4 () Dim kolonne som heltalskolonner (2) .Vælg slut sub
Trin 5: Åbn en For-Next-loop, hvor vi vil skrive betingelserne for at indsætte en kolonne efter hinanden som vist.
Kode:
Sub VBAColumn4 () Dim Column Som heltalskolonner (2) .Vælg til Sub Next til næste ende
Trin 6: Da vi kun har to kolonner i vores eksempeldata, så vi kun kunne tilføje en ny kolonne af disse kolonner. Så vi bruger 0 til 2 række sekvens kolonner.
Kode:
Sub VBAColumn4 () Dim kolonne som heltalskolonner (2) .Vælg for kolonne = 0 til 2 Næste slutning Sub
Trin 7: Brug ActiveCell-funktionen ved hjælp af ActiveCell-funktionen til at indsætte som vist nedenfor.
Kode:
Under VBAColumn4 () Dim kolonne som heltalskolonner (2) .Vælg for kolonne = 0 til 2 ActiveCell.EntireColumn.Insert Next Next Sub
Trin 8: Brug Offset til at placere den nyligt tilføjede kolonne ved hjælp af ActiveCell-funktionen. Vi bruger 0 og 2. position.
Kode:
Under VBAColumn4 () Dim kolonne som heltalskolonner (2) .Vælg for kolonne = 0 til 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) .Vælg Next Next Sub
Trin 9: Kompiler nu koden og kør den, hvis der ikke findes nogen fejl. Efter kolonne1 og kolonne2 vil vi se nye kolonner tilføjes.
Fordele ved Excel VBA Indsæt kolonne
- Det er nyttigt, når du hurtigt tilføjer en ny kolonne i et hvilket som helst celleområde.
- Det er let at implementere, selvom strukturen af koden er enorm.
- Hvis vi arbejder med en enorm kode, bliver en ny kolonne et behov for at udfylde koden, ved at bruge ovenstående eksempler vil gøre opgaven let.
Ting at huske
- Hvis du bruger eksempel-4, skal du huske at vælge kolonneområde, indtil tabellen er relevant.
- Gemme filen i makro aktivere excel, gemmer koden.
- Indsæt kun gældende og påkrævede kolonner for at undgå unødvendige kolonner for at blive tilføjet.
Anbefalede artikler
Dette er en guide til VBA Indsæt kolonne. Her diskuterer vi, hvordan man indsætter kolonne i Excel ved hjælp af VBA-kode sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -
- VBA VLOOKUP-funktion
- DCOUNT-funktion i Excel
- VBA Copy Paste
- COMBIN-funktion i Excel