Excel VBA Sett inn kolonne
Hvis vi ønsker å sette inn en kolonne, er det flere måter å gjøre det på. Vi kan klikke til høyre og velge Sett inn kolonne fra rullegardinmenyen eller bruke Ctrl + Shift + Plus (+) -tasten sammen. Men hva hvis vi automatiserer denne prosessen også ved å lage en makro gjennom VBA? Dette er ganske nyttig når vi jobber med å lage en makro med enorm kodingstruktur eller legge til en kolonne eller flere kolonner som også er en oppgave å utføre. VBA har en hel kolonne, og Sett inn-funksjonen brukes til å sette inn en ny kolonne.
Hvordan sette inn kolonne i Excel VBA?
Vi lærer hvordan du setter inn en kolonne i Excel ved hjelp av VBA-kode med få eksempler.
Du kan laste ned denne VBA Sett inn kolonne Excel-mal her - VBA Sett inn kolonne Excel-malEksempel 1 - VBA Sett inn kolonne
Vi har en tabell med 2 kolonner og 11 rader som vist nedenfor. Nå vil vi automatisere prosessen med å sette inn kolonner på forskjellige måter.
Følg trinnene nedenfor for å gjøre dette:
Trinn 1: Sett først inn en ny modul i VBA fra Sett inn menyalternativet som vist nedenfor.
Trinn 2: Start nå en underkategori i navnet på utført funksjon som VBA Sett inn kolonne eller i et hvilket som helst annet navn som vist nedenfor.
Kode:
Sub VBAColumn1 () Slutt Sub
Trinn 3: Velg først området med celler eller komplette kolonner der vi vil sette inn en kolonne etterfulgt av Sett inn kommando som vist nedenfor. Kommandoen Sett inn vil gjøre det mulig å sette inn en hvilken som helst rad eller kolonne eller en celle i valgt område kolonne eller celle.
Kode:
Sub VBAColumn1 () Range ("B: B"). Sett inn End Sub
Trinn 4: Velg nå celleområdet som referanse der vi vil sette inn en kolonne som vist nedenfor.
Kode:
Sub VBAColumn1 () Range ("B: B"). Sett inn Range ("B4") End Sub
Trinn 5 : Som diskutert i forklaringen, vil vi bruke hele kolonnen med funksjonen Sett inn som vist nedenfor. Dette gjør at kolonnen kan settes inn.
Kode:
Sub VBAColumn1 () Range ("B: B"). Sett inn Range ("B4"). HeleColumn.Insert End Sub
Trinn 6: Sett sammen koden ved å trykke på funksjonstasten F8 og klikk deretter på Spill-knappen for å kjøre den komplette koden som er under menylinjen som vist nedenfor. Vi vil merke mellom kolonne1 og kolonne2, to nye blanke kolonner blir satt inn som vist nedenfor.
Eksempel 2 - VBA Sett inn kolonne
Det er en annen metode for å sette inn en kolonne. Denne metoden inkluderer en kombinasjon av forskjellige kommandoer.
Trinn 1: Sett inn en ny modul fra Sett inn-menyen.
Trinn 2: Og skriv en underkategori i navnet på Utført-funksjonen som vist nedenfor eller i et hvilket som helst annet navn.
Kode:
Sub VBAColumn2 () Slutt Sub
Trinn 3: Ved hjelp av dimensjonsvariabel DIM med hvilket som helst alfabet eller navn, definer det som Range la 'si Kolonne som vist nedenfor.
Kode:
Sub VBAColumn2 () Dim Column As Range End Sub
Trinn 4: Nå følger du området, bruker du en Set-funksjon med definert dimensjon Kolonne som vist nedenfor, etterfulgt av likhetstegn (“=”).
Kode:
Sub VBAColumn2 () Dim Column As Range: Set Column = End Sub
Trinn 5: Bruk nå applikasjonsfunksjon som er innebygd VBA med definert rekkevidde for komplett kolonne B.
Kode:
Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") End Sub
Trinn 6: Bruk nå kolonnevariabel med Sett inn funksjon som vist nedenfor.
Kode:
Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert End Sub Sub
Trinn 7: Vi kan skifte for å sette inn en kolonne i høyre eller venstre retning ved hjelp av Shift-kommandoen. Normalt settes kolonne i riktig retning, alltid fra den valgte referansecellen eller kolonnen.
Kode:
Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub
Trinn 8: Velg til slutt opprinnelsesreferanseformat fra høyre eller under som er for kolonne eller rad, avhengig av type innsett.
Kode:
Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub
Trinn 9: Nå er den fullført. Vi kan sette sammen koden og kjøre den. Vi vil se en ny kolonne mellom Colum1 og Column2 vil bli lagt til som vist nedenfor.
Eksempel # 3 - VBA Sett inn kolonne
Dette eksemplet er en annen enkleste måte å sette inn en kolonne i VBA.
Trinn 1: Sett inn en ny modul
Trinn 2: Legg til en underkategori i navnet til VBA Insert Column som vist nedenfor.
Kode:
Sub VBAColumn3 () Slutt Sub
Trinn 3: Velg først kolonnen eller cellehenvisningen der vi vil legge til en kolonne ved hjelp av Velg som vist nedenfor.
Kode:
Sub VBAColumn3 () Columns ("B: B"). Velg Slutt Sub
Trinn 4: I den andre linjen, bruk valgkommando sammen med Sett inn funksjon som vist nedenfor.
Kode:
Sub VBAColumn3 () Kolonner ("B: B"). Velg valg.Indtast slutten Sub
Trinn 5: Velg til slutt posisjonen der vi vil flytte den nye kolonnen, enten til høyre eller venstre ved hjelp av Shift-funksjonen. Valget av å plassere en ny kolonne er alt opp til individets krav.
Kode:
Sub VBAColumn3 () Kolonner ("B: B"). Velg valg.Insert Shift: = xlToRight End Sub
Trinn 6: Dette fullfører koden vår. Nå kan vi sammenstille koden for å finne ut om det er noen feil. Hvis det ikke er funnet noen feil, kjør koden. Vi vil se en ny kolonne legges til mellom kolonne1 og kolonne2 som vist nedenfor.
Eksempel 4 - Sett inn VBA-kolonne
I dette eksemplet lærer vi hvordan du legger til nye kolonner etter hver allerede stående kolonne.
Trinn 1: Sett nå inn en modul fra insert-menyen.
Trinn 2: Legg deretter til underkategori i navnet til VBA Sett inn kolonne med en rekkefølge.
Kode:
Sub VBAColumn4 () Slutt Sub
Trinn 3: Bruk nå DIM til å definere en variabel i hvilket som helst navn. Vi har brukt kolonne som heltall (i tilfelle tall brukes)
Kode:
Sub VBAColumn4 () Dim Column As Integer End Sub
Trinn 4: Til en kolonne etter hver stående fylte kolonne, vil vi velge og bruke kolonne (2) for å legge til en ny kolonne som vist nedenfor.
Kode:
Sub VBAColumn4 () Dim Column As Heiltals Kolonner (2). Velg Slutt Sub
Trinn 5: Åpne en For-Neste-loop, hvor vi vil skrive betingelsene for å sette inn en kolonne etter hverandre som vist.
Kode:
Sub VBAColumn4 () Dim Column As Heiltalssøyler (2). Velg for neste slutt Sub
Trinn 6: Ettersom vi bare har to kolonner i eksempeldataene, kan vi bare legge til en ny kolonne av disse kolonnene. Så vi bruker 0 til 2 rekke sekvenskolonner.
Kode:
Sub VBAColumn4 () Dim Column As Heeltalskolonner (2). Velg For Column = 0 til 2 Next End Sub
Trinn 7: Ved hjelp av ActiveCell-funksjonen bruker du heleColumn for å sette inn som vist nedenfor.
Kode:
Sub VBAColumn4 () Dim Column As Heiltals Kolonner (2). Velg For Column = 0 To 2 ActiveCell.EntireColumn.Insert Next End Sub
Trinn 8: Ved hjelp av ActiveCell-funksjonen, bruk Offset for å plassere den nylig tillagte kolonnen. Vi bruker 0 og 2. posisjon.
Kode:
Sub VBAColumn4 () Dim Column As Heiltals Kolonner (2). Velg For Column = 0 To 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Velg Next End Sub
Trinn 9: Sett sammen koden og kjør den hvis ingen feil ble funnet. Etter kolonne1 og kolonne2 vil vi se nye kolonner legges til.
Fordeler med Excel VBA Insert Column
- Det er nyttig når du raskt legger til en ny kolonne i alle celler.
- Det er enkelt å implementere selv om strukturen i koden er enorm.
- Hvis vi jobber med en enorm kode, blir en ny kolonne et behov for å fullføre koden, ved å bruke eksemplene ovenfor vil gjøre oppgaven enkel.
Ting å huske
- Hvis du bruker eksempel-4, husk å velge kolonneområde til tabellen er aktuelt.
- Lagring av filen i makroaktiver Excel, lagrer koden.
- Sett inn bare aktuelle og påkrevde kolonner for å unngå unødvendige kolonner for å bli lagt til.
Anbefalte artikler
Dette er en guide til VBA Insert Column. Her diskuterer vi hvordan du setter inn kolonne i Excel ved hjelp av VBA-kode sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -
- VBA VLOOKUP-funksjon
- DCOUNT-funksjon i Excel
- VBA Copy Paste
- KOMBIN Funksjon i Excel