Običajno imamo v delovnem listu Excela dva različna načina za brisanje stolpcev, pri čemer je eden bližnjica na tipkovnici, drugi pa z uporabo metode z desno miškino tipko in vstavi, v VBA pa moramo ukaz delete in celoten stavek stolpca izbrisati skupaj s katerim koli stolpcem. to je, da če moramo izbrisati en stolpec, damo sklic na en stolpec, za več stolpcev pa več sklicev na stolpce.
Excel VBA Izbriši stolpec
V Excelu izvajamo veliko dejanj, kot so izrezovanje, kopiranje, lepljenje, dodajanje, brisanje, vstavljanje in številne take stvari, ki jih počnemo redno. Vsa ta dejanja lahko uporabimo s pomočjo kodiranja VBA. Eden pomembnih konceptov, ki se ga moramo naučiti, je v VBA »brisanje stolpca«. V tem članku vam bomo pokazali, kako uporabljati to možnost Izbriši stolpec v VBA.
Kaj naredi brisanje stolpca v Excelu VBA?
Kot že ime pove, bo izbrisal navedeni stolpec. Za izvedbo te naloge moramo najprej določiti, kateri stolpec moramo izbrisati. Izbira stolpcev, ki jih želite izbrisati, se razlikuje od scenarija do scenarija, zato bomo v tem članku zajeli nekaj pomembnih in pogosto soočenih scenarijev.
Brisanje stolpcev je enostavno. Najprej moramo za izbiro stolpca uporabiti lastnost COLUMNS, zato je spodaj sintaksa metode Izbriši stolpec v VBA.
Stolpci (sklic na stolpec) .Izbriši
Kodo lahko torej sestavimo tako:
Stolpci (2). Izbriši ali Stolpci (»B«). Izbriši
S tem boste izbrisali stolpec številka 2, tj. Stolpec B.
Če želimo izbrisati več stolpcev, stolpcev ne moremo vnesti. Stolpce moramo sklicevati na glave stolpcev, tj. Abecede.
Stolpci (»A: D«). Izbriši
To bo izbrisalo stolpec od A do D, tj. Prve 4 stolpce.
Tako lahko tudi v VBA uporabimo metodo »Izbriši stolpec« za brisanje določenih stolpcev. V spodnjem razdelku bomo videli več primerov za boljše razumevanje. Beri naprej.
Primeri metode brisanja stolpcev Excel VBA
Spodaj so primeri za brisanje stolpcev z uporabo VBA.
Primer # 1 - Uporaba metode brisanja
Predpostavimo, da imate podatkovni list, podobno kot spodaj.
Če želimo izbrisati stolpec mesec »mar«, najprej izberite lastnost stolpcev.
Koda:
Sub Delete_Example1 () Stolpci (End Sub
Omenite številko stolpca ali abecedo. V tem primeru je bodisi 3 bodisi C.
Koda:
Podbriši_Primer1 () Stolpci (3). Končaj pod
Uporabite metodo Delete.
Opomba: za izbiro metode Delete ne boste dobili seznama IntelliSense. Preprosto vnesite »Delete«Koda:
Sub Delete_Example1 () Stolpci (3). Izbriši End Sub
Ali pa lahko vnesete naslov stolpca, kot je ta.
Koda:
Sub Delete_Example1 () Stolpci ("C"). Izbriši Konec Sub
Zaženite to kodo s tipko F5 ali pa jo zaženite ročno in si oglejte rezultat.
Obe kodi bosta isto delo izbrisali omenjeni stolpec.
Če želimo izbrisati več stolpcev, jih moramo omeniti v abecedi. Tu ne moremo uporabiti številk stolpcev.
Če želimo izbrisati stolpce 2 do 4, lahko posredujemo kodo, kot je prikazano spodaj.
Koda:
Sub Delete_Example1 () Stolpci ("C: D"). Izbriši Konec 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.
Primer # 4 - Brisanje stolpcev praznih celic
Zdaj pa poglejte ta primer. V nekaterih primerih moramo izbrisati celoten stolpec, če je v obsegu podatkov najdena katera od praznih celic. Za primer si oglejte spodnje podatke.
Vse rumeno obarvane celice so prazne. Torej, tukaj je moja zahteva izbrisati vse stolpce praznih celic. Spodnja koda bo to storila.
Koda:
Podobseg Delete_Example4 () Obseg ("A1: F9"). Izberite Selection.SpecialCells (xlCellTypeBlanks). Izberite Selection.EntireColumn.Delete End Sub
Naj vam razložim to kodo po vrsticah.
Naši podatki so od A1 do F9, zato moram najprej izbrati ta obseg in spodnja koda bo to storila.
Območje ("A1: F9"). Izberite
V tem izbranem obsegu celic moram izbrati prazne celice. Torej, da izberemo prazno celico, moramo posebno lastnost celic in v tej lastnosti smo vrsto celice uporabili kot prazno.
Selection.SpecialCells (xlCellTypeBlanks) .Izberite
Nato bo izbral vse prazne celice in v izboru bomo izbrisali celoten stolpec izbora.
Selection.EntireColumn.Delete
Torej bo naš končni rezultat videti takole.
Kjer koli je našel prazno celico, je prazne celice izbrisal cel stolpec.
Ta Excel VBA stolpec za brisanje lahko prenesete tukaj - Predloga za brisanje stolpca VBA
