Obsah
Tento krátky návod vysvetľuje, ako odstrániť každý druhý riadok v programe Excel pomocou filtrovania alebo kódu VBA. Dozviete sa tiež, ako odstrániť každý 3., 4. alebo akýkoľvek iný N-ty riadok.
Existuje mnoho situácií, keď môžete potrebovať odstrániť alternatívne riadky v pracovných listoch programu Excel. Napríklad môžete chcieť ponechať údaje pre párne týždne (riadky 2, 4, 6, 8 atď.) a presunúť všetky nepárne týždne (riadky 3, 5, 7 atď.) do iného listu.
Odstránenie každého ďalšieho riadku v programe Excel sa vo všeobecnosti obmedzuje na výber alternatívnych riadkov. Po výbere riadkov sa jedným ťahom na Odstrániť Stačí tlačidlo . Ďalej sa v tomto článku naučíte niekoľko techník na rýchle vybratie a odstránenie každého druhého alebo každého N-tého riadku v programe Excel.
Ako odstrániť každý druhý riadok v programe Excel pomocou filtrovania
Bežný spôsob vymazania každého druhého riadku v programe Excel je v podstate takýto: najprv vyfiltrujete striedavé riadky, potom ich vyberiete a vymažete všetky naraz. Podrobný postup nasleduje nižšie:
- Do prázdneho stĺpca vedľa pôvodných údajov zadajte postupnosť núl a jednotiek. Môžete to rýchlo urobiť tak, že do prvej bunky napíšete 0 a do druhej 1, potom skopírujete prvé dve bunky a vložíte ich do stĺpca až po poslednú bunku s údajmi.
Prípadne môžete použiť tento vzorec:
=MOD(ROW(),2)
Logika vzorca je veľmi jednoduchá: funkcia ROW vráti aktuálne číslo riadku, funkcia MOD ho vydelí dvoma a vráti zvyšok zaokrúhlený na celé číslo.
Výsledkom je, že vo všetkých párnych riadkoch je 0 (pretože sú delené 2 rovnomerne bez zvyšku) a vo všetkých nepárnych riadkoch je 1:
- Podľa toho, či chcete odstrániť párne alebo nepárne riadky, odfiltrujte jednotky alebo nuly.
Ak to chcete urobiť, vyberte ľubovoľnú bunku v stĺpci Pomocník, prejdite na Údaje karta> Triedenie a filtrovanie a kliknite na Filter Tlačidlo Rozbaľovacie šípky filtra sa zobrazia vo všetkých bunkách záhlavia. Kliknete na tlačidlo šípky v stĺpci Pomocník a začiarknete jedno z políčok:
- 0 na vymazanie párnych riadkov
- 1 na odstránenie nepárnych riadkov
V tomto príklade odstránime riadky s hodnotami "0", takže ich vyfiltrujeme:
- Teraz, keď sú všetky riadky "1" skryté, vyberte všetky viditeľné riadky "0", kliknite pravým tlačidlom myši na výber a kliknite na položku Odstrániť riadok :
- Po predchádzajúcom kroku ste získali prázdnu tabuľku, ale nebojte sa, riadky "1" v nej stále sú. Ak ich chcete opäť zviditeľniť, jednoducho odstráňte automatický filter kliknutím na tlačidlo Filter znovu tlačidlo:
- Vzorec v stĺpci C sa prepočíta pre zostávajúce riadky, ale už ho nepotrebujete. Teraz môžete bezpečne odstrániť pomocný stĺpec:
Výsledkom je, že v našom pracovnom liste zostali len párne týždne, nepárne týždne sú preč!
Tip: Ak chcete každý ďalší riadok presunúť na iné miesto, a nie ho úplne odstrániť, najprv skopírujte filtrované riadky, vložte ich na nové miesto a potom filtrované riadky odstráňte.
Ako odstrániť alternatívne riadky v programe Excel pomocou VBA
Ak nechcete strácať čas triviálnou úlohou, akou je vymazanie každého druhého riadku v hárkoch programu Excel, nasledujúce makro VBA môže tento proces automatizovať za vás:
Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Select the range" , SourceRange.Address, Type :=8) If SourceRange.Rows.Count>= 2 Then Dim FirstCell As Range Dim RowIndex As Integer Application.ScreenUpdating = False For RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) To 1Krok -2 Set FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End SubAko odstrániť každý druhý riadok v programe Excel pomocou makra
Vložte makro do pracovného hárka obvyklým spôsobom prostredníctvom editora jazyka Visual Basic:
- Stlačením klávesovej skratky Alt + F11 otvorte okno Visual Basic for Applications.
- Na hornom paneli ponuky kliknite na položku Vložte > Modul a vložte vyššie uvedené makro do Modul
- Stlačením tlačidla F5 spustíte makro.
- Zobrazí sa dialógové okno a vyzve vás na výber rozsahu. Vyberte svoju tabuľku a kliknite na tlačidlo OK:
Hotovo! Každý ďalší riadok vo vybranom rozsahu sa odstráni:
Ako odstrániť každý N-ty riadok v programe Excel
Pri tejto úlohe rozšírime techniku filtrovania, ktorú sme použili na odstránenie každého druhého riadku. Rozdiel je vo vzorci, na ktorom je filtrovanie založené:
MOD(ROW()- m , n )Kde:
- m je číslo riadku prvej bunky s údajmi mínus 1
- n je N-ty riadok, ktorý chcete vymazať
Povedzme, že vaše údaje začínajú v riadku 2 a vy chcete vymazať každý tretí riadok. Takže vo vašom vzorci n sa rovná 3 a m sa rovná 1 (riadok 2 mínus 1):
=MOD(RIADOK() - 1, 3)
Ak naše údaje začínajú v riadku 3, potom m by sa rovnala 2 (riadok 3 mínus 1) a tak ďalej. Táto oprava je potrebná na postupné číslovanie riadkov počnúc číslom 1.
Vzorec vydelí relatívne riadkové číslo číslom 3 a vráti zvyšok po delení. V našom prípade dáva pre každý tretí riadok nulu, pretože každé tretie číslo sa delí číslom 3 bez zvyšku (3,6,9 atď.):
A teraz vykonáte už známe kroky na filtrovanie riadkov "0":
- Vyberte ľubovoľnú bunku v tabuľke a kliknite na tlačidlo Filter tlačidlo na Údaje
- Filtrovanie stĺpca Pomocník tak, aby sa zobrazovali len hodnoty "0".
- Vyberte všetky viditeľné riadky "0", kliknite pravým tlačidlom myši a vyberte Odstrániť riadok z kontextového menu.
- Odstráňte filter a odstráňte stĺpec Pomocník.
Podobným spôsobom môžete v programe Excel vymazať každý 4., 5. alebo akýkoľvek iný N-ty riadok.
Tip. Ak potrebujete odstrániť riadky s irelevantnými údajmi, bude vám nápomocný nasledujúci návod: Ako odstrániť riadky na základe hodnoty bunky.
Ďakujem vám za prečítanie a dúfam, že sa na našom blogu uvidíme opäť budúci týždeň.