Jak odstranit všechny řádky pod určitým řádkem nebo aktivní buňkou v aplikaci Excel?
Tento článek vám může pomoci odstranit všechny řádky pod určitým řádkem nebo aktivní buňkou.
Odstraňte všechny řádky pod určitým řádkem v aplikaci Excel pomocí kódu VBA
Odstraňte všechny řádky pod aktivní buňkou v aplikaci Excel pomocí kódu VBA
Odstraňte všechny řádky pod určitým řádkem v aplikaci Excel pomocí kódu VBA
Následující kód VBA vám pomůže odstranit všechny řádky pod konkrétním řádkem v aplikaci Excel.
1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte následující kód VBA do okna Kód.
Kód VBA: Odstraňte všechny řádky pod určitými řádky v aplikaci Excel
Sub DeleteRowsBelow()
Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete
End Sub
Poznámka: V kódu VBA číslo 5 a list1 označují, že všechny řádky pod řádkem 5 (včetně řádku 5) v listu 1 budou po spuštění kódu odstraněny. Můžete je změnit podle svých potřeb.
3. lis F5 klíč ke spuštění kódu. Poté jsou všechny řádky pod řádkem 5 (včetně řádku 5) okamžitě odstraněny, jak je uvedeno níže.
Odstraňte všechny řádky pod aktivní buňkou v aplikaci Excel pomocí kódu VBA
Chcete-li odstranit všechny řádky těsně pod aktivním řádkem buňky v aplikaci Excel, můžete zkusit následující kód VBA.
1. Vyberte buňku, ze které odstraníte všechny řádky pod ní, a stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte následující kód VBA do okna Kód.
Kód VBA: Odstraňte všechny řádky pod aktivním řádkem buňky v aplikaci Excel
Sub DeleteAllBelow()
Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub
3. zmáčkni F5 klíč ke spuštění kódu. Poté jsou okamžitě odstraněny všechny řádky pod aktivním řádkem buňky (včetně aktivního řádku buňky).
Související články:
- Jak odstranit všechny řádky kromě prvního řádku záhlaví v aplikaci Excel?
- Jak odstranit řádky, pokud je buňka větší / menší než určitá hodnota v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!