Uobičajeno u Excelovom radnom listu imamo dvije različite metode za brisanje stupaca, jedan je tipkovni prečac, a drugi pomoću metode desnim klikom i umetanjem, ali u VBA moramo koristiti naredbu delete i cijeli stupac za brisanje bilo kojeg stupca zajedno, trik je to je da ako trebamo izbrisati jedan stupac dajemo referencu jednog stupca, ali za više stupaca dajemo više referenci stupaca.
Excel VBA Izbriši stupac
Mnoge radnje u Excelu izvodimo poput izrezivanja, kopiranja, lijepljenja, dodavanja, brisanja, umetanja i mnogih takvih stvari redovito radimo. Sve ove radnje možemo koristiti pomoću VBA kodiranja. Jedan od važnih koncepata koji moramo naučiti u VBA-u je "brisanje stupca". U ovom ćemo vam članku pokazati kako koristiti ovu opciju Delete Column u VBA.
Što čini brisanje stupca u programu Excel VBA?
Kao što naziv govori, izbrisat će navedeni stupac. Da bismo izvršili ovaj zadatak, prvo moramo odrediti koji stupac moramo izbrisati. Odabir stupaca za brisanje razlikuje se od jednog do drugog scenarija, pa ćemo u ovom članku pokriti neke od važnih i često suočenih scenarija.
Brisanje stupaca je jednostavno. Prvo, za odabir stupca trebamo koristiti svojstvo COLUMNS, pa je ispod sintaksa metode brisanja stupca u VBA.
Stupci (Referenca za stupce) .Izbriši
Tako možemo konstruirati kod ovako:
Stupci (2) .Izbriši ili Stupci ("B"). Izbriši
Ovo će izbrisati stupac broj 2, tj. Stupac B.
Ako želimo izbrisati više stupaca, ne možemo unijeti stupce. Moramo referencirati stupce prema zaglavljima stupaca, tj. Abecedi.
Stupci ("A: D"). Izbriši
Ovo će izbrisati stupac od A do D, tj. Prva 4 stupca.
Kao što je ovo, u VBA možemo koristiti metodu "Delete Column" za brisanje određenih stupaca. U odjeljku u nastavku vidjet ćemo još primjera za njegovo bolje razumijevanje. Nastavi čitati.
Primjeri Excel VBA metode brisanja stupaca
Ispod su primjeri za brisanje stupaca pomoću VBA.
Primjer # 1 - Korištenje metode brisanja
Pretpostavimo da imate podatkovnu tablicu, nešto poput dolje navedenog.
Ako želimo izbrisati mjesec stupaca "ožujak", prvo odaberite svojstvo stupaca.
Kodirati:
Sub Delete_Example1 () Stupci (Kraj Sub
Navedite broj stupca ili abecedu. U ovom slučaju to je ili 3 ili C.
Kodirati:
Podizbriši_Primjer1 () Stupci (3). Kraj pod
Upotrijebite metodu Delete.
Napomena: nećete dobiti popis IntelliSense za odabir metode Delete. Samo upišite "Delete"Kodirati:
Podbriši_primjer1 () Stupci (3) .Izbriši kraj pod
Ili možete unijeti ovakvu adresu stupca.
Kodirati:
Sub Delete_Example1 () Stupci ("C"). Izbriši kraj Sub
Pokrenite ovaj kôd pomoću tipke F5, ili možete pokrenuti ručno i vidjeti rezultat.
Oba koda učinit će isti posao brisanja spomenutog stupca.
Ako želimo izbrisati više stupaca, moramo ih spomenuti u abecedi. Ovdje ne možemo koristiti brojeve stupaca.
Ako želimo izbrisati stupce 2 do 4, možemo proslijediti kod kao u nastavku.
Kodirati:
Sub Delete_Example1 () Stupci ("C: D"). Izbriši Kraj Sub
Run this code manually through the run option or press the F5 key. This will delete the columns “Feb,” “Mar,” and “Apr.”
Example #2 - Delete Columns with Worksheet Name
The above is an overview of how to delete columns using VBA code. However, that is not the good practice of deleting columns. Without referring the worksheet name, it is dangerous to blindly delete the column.
If you have not mentioned the worksheet name, then whichever sheet is active, it will delete columns of that sheet.
First, we need to select the worksheet by its name.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Select End Sub
After selecting the sheet, we need to select the columns. We can also select the columns by using the VBA RANGE object as well.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Select Range("B:D").Delete End Sub
This will delete the columns B to D of the worksheet “Sales Sheet.” For this code, it doesn’t matter which is active. Still, it will delete the mentioned columns of that sheet only.
We can also construct the VBA code in the single line itself.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Range("B:D").Delete End Sub
This also deletes the columns “B to D” without selecting the worksheet “Sales Sheet.”
Example #3 - Delete Blank Columns
Assume you have data that has alternative blank columns like the below.
So, delete every alternative column we can use the below code.
Code:
Sub Delete_Example3() Dim k As Integer For k = 1 To 4 Columns(k + 1).Delete Next k End Sub
Run this code using the F5 key or manually. Then, it will delete all the alternative blank columns, and our data will look like this.
Primjer # 4 - Izbrišite stupce praznih ćelija
Pogledajte ovaj primjer. Postoje određene situacije u kojima trebamo izbrisati cijeli stupac ako se u rasponu podataka nađe bilo koja prazna stanica. Za primjer razmotrite podatke u nastavku.
Sve stanice žute boje su prazne. Dakle, ovdje je moj zahtjev izbrisati sve stupce praznih ćelija. To će učiniti donji kod.
Kodirati:
Podizbriši_Primjer4 () Raspon ("A1: F9"). Odaberite Selection.SpecialCells (xlCellTypeBlanks) .Odaberite Selection.EntireColumn.Delete End Sub
Dopustite mi da vam objasnim ovaj kod red po redak.
Naši su podaci od A1 do F9, pa prvo moram odabrati taj raspon, a donji kôd to hoće.
Raspon ("A1: F9"). Odaberite
U ovom odabranom rasponu stanica moram odabrati prazne ćelije. Dakle, da bismo odabrali praznu ćeliju, trebamo posebno svojstvo ćelija, a u tom smo svojstvu koristili tip ćelije kao praznu.
Selection.SpecialCells (xlCellTypeBlanks) .Odaberite
Dalje, odabrat će sve prazne ćelije, a u odabiru brišemo cijeli stupac odabira.
Selection.EntireColumn.Delete
Tako će naš krajnji rezultat izgledati ovako.
Gdje god je pronašao praznu ćeliju, izbrisao je te prazne ćelije cijeli stupac.
Ovdje možete preuzeti ovaj Excel VBA izbrisani stupac - VBA predložak za brisanje stupca
