Normálne v pracovnom hárku programu Excel máme dve rôzne metódy na odstránenie stĺpcov, z ktorých jedna je klávesová skratka a druhá pomocou metódy kliknutia pravým tlačidlom myši a vloženia, ale vo VBA musíme na odstránenie ľubovoľného stĺpca použiť príkaz delete a príkaz celého stĺpca. to je to, že ak potrebujeme vymazať jeden stĺpec, dáme odkaz na jeden stĺpec, ale pre viac stĺpcov dáme viac odkazov na stĺpce.
Stĺpec Excel VBA na odstránenie
Vykonávame mnoho akcií v programe Excel, ako napríklad vystrihovanie, kopírovanie, vkladanie, pridávanie, mazanie, vkladanie a mnoho ďalších vecí, ktoré robíme pravidelne. Všetky tieto akcie môžeme použiť pomocou kódovania VBA. Jedným z dôležitých konceptov, ktoré sa musíme naučiť, je vo VBA stĺpec „mazanie“. V tomto článku si ukážeme, ako používať túto možnosť Odstrániť stĺpec vo VBA.
Čo robí príkaz Odstrániť stĺpec v programe Excel VBA?
Ako hovorí názov, odstráni sa ním zadaný stĺpec. Na vykonanie tejto úlohy je potrebné najskôr určiť, ktorý stĺpec musíme vymazať. Výber stĺpcov na odstránenie sa líši od jedného scenára k druhému, preto sa v tomto článku venujeme niektorým dôležitým a často čeliacim scenárom.
Odstránenie stĺpcov je jednoduché. Najskôr musíme na výber stĺpca použiť vlastnosť COLUMNS, takže nižšie je uvedená syntax metódy Column Delete vo VBA.
Stĺpce (odkaz na stĺpec). Odstrániť
Takže môžeme skonštruovať kód takto:
Stĺpce (2). Odstrániť alebo Stĺpce („B“). Odstrániť
Týmto sa odstráni stĺpec číslo 2, tj stĺpec B.
Ak chceme vymazať viac stĺpcov, nemôžeme do nich vstúpiť. Potrebujeme odkazovať na stĺpce podľa hlavičiek stĺpcov, tj. Podľa abecedy.
Stĺpce („A: D“). Odstrániť
Týmto sa odstráni stĺpec z A do D, tj prvé 4 stĺpce.
Takto môžeme vo VBA použiť metódu „Odstrániť stĺpec“ na odstránenie konkrétnych stĺpcov. V nasledujúcej časti uvidíme ďalšie príklady, aby sme tomu lepšie porozumeli. Pokračuj v čítaní.
Príklady metódy odstránenia stĺpca v programe Excel VBA
Ďalej uvádzame príklady odstránenia stĺpcov pomocou VBA.
Príklad č. 1 - Použitie metódy odstránenia
Predpokladajme, že máte údajový list, niečo ako nižšie.
Ak chceme odstrániť stĺpec mesiac „Mar“, najskôr vyberte vlastnosť stĺpcov.
Kód:
Sub Delete_Example1 () Stĺpce (End Sub
Uveďte číslo stĺpca alebo abecedu. V tomto prípade je to buď 3 alebo C.
Kód:
Sub Delete_Example1 () Stĺpce (3). Koniec Sub
Použite metódu Delete.
Poznámka: Zoznam IntelliSense na výber metódy Odstrániť nedostanete. Stačí napísať „Odstrániť“Kód:
Sub Delete_Example1 () Stĺpce (3). Odstrániť koncový sub
Alebo môžete takto zadať adresu stĺpca.
Kód:
Sub Delete_Example1 () Stĺpce ("C"). Odstrániť koncový sub
Tento kód spustíte pomocou klávesu F5, alebo môžete spustiť manuálne a pozrieť si výsledok.
Oba kódy budú robiť rovnakú prácu pri mazaní spomínaného stĺpca.
Ak chceme vymazať viac stĺpcov, musíme ich spomenúť v abecede. Tu nemôžeme použiť čísla stĺpcov.
Ak chceme odstrániť stĺpce 2 až 4, môžeme odovzdať kód, ako je uvedené nižšie.
Kód:
Sub Delete_Example1 () Stĺpce ("C: D"). Odstrániť koncový sub
Spustite tento kód manuálne pomocou možnosti spustenia alebo stlačte kláves F5. Týmto sa odstránia stĺpce „Feb“, „Mar“ a „Apr.“
Príklad č. 2 - Odstránenie stĺpcov s názvom pracovného hárka
Vyššie je uvedený prehľad toho, ako odstrániť stĺpce pomocou kódu VBA. Nie je to však osvedčený postup pri odstraňovaní stĺpcov. Bez uvedenia názvu pracovného hárka je nebezpečné stĺpec slepo odstrániť.
Ak ste neuviedli názov pracovného hárka, potom ktorýkoľvek hárok je aktívny, vymaže sa jeho stĺpce.
Najskôr musíme vybrať list podľa jeho názvu.
Kód:
Sub Delete_Example2 () Worksheets ("Sales Sheet"). Vyberte End Sub
Po výbere hárka musíme vybrať stĺpce. Stĺpce môžeme tiež vybrať pomocou objektu VBA RANGE.
Kód:
Sub Delete_Example2 () Pracovné listy ("Predajný list"). Vyberte rozsah ("B: D"). Odstrániť koncový sub
Týmto sa odstránia stĺpce B až D tabuľky „Predajný list“. Pre tento kód nezáleží na tom, ktorý je aktívny. Stále však odstráni iba uvedené stĺpce tohto hárka.
Môžeme tiež skonštruovať kód VBA v samotnom jednom riadku.
Kód:
Sub Delete_Example2 () Pracovné listy ("Predajný list"). Rozsah ("B: D"). Odstrániť koncový sub
Týmto sa odstránia aj stĺpce „B až D“ bez toho, aby ste vybrali pracovný hárok „Predajný list“.
Príklad č. 3 - Vymazanie prázdnych stĺpcov
Predpokladajme, že máte údaje, ktoré majú alternatívne prázdne stĺpce, ako je uvedené nižšie.
Odstráňte teda každý alternatívny stĺpec, ktorý môžeme použiť nižšie uvedený kód.
Kód:
Sub Delete_Example3 () Dim k As Integer For k = 1 To 4 Columns (k + 1). Odstrániť ďalší k End Sub
Tento kód spustite pomocou klávesu F5 alebo manuálne. Potom vymaže všetky alternatívne prázdne stĺpce a naše údaje budú vyzerať takto.
Príklad č. 4 - Odstránenie prázdnych stĺpcov buniek
Teraz sa pozrite na tento príklad. Existujú určité situácie, kedy je potrebné odstrániť celý stĺpec, ak sa v rozsahu údajov nachádza niektorá z prázdnych buniek. Zvážte príklad nižšie.
Všetky žlto zafarbené bunky sú prázdne. Takže tu je moja požiadavka odstrániť všetky stĺpce prázdnych buniek. Nasledujúci kód to urobí.
Kód:
Sub Delete_Example4 () Range ("A1: F9"). Vyberte Selection.SpecialCells (xlCellTypeBlanks). Vyberte Selection.EntireColumn.Delete End Sub
Vysvetlím vám tento kód po riadku.
Naše údaje sú od A1 do F9, takže najskôr musím zvoliť tento rozsah a bude to nasledujúci kód.
Rozsah („A1: F9“). Vyberte
V tomto vybranom rozsahu buniek musím vybrať bunky, ktoré sú prázdne. Aby sme vybrali prázdnu bunku, potrebujeme špeciálnu vlastnosť buniek a v tejto vlastnosti sme použili typ bunky ako prázdnu.
Selection.SpecialCells (xlCellTypeBlanks). Vyberte
Ďalej vyberie všetky prázdne bunky a vo výbere odstránime celý stĺpec výberu.
Selection.EntireColumn.Delete
Náš konečný výsledok bude teda vyzerať takto.
Kdekoľvek našla prázdnu bunku, odstránila tieto prázdne bunky v celom stĺpci.
Tu si môžete stiahnuť tento stĺpec Excel VBA Delete Column - VBA Delete Column Template
