Řádek Smazat VBA

V Excelu k odstranění libovolného řádku máme zástupce pomocí CTRL + - nebo můžeme vybrat řádek a kliknout na něj pravým tlačítkem a odstranit jej. Ale ve VBA jsme to udělali napsáním kódu. Metoda mazání řádku ve VBA je nejprve potřeba určit, který řádek má být odstraněn, a pak ho můžeme odstranit. V tomto článku se dozvíme o různých ilustracích, jak odstranit řádek ve VBA.

Ve VBA se řádek Odstranit používá k odstranění buď sady řádků nebo jednoho řádku v závislosti na situaci. Podobně jako v Excelu můžeme použít makra nebo VBA k odstranění řádků v Excelu. Pomáhá to, když je u nás spousta dat a nemůžeme to udělat ručně.

Syntaxe pro odstranění řádku v Excelu VBA

Syntaxe pro odstranění řádku v Excelu je níže.

Worksheets.Rows (Row #). Delete

Existují také další metody pro odstranění řádků pomocí VBA, jako je následující.

Rozsah („buňka“). CeláRow.Delete

Výše uvedené prohlášení provede, že odstraní řádek pro daný řádek. Pokud například napíšeme Range („A1“). EntireRow.Delete, bude první řádek odstraněn, protože buňka A1 patří do prvního řádku.

K odstranění řádku můžeme použít také řádky (row_num) .delete .

Jak odstranit řádek v Excelu pomocí VBA?

Níže uvádíme několik příkladů, jak odstranit řádek v Excelu pomocí VBA.

Tuto šablonu VBA Delete Row Excel si můžete stáhnout zde - VBA Delete Row Excel Template

Řádek Smazat VBA - Příklad č. 1

Použijte první jednoduchou metodu k odstranění řádků. Pro demonstrační účely zadám do buňky A1 a B1 náhodnou hodnotu. Podívejte se na ni níže.

Chci vidět, že pokud použiji kód napsaný nad celým řádkem, bude smazán nebo bude odstraněna jedna buňka.

Poznámka: Chcete-li používat Excel VBA, musíme mít povolenou kartu vývojáře na kartě Soubory v části Možnosti.

Postupujte podle níže uvedených kroků a odstraňte řádek v Excelu pomocí VBA.

Krok 1: Přejděte na kartu vývojáře kliknutím na Visual Basic a otevřete Editor VBA.

Krok 2: V segmentu kódu deklarujte subfunkci pro zahájení zápisu kódu.

Kód:

 Vzorek () Konec Sub

Krok 3: Nyní napište následující kód pro odstranění řádku.

Kód:

 Sub Sample () Range ("A1"). EntireRow.Delete End Sub

Krok 4: Spusťte tento kód stisknutím klávesy F5 nebo Run a podívejte se na výstup.

Jakmile spustíme kód, můžeme vidět, že hodnoty z buněk A1 a B1 jsou odstraněny, protože byl odstraněn celý první řádek.

Řádek Smazat VBA - Příklad č. 2

Dříve v prvním příkladu jsem smazal pouze jeden řádek. Ale co když musíme smazat více řádků. Pro demonstrační účely mám níže uvedená data,

Chci vymazat všech prvních pět řádků. Chcete-li odstranit řádek v Excelu pomocí VBA, postupujte podle následujících kroků.

Krok 1: Na kartě vývojáře klikněte na Visual Basic a otevřete Editor VBA.

Krok 2: V kódu deklarujte podfunkci pro zahájení zápisu kódu,

Kód:

 Dílčí vzorek1 () Koncový díl

Krok 3: Napište následující kód zobrazený níže a smažte celých pět řádků.

Kód:

 Rozsah dílčího vzorku 1 () ("A1: B5")

Krok 4: Spusťte tento kód stisknutím klávesy F5 nebo Run a podívejte se na výstup.

Jakmile spustíme kód, uvidíme následující výsledek: Celá data byla smazána znamená, že prvních pět řádků bylo odstraněno, protože jsme měli data v prvních pěti řádcích.

Poznámka: Pro demonstraci vložím zpět data do listu excelu.

Řádek Smazat VBA - Příklad č. 3

Nyní máme data pro zaměstnance a jejich prodej se provádí za tři měsíce, leden, únor a březen. Jeden ze zaměstnanců byl na dovolené a nemohl prodávat tři měsíce, takže pro něj jsou buňky prázdné. Naším cílem je najít tento prázdný řádek a odstranit jej z dat.

Podívejte se na níže uvedená data,

Chcete-li odstranit řádek v Excelu pomocí VBA, postupujte podle následujících kroků.

Krok 1: Na kartě vývojáře kliknutím na Visual Basic otevřete editor jazyka Visual Basic.

Krok 2: Deklarujte podfunkci v okně kódu a začněte psát kód,

Kód:

 Dílčí vzorek2 () Koncový díl

Krok 3: Napište následující kód a odstraňte řádky, které mají prázdné buňky.

Kód:

 Sub Sample2 () Range ("A1: D5"). SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub

SpecialCells je funkce ve VBA, která nám vrací všechny buňky, které odpovídají našim podmínkám, a náš stav byl prázdné buňky v tomto rozsahu, takže jsme použili funkci xlCellTypeBlanks.

Krok 4: Spusťte tento kód stisknutím klávesy F5 nebo Run a podívejte se na výstup.

Jakmile spustíme kód, můžeme vidět, že řádek, který obsahoval prázdné buňky, byl odstraněn.

Poznámka: Pro demonstraci znovu vložím data do listu excelu.

Řádek Smazat VBA - Příklad č. 4

Existují nějaké další podobné metody pro vymazání řádků, například použití řádků a funkce odstranění. Například máme data v řádku 4 a já chci vymazat řádek 4. Můžeme dát příkaz k Excelu k odstranění čtvrtého řádku v datech. Podívejte se na screenshot níže Mám náhodná data v řádku 4 v první buňce.

Chcete-li odstranit řádek v Excelu pomocí VBA, postupujte podle následujících kroků.

Krok 1: Spusťte editor VBA kliknutím na Visual Basic na kartě Developer,

Krok 2: Chcete-li začít psát kód, deklarujte podfunkci.

Kód:

 Sub Sample3 () Konec Sub

Krok 3: Napište následující kód a odstraňte čtvrtý řádek.

Kód:

 Sub Sample3 () Řádky (4). Odstranit konec Sub

Krok 4: Spusťte tento kód stisknutím klávesy F5 nebo Run a podívejte se na výstup.

Data byla vymazána, protože 4. řádek byl odstraněn sám.

Řádek Smazat VBA - Příklad č. 5

Ve výše uvedeném kódu jsme určili rozsah nebo řádek, který se má odstranit v samotném kódu. Nyní vezměme vstup od uživatele a může vymazat řádek z daných dat. Například mám údaje o zaměstnancích a tržbách provedené níže a chci, aby si uživatel vybral rozsah od toho, kolik dat chce uživatel vymazat řádky s prázdnými buňkami. Podívejte se na níže uvedená data,

Chcete-li odstranit řádek v Excelu pomocí VBA, postupujte podle následujících kroků.

Krok 1: Spusťte VB Editor kliknutím na Visual Basic na kartě vývojáře,

Krok 2: Chcete -li začít psát kód, deklarujte podfunkci.

Kód:

 Dílčí vzorek4 () Koncový díl

Krok 2: Deklarujte dvě proměnné jako rozsah, A a B.

Kód:

 Dílčí vzorek4 () Dim A jako rozsah Dim B jako konec konce Sub

Krok 3: Pro převzetí vstupu od uživatele pro výběr rozsahu k odstranění použijeme funkci vstupního pole a tento vstup uložíme do výše definované proměnné.

Kód:

 Podvzorek4 () Dim A jako rozsah Dim B jako rozsahová sada A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) End Sub

