Excel VBA Vstavi stolpec

V excelu, če želimo vstaviti stolpec, potem obstaja več načinov. Lahko kliknemo desno in na spustnem seznamu izberemo Vstavi stolpec ali skupaj uporabimo tipko Ctrl + Shift + Plus (+). Kaj pa, če ta postopek tudi avtomatiziramo z ustvarjanjem makra prek VBA? To je zelo koristno, ko delamo na ustvarjanju makra velike strukture kodiranja ali dodajanju stolpca ali več stolpcev, kar je tudi naloga. VBA ima funkcijo Celoten stolpec, za vstavljanje novega stolpca pa se uporablja funkcija Vstavljanje.

Kako vstaviti stolpec v Excel VBA?

Naučili se bomo, kako vstaviti stolpec v excel z uporabo kode VBA z nekaj primeri.

Predlogo VBA Insert Column Excel lahko prenesete tukaj - VBA Vstavi predlogo Excel Column

Primer # 1 - VBA Vstavi stolpec

Imamo tabelo z 2 stolpci in 11 vrstic, kot je prikazano spodaj. Zdaj bomo postopek vstavljanja stolpcev avtomatizirali na različne načine.

Za to sledite spodnjim korakom:

1. korak: V VBA najprej vstavite nov modul z menija Vstavi, kot je prikazano spodaj.

2. korak: Zdaj zaženite podkategorijo v imenu izvedene funkcije, kot je VBA Vstavi stolpec ali v katerem koli drugem imenu, kot je prikazano spodaj.

Koda:

 Sub VBAColumn1 () Konec Sub

Korak 3: Najprej izberite obseg celic ali celotne stolpce, kamor želimo vstaviti stolpec, ki mu sledi ukaz Insert, kot je prikazano spodaj. Ukaz Vstavi bo omogočil vstavljanje poljubne vrstice ali stolpca ali celice v izbrani stolpec ali celico v območju.

Koda:

 Sub VBAColumn1 () Obseg (): B: B). Vstavite konec Sub

4. korak: Zdaj izberite območje celic kot referenco, od koder želimo vstaviti stolpec, kot je prikazano spodaj.

Koda:

 Sub VBAColumn1 () Obseg ("B: B"). Vstavite obseg ("B4") End Sub

5. korak : Kot je razloženo v razlagi, bomo uporabili cel stolpec s funkcijo Vstavi, kot je prikazano spodaj. To bo omogočilo vstavljanje stolpca.

Koda:

 Pod VBAColumn1 () Obseg ("B: B"). Vstavite obseg ("B4"). EntireColumn.Insert End Sub

6. korak: Zdaj sestavite kodo s pritiskom na funkcijsko tipko F8 in nato kliknite gumb Predvajaj, da zaženete celotno kodo pod menijsko vrstico, kot je prikazano spodaj. Med stolpcem1 in stolpcem2 bomo opazili, vstavljena bosta dva nova prazna stolpca, kot je prikazano spodaj.

Primer # 2 - VBA Vstavi stolpec

Obstaja še ena metoda vstavljanja stolpca. Ta metoda vključuje kombinacijo različnih ukazov.

1. korak: V meni Vstavljanje vstavite nov modul.

2. korak: in v ime izvedene funkcije napišite podkategorijo, kot je prikazano spodaj ali v katerem koli drugem imenu.

Koda:

 Sub VBAColumn2 () End Sub

3. korak: S pomočjo spremenljivke dimenzije DIM s katero koli abecedo ali imenom ga določite kot obseg, recimo stolpec, kot je prikazano spodaj.

Koda:

 Pod VBAColumn2 () zatemnjen stolpec kot obseg konec pod

Korak 4: Zdaj po območju, uporabite funkcijo Set z definiranim dimenzijskim stolpcem, kot je prikazano spodaj, ki mu sledi znak enakosti ("=").

Koda:

 Pod VBAColumn2 () Zatemnjen stolpec v razponu: Nastavite stolpec = End Sub

5. korak: Zdaj uporabite aplikacijsko funkcijo, ki je vgrajena VBA z definiranim razponom celotnega stolpca B.

Koda:

 Pod VBAColumn2 () Zatemnjen stolpec v razponu: Nastavite stolpec = Application.Range ("B: B") End Sub

6. korak: Zdaj uporabite spremenljivko stolpca s funkcijo Vstavljanje, kot je prikazano spodaj.

Koda:

 Pod VBAColumn2 () Zatemnjen stolpec v razponu: Stolpec nastavite = Application.Range ("B: B") Column.Insert End Sub

7. korak: S pomočjo ukaza Shift lahko vstavimo stolpec v desno ali levo smer. Običajno se stolpec vstavi v desno smer vedno iz referenčne izbrane celice ali stolpca.

Koda:

 Pod VBAColumn2 () zatemnjen stolpec v razponu: nastavite stolpec = stolpec Application.Range ("B: B") Stolpec. Vstavite Shift: = xlShiftToRight, konec pod

Korak 8: Končno izberite izvorno referenčno obliko desno ali spodaj, ki je za stolpec ali vrstico, odvisno od vrste vstavka.

Koda:

 Pod VBAColumn2 () Dim stolpec v razponu: Nastavite stolpec = Application.Range ("B: B") Stolpec. Namestite Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

