Jak rychle odstranit každý druhý řádek v aplikaci Excel?

Jak rychle odstranit každý další řádek v aplikaci Excel?

Chcete-li rychle odstranit každý další řádek nebo sloupec v aplikaci Excel, jde především o to, jak můžete nejprve rychle vybrat každý další řádek nebo sloupec a poté na ně použít operaci odstranění. A tento článek vám ukáže několik záludností, jak nejprve vybrat každý další řádek nebo sloupec a pak je rychle odstranit.

Odstranění každého dalšího řádku v aplikaci Excel pomocí příkazu Filtr

Odstranění každého dalšího řádku v aplikaci Excel pomocí kódu VBA

Odstranění každého dalšího řádku nebo sloupce v aplikaci Excel pomocí nástroje Kutools for Excel

Odstranění každého dalšího řádku v Excelu pomocí příkazu Filtr

Příkaz Filtr aplikace Microsoft Excel vám pomůže rychle vyfiltrovat každý další řádek a poté je najednou odstranit, postupujte následujícím způsobem:

1. Do prázdného sloupce vedle původních údajů zadejte 0,1,0,1…,0,1. V tomto případě zadáme čísla do pomocného sloupce C. Viz následující snímek obrazovky:

2. Vyberte sloupec C a klikněte na tlačítko Filtr na kartě Data. Poté klikněte na tlačítko se šipkou vedle C1 a v možnosti Vybrat vše zaškrtněte pouze 0. Viz snímek obrazovky:

3. Pak se skryjí všechny řádky s hodnotou 1. Vyberte viditelné řádky s 0 a kliknutím na tlačítko Domů > Odstranit > Odstranit řádky listu tyto řádky odstraníte. Pak se odstraní každý další řádek a je třeba znovu kliknout na tlačítko Filtrovat, aby se zobrazily pouze řádky s 1. Viz snímky obrazovky:

4. Klikněte na tlačítko Filtrovat. Nakonec můžete odstranit pomocný sloupec C, jak potřebujete.

Odstranění každého druhého řádku v aplikaci Excel pomocí kódu VBA

Vlastně i makro VBA je dobrou volbou pro řešení tohoto problému.

1. V aplikaci Excel podržte stisknuté klávesy Alt + F11, čímž se otevře okno Microsoft Visual Basic for Applications.

2. Klepněte na tlačítko Vložit > Modul a do okna Modul vložte následující makro.

Kód VBA: Odstraňte každý druhý řádek ve výběru:

Sub DeleteEveryOtherRow()'Updateby ExtendofficeDim rng As RangeDim InputRng As RangexTitleId = "KutoolsforExcel"Set InputRng = Application.SelectionSet InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)Application.ScreenUpdating = FalseFor i = InputRng.Rows.Count To 1 Step -2 Set rng = InputRng.Cells(i, 1) rng.EntireRow.DeleteNextApplication.ScreenUpdating = TrueEnd Sub

3. Stisknutím klávesy F5 spustíte toto makro. Poté se zobrazí dialogové okno pro výběr rozsahu. Viz obrázek obrazovky:

4. V tomto okně se zobrazí obrázek obrazovky. Poté klepněte na tlačítko OK, každý další řádek ve vybraném rozsahu od druhého řádku se najednou odstraní, viz snímek obrazovky:

Odstranění každého dalšího řádku nebo sloupce v Excelu pomocí Kutools for Excel

Pro začínajícího uživatele aplikace Microsoft Excel, je použití makra VBA poněkud komplikované. S rychlým odstraněním každého dalšího řádku vám pomůže nástroj Vybrat interval řádků &Sloupce programu Kutools for Excel.

Kutools for Excel : s více než 300 praktickými doplňky Excelu, které můžete vyzkoušet zdarma bez omezení po dobu 30 dnů.

Po instalaci nástroje Kutools for Excel postupujte následovně:

1. Nainstalujte si nástroj Kutools for Excel. Vyberte rozsah, který chcete odstranit každý druhý řádek, a poté použijte tento nástroj kliknutím na Kutools > Select > Select Interval Rows & columns….

2. V dialogovém okně Select Interval Rows & Columns zadejte nastavení podle následujícího obrázku a kliknutím na tlačítko OK vyberte nejprve každý druhý řádek

3. Poté se vybere a zvýrazní každý druhý řádek ve výběru. Viz snímek obrazovky:

4. Poté můžete vybrané každý druhý řádek rychle odstranit kliknutím na tlačítko Domů > Odstranit > Odstranit řádky listu, čímž všechny tyto řádky odstraníte. Viz snímky obrazovky:

Kliknutím získáte více informací o této funkci Vybrat řádky intervalu & Sloupce.

Pomocí této funkce můžete také odstranit každý n-tý řádek nebo sloupec, jak potřebujete.

Stáhněte si a vyzkoušejte zdarma Kutools for Excel nyní!

Demo: Odstraňte každý druhý řádek nebo sloupec pomocí Kutools for Excel

.