Krok 4: Nastavte B = A tak, aby vstup od uživatele mohl být uložen v rozsahu B.

Kód:

 Podvzorek4 () Dim A jako rozsah Dim B jako rozsah Sada A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) Set B = A End Sub

Krok 5: Nyní odstraníme data, která mají prázdné buňky z rozsahu zvoleného uživatelem.

Kód:

 Podvzorek4 () Dim A jako rozsah Dim B jako rozsah Sada A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) Set B = A A.SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub Sub

Krok 6: Nyní spusťte kód z poskytnutého spouštěcího tlačítka.

Krok 6: Objeví se vstupní pole.

Krok 7: V tomto příkladu vyberte rozsah od A1: D8. Stisknutím tlačítka OK zobrazíte výsledek.

Data, která měla prázdné buňky, byla vymazána.

Co si pamatovat

Je několik věcí, které si musíme pamatovat na Smazat řádek v Excel VBA:

  • Řádek můžeme smazat na základě jedné buňky.
  • Můžeme odstranit více řádků zadáním řady buněk.
  • Řádky můžeme také odstranit odstraněním vstupů od uživatele.

Doporučené články

Toto byl průvodce k VBA Delete Row. Zde jsme diskutovali o tom, jak odstranit řádek v Excelu VBA spolu s praktickými příklady a stahovatelnou šablonou Excel. Můžete si také prohlédnout naše další doporučené články -

  1. Jak používat funkci nahrazení ve VBA?
  2. Excel Odstranit řádek zástupce
  3. Případ VBA | Triky Excelu
  4. Zkratka řádku Vložit do Excelu
  5. Jak sečíst více řádků v Excelu?

Kategorie:

VBA