Jak odstranit každý další řádek v aplikaci Excel (nebo každý N -tý řádek)

Sledujte video - odstraňte všechny ostatní řádky v aplikaci Excel

Někdy může být nutné odstranit každý další řádek (tj. Alternativní řádky) nebo každý třetí/čtvrtý/pátý řádek v aplikaci Excel.

Jeden případ použití by mohl být, když máte týdenní data a chcete data pouze pro sudé týdny nebo liché týdny. Další by to mohlo být, když získáte výpis dat z databáze a všechna užitečná data jsou pouze v každém druhém nebo třetím řádku.

I když máte vždy možnost ručně vybrat a odstranit řádky, je to neúčinné v případě, že máte velkou datovou sadu.

Existují lepší způsoby, jak to udělat.

V tomto tutoriálu vám ukážu několik způsobů, jak odstranit každý druhý řádek v aplikaci Excel pomocí jednoduché filtrační techniky. A pokud vás baví používání kódu makra VBA, dal jsem také krátký kód VBA, který to zvládne jediným kliknutím. Metody jsou uvedeny v této výukové práci pro všechny verze aplikace Excel (2007, 2010, 2013 a 2016)

Odstranění každého dalšího řádku v aplikaci Excel může být docela jednoduché, ale odstranit další sloupce může být problém. Důvodem je, že v aplikaci Excel nelze filtrovat sloupce (způsob, jakým můžete filtrovat řádky). V poslední části tohoto tutoriálu vám také ukážu některé způsoby, jak odstranit alternativní sloupce (nebo každý N -tý sloupec) v Excelu.

Odstranit každý další řádek filtrováním datové sady (pomocí vzorce)

Pokud byste mohli nějak filtrovat všechny sudé řádky nebo liché řádky, bylo by super snadné tyto řádky/záznamy odstranit.

I když k tomu neexistuje žádná vestavěná funkce, můžete použít pomocný sloupec nejprve rozdělit řádky na liché a sudé a poté filtrovat podle hodnoty pomocného sloupce.

Předpokládejme, že máte datovou sadu, jak je uvedeno níže, která obsahuje údaje o prodejích pro každé obchodní zástupce pro dvě oblasti (USA a Kanada) a chcete data pro Kanadu odstranit.

Níže jsou uvedeny kroky k prvnímu filtrování a poté odstranění každého dalšího řádku (který obsahuje data pro Kanadu):

1. Do buňky sousedící s posledním záhlavím sloupce zadejte text PomocníkSloupec (nebo jakýkoli text záhlaví, který má mít pomocný sloupec)
2. Do buňky pod záhlavím sloupce pomocníka zadejte následující vzorec: = ISEVEN (ŘÁDEK ()). Zkopírujte tento vzorec pro všechny buňky. Tento vzorec vrací TRUE pro všechny sudé řádky a FALSE pro všechny řádky ODD
3. Vyberte celou datovou sadu (včetně buněk, do kterých jsme ve výše uvedeném kroku zadali vzorec).
4. Klikněte na kartu Data
5. Klikněte na ikonu Filtr. Tím se použije filtr na všechna záhlaví v datové sadě
6. Klikněte na ikonu Filtr v buňce HelperColumn.
7. Zrušte výběr možnosti PRAVDA (je tedy vybrána pouze NEPRAVDA)
8. Klikněte na OK. To vyfiltruje data a zobrazí pouze ty záznamy, kde je hodnota HelperColumn FALSE.
9. Vyberte všechny filtrované buňky ve sloupci pomocníka (kromě záhlaví)
10. Klikněte pravým tlačítkem na některou z vybraných buněk a klikněte na „Odstranit řádek“
11. V dialogovém okně, které se otevře, klikněte na OK. Tím se odstraní všechny viditelné záznamy a prozatím uvidíte pouze řádek záhlaví.
12. Klikněte na kartu Data a poté na ikonu Filtr. Tím odstraníte filtr a budete moci zobrazit všechny zbývající záznamy.

Výše uvedené kroky filtrují každý druhý řádek v datové sadě a poté tyto řádky odstraní.