9. korak: Zdaj je končan. Kodo lahko sestavimo in jo zaženemo. Videli bomo nov stolpec med Colum1 in Column2, kot je prikazano spodaj.

Primer # 3 - VBA Vstavi stolpec

Ta primer je še en najlažji način za vstavljanje stolpca v VBA.

1. korak: Vstavite nov modul

2. korak: V ime VBA Vstavi stolpec dodajte podkategorijo, kot je prikazano spodaj.

Koda:

 Sub VBAColumn3 () End Sub

3. korak: Najprej izberite stolpec ali sklic celice, kamor želimo dodati stolpec s pomočjo Select, kot je prikazano spodaj.

Koda:

 Pod VBAColumn3 () Stolpci ("B: B") Izberite End Sub

4. korak: V drugi vrstici uporabite ukaz Selection in funkcijo Vstavi, kot je prikazano spodaj.

Koda:

 Pod VBAColumn3 () Stolpci ("B: B"). Izberite Selection.Insert End Sub

Korak 5: Končno s pomočjo funkcije Shift izberite položaj, kamor želimo vstaviti nov stolpec, desno ali levo. Izbira novega stolpca je odvisna od posameznika.

Koda:

 Pod VBAColumn3 () Stolpci ("B: B"). Izberite Selection.Insert Shift: = xlToRight End Sub

6. korak: S tem dopolnimo našo kodo. Zdaj lahko sestavimo kodo in ugotovimo, ali obstaja kakšna napaka. Če napake ni mogoče najti, zaženite kodo. Videli bomo, da bo nov stolpec dodan med stolpcem1 in stolpcem2, kot je prikazano spodaj.

Primer # 4 - VBA Vstavi stolpec

V tem primeru se bomo naučili dodati nove stolpce po vsakem že stoječem stolpcu.

1. korak: Zdaj vstavite modul iz menija za vstavljanje.

Korak 2: Po tem dodajte podkategorijo v ime VBA Vstavi stolpec z zaporedjem števil.

Koda:

 Sub VBAColumn4 () End Sub

3. korak: Zdaj uporabite DIM, da določite spremenljivko v katerem koli imenu. Stolpec smo uporabili kot celo število (če se uporabljajo številke)

Koda:

 Sub VBAColumn4 () Dim stolpec kot celoten konec Pod

4. korak: V stolpec po vsakem stoječem napolnjenem stolpcu bomo izbrali in uporabili stolpec (2) za dodajanje novega stolpca, kot je prikazano spodaj.

Koda:

 Sub VBAColumn4 () Dim stolpec kot stolpci s celimi stolpci (2) .Izberite End Sub

5. korak: Odprite zanko For-Next, kjer bomo zapisali pogoje za vstavljanje stolpca drug za drugim, kot je prikazano.

Koda:

 Pod VBAColumn4 () zatemnjen stolpec kot stolpci celih števil (2) .Izberite za naslednji konec pod

6. korak: Ker imamo v naših vzorčnih podatkih le dva stolpca, smo lahko dodali samo nov stolpec samo teh stolpcev. Zato uporabljamo od 0 do 2 razpona stolpcev zaporedja.

Koda:

 Pod VBAColumn4 () zatemnjen stolpec kot cel stolpec (2). Izberite za stolpec = 0 do 2 naslednji konec pod

7. korak: S pomočjo funkcije ActiveCell vstavite EntireColumn, kot je prikazano spodaj.

Koda:

 Pod VBAColumn4 () Dim stolpec kot stolpci s celimi stolpci (2). Izberite za stolpec = 0 do 2 ActiveCell.EntireColumn.Insert Next End Sub

8. korak: S pomočjo funkcije ActiveCell uporabite Offset, da postavite novo dodan stolpec. Uporabljamo 0 in 2. položaj.

Koda:

 Pod VBAColumn4 () Dim stolpec kot stolpci s celimi stolpci (2). Izberite stolpec = 0 do 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Izberite Naslednji konec Pod

9. korak: Zdaj sestavite kodo in jo zaženite, če napake ni bilo mogoče najti. Po stolpcu1 in stolpcu2 bomo videli nove stolpce.

Prednosti Excela VBA Vstavi stolpec

  • Koristno je kot hitro dodajanje novega stolpca v poljuben obseg celic.
  • Izvedljivo je enostavno, tudi če je struktura kode ogromna.
  • Če delamo na ogromni kodi, nov stolpec postane potreba po dokončanju kode, z uporabo zgornjih primerov bo naloga olajšana.

Stvari, ki jih je treba zapomniti

  • Če uporabljate primer-4, ne pozabite izbrati obsega stolpcev, dokler ni uporabna tabela.
  • Shranjevanje datoteke v makro omogoči excel, koda shrani.
  • Vstavite samo ustrezne in zahtevane stolpce, da preprečite dodajanje nepotrebnih stolpcev.

Priporočeni članki

To je vodnik po VBA vstavljenem stolpcu. Tukaj razpravljamo o tem, kako vstaviti stolpec v Excel z uporabo VBA kode skupaj s praktičnimi primeri in naložljivo predlogo excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. VBA VLOOKUP funkcija
  2. DCOUNT funkcija v Excelu
  3. VBA Kopiraj prilepi
  4. Funkcija COMBIN v Excelu

Kategorija:

VBA