Excel VBA stupac stupaca

U excelu, ako želimo umetnuti stupac, tada postoji više načina za to. Možemo kliknuti desno i odabrati padajući stupac s padajućeg popisa ili ako zajedno koristimo Ctrl + Shift + Plus (+) tipku. Ali što ako i taj proces automatiziramo stvaranjem makronaredbe putem VBA? Ovo je vrlo korisno kada radimo na stvaranju makronaredbe ogromne strukture kodiranja ili dodavanju stupca ili više stupaca što je također zadatak za obaviti. VBA ima funkciju Cijeli stupac, a za umetanje novog stupca koristi se funkcija Umetanje.

Kako umetnuti stupac u Excel VBA?

Naučit ćemo kako umetnuti stupac u excel pomoću VBA koda s nekoliko primjera.

Možete preuzeti ovaj VBA uložak stupca Excel predložak ovdje - VBA Umetni stupac Excel predložak

Primjer br. 1 - VBA stupac za umetanje

Imamo tablicu od 2 stupca i 11 redaka kao što je prikazano u nastavku. Sada ćemo automatizirati postupak umetanja stupaca na različite načine.

Za to slijedite dolje navedene korake:

Korak 1: Najprije umetnite novi modul u VBA, s izbornika Umetanje kao što je prikazano u nastavku.

Korak 2: Sada pokrenite potkategoriju u nazivu izvršene funkcije poput stupca za umetanje VBA ili u bilo kojem drugom nazivu kao što je prikazano u nastavku.

Kodirati:

 Sub VBAColumn1 () Kraj Sub

Korak 3: Prvo odaberite raspon ćelija ili cjelovite stupce u koje želimo umetnuti stupac nakon čega slijedi naredba Insert kao što je prikazano u nastavku. Naredba Umetanje omogućit će umetanje bilo kojeg retka ili stupca ili ćelije u odabrani stupac ili ćeliju raspona.

Kodirati:

 Pod VBACkolona1 () raspon (): B: B). Umetnite krajnji pod

Korak 4: Sada odaberite raspon ćelija kao referencu odakle želimo umetnuti stupac kao što je prikazano u nastavku.

Kodirati:

 Pod VBAC područje raspona1 () ("B: B"). Umetni raspon ("B4") Kraj Pod

Korak 5 : Kao što je objašnjeno u objašnjenju, koristit ćemo cijeli stupac s funkcijom Umetanje, kao što je prikazano u nastavku. To će stupac omogućiti umetanje.

Kodirati:

 Pod VBAColumn1 () raspon ("B: B"). Umetni raspon ("B4"). EntireColumn.Insert End Sub

Korak 6: Sada sastavite kôd pritiskom na funkcionalnu tipku F8, a zatim kliknite na gumb Reproduciraj da biste pokrenuli cijeli kod koji se nalazi ispod trake izbornika kao što je prikazano u nastavku. Primjetit ćemo između stupca1 i stupca2, dva nova prazna stupca bit će umetnuta kao što je prikazano u nastavku.

Primjer br. 2 - umetnuti stupac VBA

Postoji još jedna metoda umetanja stupca. Ova metoda uključuje kombinaciju različitih naredbi.

Korak 1: Umetnite novi modul iz izbornika Umetanje.

Korak 2: I upišite podkategoriju u ime Izvršene funkcije kao što je prikazano ispod ili u bilo kojem drugom nazivu.

Kodirati:

 Sub VBAColumn2 () Kraj Sub

Korak 3: Pomoću dimenzijske varijable DIM bilo koje abecede ili imena definirajte je kao raspon, recimo Stupac kao što je prikazano u nastavku.

Kodirati:

 Sub VBAColumn2 () Dim stupac kao raspon kraj Sub

Korak 4: Slijedeći raspon, koristite funkciju Set s stupcem definirane dimenzije, kao što je prikazano u nastavku, nakon čega slijedi znak jednakosti ("=").

Kodirati:

 Sub VBAColumn2 () Dim stupac u rasponu: Postavite stupac = End Sub

Korak 5: Sada koristite aplikacijsku funkciju koja je ugrađena VBA s definiranim rasponom kompletnog stupca B.

Kodirati:

 Sub VBAColumn2 () Dim Stupac u rasponu: Postavite stupac = Application.Range ("B: B") End Sub

Korak 6: Sada koristite varijablu stupca s funkcijom Umetanje kao što je prikazano u nastavku.

Kodirati:

 Sub VBAColumn2 () Dim Stupac u rasponu: Stupac stupaca = Application.Range ("B: B") Stupac.Insert End Sub

Korak 7: Pomoću naredbe Shift možemo pomaknuti stupac u desno ili lijevo. Stupac se uobičajeno ubacuje u desni smjer uvijek iz referentne odabrane ćelije ili stupca.

Kodirati:

 Pod VBAColumn2 () Dim Stupac u rasponu: Postavite stupac = Application.Range ("B: B") Stupac.Insert Shift: = xlShiftToRight, Kraj Sub

Korak 8: Napokon odaberite referentni format podrijetla s desne ili donje strane koji je za Stupac ili Red, ovisno o vrsti umetka.