V této fázi si nedělejte starosti s hodnotami pomocného sloupce. Výsledná data obsahují pouze řádky pro USA a všechny řádky pro Kanadu jsou odstraněny. Nyní můžete pomocný sloupec odstranit.

V případě, že chcete odstranit každý další řádek počínaje prvním řádkem, vyberte v kroku 7 možnost PRAVDA a zrušte výběr možnosti NEPRAVDA.

Poznámka: Když odstraníte řádky v aplikaci Excel pomocí výše uvedené metody, odstraní se tím také veškerá data, která můžete mít v celém (kromě jednoho v datové sadě). Při použití této metody se ujistěte, že nemáte nic nalevo a napravo od datové sady, kterou odstraňujete.

Přestože je výše uvedená metoda skvělá, má dvě nevýhody:

1. Musíte přidat nový sloupec ( PomocníkSloupec v našem příkladu výše)
2. Může to být časově náročné, pokud musíte často odstraňovat alternativní řádky

Související výukový program: Odstranění řádků na základě hodnoty buňky (nebo podmínky) v aplikaci Excel

Odstranit každý N -tý řádek filtrováním datové sady (pomocí vzorce)

Ve výše uvedené metodě jsem vám ukázal, jak odstranit každý další řádek (alternativní řádek) v aplikaci Excel.

A stejnou logiku můžete použít i k odstranění každého třetího nebo čtvrtého řádku v Excelu.

Předpokládejme, že máte datovou sadu, jak je uvedeno níže, a chcete odstranit všechny třetí řádky.

Kroky k odstranění každého třetího řádku jsou téměř stejné jako kroky popsané ve výše uvedené části (pro odstranění alternativních řádků). Jediný rozdíl je ve vzorci použitém v kroku 2.

Níže jsou uvedeny kroky, jak to provést:

1. Do buňky sousedící s posledním záhlavím sloupce zadejte text PomocníkSloupec (nebo jakýkoli text záhlaví, který má mít pomocný sloupec)
2. Do buňky pod záhlavím sloupce pomocníka zadejte následující vzorec: = MOD (ŘÁDEK (), 3) = 1. Tento vzorec vrací TRUE pro každý třetí řádek a FALSE pro každý další řádek.
3. Vyberte celou datovou sadu (včetně buněk, do kterých jsme ve výše uvedeném kroku zadali vzorec).
4. Klikněte na kartu Data
5. Klikněte na ikonu Filtr. Tím se použije filtr na všechna záhlaví v datové sadě
6. Klikněte na ikonu Filtr v buňce HelperColumn.
7. Zrušte výběr možnosti PRAVDA (je tedy vybrána pouze NEPRAVDA)
8. Klikněte na OK. To vyfiltruje data a zobrazí pouze ty záznamy, kde je hodnota HelperColumn FALSE.
9. Vyberte všechny buňky ve sloupci pomocníka
10. Klikněte pravým tlačítkem na některou z vybraných buněk a klikněte na Odstranit řádek
11. V dialogovém okně, které se otevře, klikněte na OK. Tím se odstraní všechny viditelné záznamy a prozatím uvidíte pouze řádek záhlaví.
12. Klikněte na kartu Data a poté na ikonu Filtr. Tím odstraníte filtr a budete moci zobrazit všechny zbývající záznamy.

Výše uvedené kroky by odstranily každý třetí řádek z datové sady a vy byste získali výsledná data, jak je uvedeno níže.

V této fázi si nedělejte starosti s hodnotami pomocného sloupce. Nyní můžete pomocný sloupec odstranit.

Vzorec použitý v kroku 2 používá funkci MOD - která dává zbytek, když je jedno číslo děleno druhým. Zde jsem použil funkci ROW k získání čísla řádku a je děleno 3 (protože chceme odstranit každý třetí řádek).

Protože naše datová sada začíná od druhého řádku dále (tj. Řádek č. 2 obsahuje první záznam), používám následující vzorec:= MOD (ŘÁDEK (), 3) = 1

