Riadok odstránenia VBA
V programe Excel na odstránenie ľubovoľného riadku máme skratku na použitie klávesov CTRL + - alebo môžeme vybrať riadok a kliknúť pravým tlačidlom myši a odstrániť ho. Vo VBA sme to však urobili napísaním kódu. Metóda vymazania riadku vo VBA je najprv potrebná na identifikáciu, ktorý riadok sa má odstrániť, a potom ho môžeme odstrániť. V tomto článku sa dozvieme o rôznych ilustráciách, ako odstrániť riadok vo VBA.
Vo VBA sa príkaz Odstrániť riadok používa na odstránenie súboru riadkov alebo jedného riadku v závislosti od situácie. Podobne ako v Exceli, aj v tomto prípade môžeme pomocou makier alebo VBA vymazať riadky v Exceli. Pomáha to, keď máme veľa údajov a nemôžeme to urobiť ručne.
Syntax na odstránenie riadku v programe Excel VBA
Syntax na odstránenie riadku v Exceli je uvedená nižšie.
Worksheets.Rows (Row #). Delete
Existujú aj ďalšie metódy na odstránenie riadkov pomocou VBA, ako je uvedené ďalej.
Range ( "Cell"). EntireRow.Delete
Vyššie uvedené vyhlásenie urobí tak, že odstráni riadok pre daný riadok. Napríklad, ak napíšeme Range („A1“). EntireRow.Delete, prvý riadok bude vymazaný, pretože bunka A1 patrí do prvého riadku.
Na odstránenie riadku tiež môžeme použiť riadky (row_num) .delete .
Ako odstrániť riadok v Exceli pomocou VBA?
Nižšie uvádzame niekoľko príkladov, ako odstrániť riadok Excel vo VBA.
Túto šablónu VBA Delete Row Excel si môžete stiahnuť tu - VBA Delete Row Excel TemplateRiadok odstránenia VBA - príklad č. 1
Nechajte na odstránenie riadkov použiť prvú jednoduchú metódu. Pre demonštračné účely vložím do buniek A1 a B1 náhodnú hodnotu. Pozrite sa na to nižšie.
Chcem vidieť, že ak použijem kód napísaný nad celým riadkom, bude odstránený alebo bude odstránená jedna bunka.
Poznámka: Ak chcete používať program Excel VBA, musíme mať povolenú kartu vývojára na karte Súbory v časti Možnosti.Postupujte podľa nižšie uvedených krokov na odstránenie riadku v Exceli pomocou VBA.
Krok 1: Prejdite na kartu vývojára kliknutím na Visual Basic a otvorte editor VBA.
Krok 2: V segmente kódu deklarujte subfunkciu na začatie zápisu kódu.
kód:
Čiastková vzorka () Koniec č
Krok 3: Teraz vymažte riadok z nasledujúceho kódu.
kód:
Rozsah čiastkových vzoriek () („A1“). EntireRow.Delete End Sub
Krok 4: Spustite tento kód stlačením klávesy F5 alebo Run a pozrite si výstup.
Akonáhle spustíme kód, môžeme vidieť, že hodnoty z buniek A1 aj B1 sa odstránia, pretože bol odstránený celý prvý riadok.
Riadok odstránenia VBA - príklad č. 2
Skôr v prvom príklade som odstránil iba jeden riadok. Ale čo keď budeme musieť odstrániť viac riadkov. Na demonštračné účely mám nasledujúce údaje, ako je uvedené nižšie,
Chcem odstrániť všetkých prvých päť riadkov. Podľa pokynov nižšie vymažte riadok v Exceli pomocou VBA.
Krok 1: Na karte vývojára kliknutím na Visual Basic otvorte editor VBA.
Krok 2: V kóde deklarujte subfunkciu na začatie písania kódu,
kód:
Čiastková vzorka1 () Koncová čiastková č
Krok 3: Ak chcete odstrániť všetkých päť riadkov, napíšte nasledujúci kód.
kód:
Rozsah podvzorky1 () ("A1: B5"). CeláRow.Delete End Sub
Krok 4: Spustite tento kód stlačením klávesy F5 alebo Run a pozrite si výstup.
Po spustení kódu sa zobrazí nasledujúci výsledok: Celé údaje boli odstránené, čo znamená, že prvých päť riadkov bolo odstránených, pretože sme mali údaje v prvých piatich riadkoch.
Poznámka: Na demonštráciu vložím údaje späť do hárku ukážok programu Excel.Riadok odstránenia VBA - príklad č. 3
Teraz máme údaje o zamestnancoch a ich predaje sa robia za tri mesiace január, február a marec. Jeden zo zamestnancov bol na dovolenke a nemohol predávať tri mesiace, takže bunky sú pre neho prázdne. Naším cieľom je nájsť tento prázdny riadok a odstrániť ho z údajov.
Pozrite sa na nižšie uvedené údaje,
Podľa pokynov nižšie vymažte riadok v Exceli pomocou VBA.
Krok 1: Na karte vývojára kliknutím na položku Visual Basic otvorte editor jazyka Visual Basic.
Krok 2: Vyhlásením podprogramu v okne kódu začnete písať kód,
kód:
Čiastková vzorka 2 () Koniec č
Krok 3: Napíšte nasledujúci kód a vymažte riadky, ktoré majú prázdne bunky.
kód:
Rozsah čiastkovej vzorky2 () („A1: D5“). Špeciálne bunky (xlCellTypeBlanks) .EntireRow.Delete End Sub
SpecialCells je funkcia vo VBA, ktorá nám vracia všetky bunky, ktoré zodpovedajú našim podmienkam, a náš stav bol prázdnymi bunkami v tomto rozsahu, takže sme použili funkciu xlCellTypeBlanks.
Krok 4: Spustite tento kód stlačením klávesy F5 alebo Run a pozrite si výstup.
Po spustení kódu vidíme, že riadok, ktorý obsahoval prázdne bunky, bol odstránený.
Poznámka: Na demonštráciu znova vložím údaje do hárku ukážok programu Excel.Riadok odstránenia VBA - príklad č. 4
Existujú nejaké ďalšie podobné metódy na vymazanie riadkov, napríklad použitie riadkov a funkcia vymazania. Napríklad máme údaje v riadku 4 a chcem vymazať riadok 4. Môžeme dať príkaz na vynikajúce vymazanie 4. riadku v údajoch. Pozrite sa na snímku obrazovky nižšie Mám náhodné údaje v riadku 4 v prvej bunke.
Podľa pokynov nižšie vymažte riadok v Exceli pomocou VBA.
Krok 1: Otvorte editor VBA kliknutím na Visual Basic na karte Developer,
Krok 2: Vyhlásením podprogramu začnete písať kód.
kód:
Čiastková vzorka 3 () Koniec č
Krok 3: Ak chcete odstrániť štvrtý riadok, napíšte nasledujúci kód.
kód:
Čiastková vzorka3 () riadky (4) .Delete End Sub
Krok 4: Spustite tento kód stlačením klávesy F5 alebo Run a pozrite si výstup.
Dáta boli vymazané, pretože 4. riadok bol odstránený sám.
Riadok odstránenia VBA - príklad č. 5
Vo vyššie uvedenom kóde sme uviedli rozsah alebo riadok, ktorý sa má odstrániť v samotnom kóde. Teraz vezmime vstup od používateľa a môže z daného údaja odstrániť riadok. Napríklad mám údaje o zamestnancoch a predaji uvedené nižšie a chcem, aby si užívateľ vybral rozsah, od koľko údajov chce užívateľ vymazať riadky s prázdnymi bunkami. Pozrite sa na nižšie uvedené údaje,
Podľa pokynov nižšie vymažte riadok v Exceli pomocou VBA.
Krok 1: Otvorte editor VB kliknutím na Visual Basic na karte vývojára,
Krok 2: Vyhlásením podprogramu začnete písať kód.
kód:
Čiastková vzorka4 () Koniec č
Krok 2: Vyhláste dve premenné ako rozsah, A a B.
kód:
Čiastková vzorka4 () Dim A ako rozsah Dim B ako koniec rozsahu Sub
Krok 3: Na prevzatie vstupu od používateľa na výber rozsahu na vymazanie použijeme funkciu vstupného poľa a tento vstup uložíme do vyššie definovanej premennej.
kód:
Podvzorka4 () Dim A ako rozsah Dim B ako rozsahová sada A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) End Sub
Krok 4: Nastavte B = A, aby sa vstup od užívateľa mohol uložiť do rozsahu B.
kód:
Podvzorka4 () Dim A ako rozsah Dim B ako rozsah Sada A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) Set B = A End Sub
Krok 5: Teraz odstránime údaje, ktoré obsahujú prázdne bunky z rozsahu, ktorý si zvolil užívateľ.
kód:
Podvzorka4 () Dim A ako rozsah Dim B ako rozsah Sada A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) Set B = A A.SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub Sub
Krok 6: Teraz spustite kód z poskytnutého tlačidla spustenia.
Krok 6: Zobrazí sa vstupné pole.
Krok 7: V tomto príklade vyberte rozsah od A1: D8. Stlačením tlačidla OK zobrazíte výsledok.
Dáta, ktoré mali prázdne bunky, boli vymazané.
Čo je potrebné pamätať
O odstránení riadku v Excel VBA si musíme pamätať niekoľko vecí:
- Riadok môžeme odstrániť na základe jednej bunky.
- Viac riadkov môžeme odstrániť zadaním určitého počtu buniek.
- Riadky tiež môžeme odstrániť prevzatím vstupov od používateľa.
Odporúčané články
Toto bol sprievodca vymazaním riadku VBA. Tu sme diskutovali o tom, ako odstrániť riadok v programe Excel VBA spolu s praktickými príkladmi a šablónou programu Excel na stiahnutie. Môžete si tiež prečítať naše ďalšie navrhované články -
- Ako používať funkciu nahradenia vo VBA?
- Odstránenie riadku v Exceli
- Prípad VBA Triky programu Excel
- Skratka na vloženie riadku programu Excel
- Ako spočítať viac riadkov v Exceli?