Kodirati:

 Pod VBAColumn2 () Dim Stupac u rasponu: Postavite stupac = Application.Range ("B: B") Stupac.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Korak 9: Sada je dovršen. Kôd možemo sastaviti i pokrenuti ga. Vidjet ćemo novi stupac između Colum1 i Column2 bit će dodan kao što je prikazano u nastavku.

Primjer # 3 - Umetnuti stupac VBA

Ovaj je primjer još jedan najjednostavniji način umetanja stupca u VBA.

Korak 1: Umetnite novi modul

Korak 2: Dodajte potkategoriju u naziv VBA umetnuti stupac kao što je prikazano u nastavku.

Kodirati:

 Sub VBAColumn3 () Kraj Sub

Korak 3: Prvo odaberite stupac ili referencu ćelije gdje želimo dodati stupac uz pomoć Select kao što je prikazano u nastavku.

Kodirati:

 Sub VBAColumn3 () Stupci ("B: B") Odaberite End Sub

Korak 4: U drugom retku koristite naredbu Selection zajedno s funkcijom Umetanje kao što je prikazano u nastavku.

Kodirati:

 Sub VBAColumn3 () Stupci ("B: B"). Selection.Insert End Sub

Korak 5: Napokon odaberite položaj na koji želimo pomaknuti umetnuti novi stupac, bilo desno ili lijevo uz pomoć Shift funkcije. Izbor postavljanja novog stupca potpuno je prema zahtjevu pojedinca.

Kodirati:

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

Korak 6: Time se dovršava naš kod. Sada možemo sastaviti kod da bismo utvrdili ima li pogreške. Ako nije pronađena pogreška, pokrenite kôd. Vidjet ćemo novi stupac bit će dodan između stupca1 i stupca2 kao što je prikazano u nastavku.

Primjer br. 4 - umetnuti stupac VBA

U ovom ćemo primjeru naučiti kako dodati nove stupce nakon svakog već stajaćeg stupca.

Korak 1: Sada umetnite modul iz izbornika za umetanje.

Korak 2: Nakon toga dodajte podkategoriju u naziv VBA Umetni stupac s nizom brojeva.

Kodirati:

 Sub VBAColumn4 () Kraj Sub

Korak 3: Sada koristite DIM za definiranje varijable u bilo kojem imenu. Stupac smo koristili kao cjelobrojni (u slučaju brojeva se koriste)

Kodirati:

 Sub VBAColumn4 () Dim Stupac kao cijeli broj Pot

Korak 4: U stupac nakon svakog stojećeg ispunjenog stupca odabiremo i koristimo stupac (2) za dodavanje novog stupca kao što je prikazano u nastavku.

Kodirati:

 Sub VBAColumn4 () Dim Stupac kao Integer Stupci (2) .Select End Sub

Korak 5: Otvorite petlju For-Next, gdje ćemo napisati uvjete za umetanje stupca jedan za drugim kao što je prikazano.

Kodirati:

 Sub VBAColumn4 () Stupac za dim kao cjelobrojni stupci (2). Odaberite za sljedeći kraj Sub

Korak 6: Kako u uzorke imamo samo 2 stupca, tako da možemo dodati samo novi stupac samo tih stupaca. Stoga koristimo 0 do 2 raspona stupaca s redoslijedom.

Kodirati:

 Sub VBAColumn4 () Dim Stupac kao Integer Stupci (2) .Select For Column = 0 do 2 Sljedeći kraj Sub

Korak 7: Uz pomoć ActiveCell funkcije koristite EntireColumn za umetanje kao što je prikazano u nastavku.

Kodirati:

 Sub VBAColumn4 () Dim Stupac kao Integer Stupci (2) .Select for Column = 0 do 2 ActiveCell.EntireColumn.Insert Next End Sub

Korak 8: Pomoću funkcije ActiveCell, upotrijebite Offset da biste postavili novo dodani stupac. Koristimo 0 i 2. poziciju.

Kodirati:

 Sub VBAColumn4 () Dim Stupac kao Integer Stupci (2) .Select for Column = 0 do 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) .Select Next End Sub

Korak 9: Sada sastavite kod i pokrenite ga, ako nije pronađena nijedna greška. Vidjet ćemo, nakon stupca1 i stupca2, dodaju se novi stupci.

Prednosti Excel VBA umetnuti stupac

  • Korisno je što brže dodavanje novog stupca u bilo koji raspon ćelija.
  • To je lako implementirati čak i ako je struktura koda ogromna.
  • Ako radimo na ogromnom kodu, novi stupac postaje potreba za dovršenjem koda, pomoću gornjih primjera zadatak će biti lakši.

Stvari koje treba zapamtiti

  • Ako koristite primjer-4, ne zaboravite odabrati raspon stupaca dok tablica nije primjenjiva.
  • Spremanje datoteke u makro omogućuju excel, sprema kôd.
  • Umetnite samo primjenjive i potrebne stupce da biste izbjegli nepotrebne stupce za dodavanje.

Preporučeni članci

Ovo je vodič za VBA stupac za umetanje. Ovdje smo raspravljali o tome kako umetnuti Stupac u Excel pomoću VBA koda zajedno s praktičnim primjerima i download-ovim Excel predloška. Možete i pregledati naše druge predložene članke -

  1. VBA VLOOKUP funkcija
  2. DCOUNT funkcija u Excelu
  3. VBA zalijepi za kopiranje
  4. COMBIN funkcija u Excelu

Kategorija:

VBA