Přirovnávám to k 1 a pro každou třetí řadu vzorec MOD dá zbytek jako 1.

Podle toho můžete vzorec upravit. Pokud například první záznam vaší datové sady začíná od třetí řady, bude vzorec = MOD (ŘÁDEK (), 3) = 2

Automaticky odstranit každý další řádek (nebo N -tý řádek) pomocí makra VBA (rychlá metoda)

Pokud musíte poměrně často mazat každý další řádek (nebo každý n -tý řádek), můžete použít kód VBA a mít ho k dispozici na panelu nástrojů Rychlý přístup. To vám umožní rychle odstranit alternativní řádky jediným kliknutím.

Níže je uveden kód, který vás nejprve vyzve k výběru rozsahu, ve kterém chcete odstranit alternativní řádky, a poté odstraníte každý druhý řádek ve vybrané datové sadě.

Sub Delete_Every_Other_Row () Dim Rng As Range Set Rng = Application.InputBox ("Select the Range (Excending headers)", "Range Selection", Type: = 8) For i = Rng.Rows.Count to 1 Step -2 If i Mod 2 = 0 Then Rng.Rows (i). Delete End If Next i End Sub

Když spustíte výše uvedený kód, nejprve vás požádá o výběr rozsahu buněk. Jakmile provedete výběr, projde každý řádek a odstraní každý druhý řádek.

Pokud místo toho chcete odstranit každý třetí řádek, můžete použít následující kód:

Sub Delete_Every_Third_Row () Dim Rng As Range Set Rng = Application.InputBox ("Select the Range (Excending headers)", "Range Selection", Type: = 8) For i = Rng.Rows.Count to 1 Step -3 If i Mod 3 = 0 Then Rng.Rows (i). Delete End If Next i End Sub

Kam vložit tento kód makra VBA?

Tento kód musíte umístit do běžného modulu v editoru VB v aplikaci Excel.

Níže jsou uvedeny kroky k otevření editoru Vb, přidání modulu a umístění kódu do něj:

1. Zkopírujte výše uvedený kód VBA.
2. Přejděte na kartu Vývojář.
3. Klikněte na Visual Basic.
4. V editoru VB klikněte pravým tlačítkem na libovolný objekt sešitu.
5. Přejděte na Vložit a klikněte na Modul.
6. V modulu vložte výše uvedený kód VBA.
7. Zavřete editor VB.

Jakmile máte kód v editoru VB, můžete ke spuštění kódu použít následující metody:

• Spusťte makro z editoru VB (kliknutím na zelené tlačítko přehrávání na panelu nástrojů editoru VB)
• Umístěním kurzoru na libovolný řádek v kódu a použitím klávesy F5
• Přiřazením makra k tlačítku/tvaru
• Přidáním makra na panel nástrojů Rychlý přístup

Zde je podrobný návod, jak spustit makro v aplikaci Excel.

Pokud to musíte dělat často, můžete zvážit přidání kódu VBA do osobního sešitu maker. Tímto způsobem vám bude vždy k dispozici pro použití ve všech sešitech.

Když máte kód VBA v sešitu, musíte jej uložit jako soubor s povoleným makrem (s příponou .XLSM)

Poznámka: Protože všechny změny provedené kódem VBA jsou nevratné, je nejlepší nejprve vytvořit záložní kopii sešitu/listu a poté spustit tento kód.

Smazat každý další sloupec (nebo každý N -tý sloupec)

Odstranění každého alternativního řádku nebo každého třetího/čtvrtého řádku je snadné, protože můžete použít možnost filtrování. Stačí použít vzorec, který identifikuje alternativní řádky (nebo každý třetí/čtvrtý řádek) a tyto řádky filtruje.

Stejná metodika bohužel nebude fungovat se sloupci - protože nemůžete filtrovat sloupce tak, jak filtrujete řádky.

Pokud tedy musíte odstranit každý další sloupec (nebo každý třetí/čtvrtý/N. Sloupec), musíte být trochu kreativnější.

V této části vám ukážu dvě metody, které můžete použít k odstranění každého dalšího sloupce v aplikaci Excel (a stejnou metodou můžete odstranit každý třetí/čtvrtý/N -tý sloupec, pokud chcete).

Odstraňte alternativní sloupce pomocí vzorců a metody řazení

Předpokládejme, že máte datovou sadu, jak je uvedeno níže, a chcete odstranit každý další sloupec (kromě sloupce záhlaví A)

Zde by šlo o to identifikovat alternativní sloupce pomocí vzorce a poté seřadit sloupce podle tohoto vzorce. Jakmile budete mít seřazené sloupce pohromadě, můžete to ručně vybrat a odstranit.

Níže jsou uvedeny kroky k odstranění všech ostatních sloupců v aplikaci Excel:

1. Vložte řádek nad řádek záhlaví (klikněte pravým tlačítkem na libovolnou buňku v záhlaví, klikněte na Vložit a poté klikněte na možnost Celý řádek)
2. Do buňky nad sloupcem úplně vlevo v datové sadě zadejte následující vzorec a zkopírujte pro všechny buňky: = MOD (SLOUPEC (), 2)
3. Převeďte hodnoty vzorce na čísla. Chcete -li to provést, zkopírujte buňky, klikněte pravým tlačítkem a přejděte na Vložit jinak -> Vložit hodnoty.
4. Vyberte celou datovou sadu (kromě záhlaví ve sloupci). V tomto příkladu jsem vybral B1: G14 (a NE sloupec A)
5. Klikněte na kartu Data
6. Klikněte na ikonu Seřadit
7. V dialogovém okně Seřadit proveďte následující změny:
   • Klikněte na tlačítko „Možnosti“ a v dialogovém okně, které se otevře, klikněte na „Seřadit zleva doprava“ a poté klikněte na Ok
   • V rozevíracím seznamu Seřadit podle vyberte řádek 1. Toto je řádek, který obsahuje výsledky vzorce
   • V rozevíracím seznamu Pořadí vyberte Nejmenší až Největší.
8. Klikněte na OK

Výše uvedené kroky seřadí všechny sloupce a spojí všechny alternativní sloupce na jednom místě (na konci).

Nyní můžete vybrat všechny tyto sloupce (pro které je hodnota vzorce 1) a odstranit je.

I když to není nejlepší řešení, přesto práci odvede.

V případě, že chcete vymazat každý třetí sloupec nebo každý čtvrtý sloupec, musíte podle toho upravit vzorec.

Související návod: Jak TŘÍDIT v Excelu (podle řádků, sloupců, barev, dat a čísel)

Odstraňte alternativní sloupce pomocí VBA

Dalším rychlým způsobem, jak odstranit alternativní sloupce, je použít níže uvedený kód VBA:

Sub Delete_Every_Other_Column () Dim Rng As Range Set Rng = Application.InputBox ("Select the Range (Excending headers)", "Range Selection", Type: = 8) For i = Rng.Columns.Count to 1 Step -2 If i Mod 2 = 0 Then Rng.Columns (i). Delete End If Next i End Sub

Výše uvedený kód vás požádá, abyste vybrali rozsah buněk, které obsahují sloupce. Zde musíte vybrat sloupce kromě sloupce, který má záhlaví.

Jakmile zadáte rozsah buněk s daty, použije se pro smyčku a odstraní všechny ostatní sloupce.

V případě, že chcete odstranit každý třetí sloupec, můžete použít níže uvedený kód (a odpovídajícím způsobem upravit smazání N -tého sloupce)

Sub Delete_Every_Third_Column () Dim Rng As Range Set Rng = Application.InputBox ("Select the Range (Excending headers)", "Range Selection", Type: = 8) For i = Rng.Columns.Count to 1 Step -3 If i Mod 3 = 0 Then Rng.Columns (i). Delete End If Next i End Sub

Kroky, kam umístit tento kód VBA a jak jej použít, jsou popsány ve výše uvedené části s názvem - "Automaticky odstranit každý další řádek (nebo N -tý řádek) pomocí makra VBA (rychlá metoda)"

Doufám, že jste tento návod k Excelu považovali za užitečný.