Mnoho používateľov Excelu skrýva riadky a stĺpce, ak majú k dispozícii údaje, ktoré nepotrebujú.
Je to spôsob, ako udržať viditeľné iba užitočné údaje a zároveň nemusíte odstraňovať údaje, ktoré nepotrebujete, aby boli viditeľné.
A ak máte veľa takýchto skrytých riadkov/stĺpcov, bolo by ťažké nájsť a odstrániť tieto skryté riadky a stĺpce (v prípade, že ich nepotrebujete).
V tomto návode vám ukážem niekoľko spôsobov, ako to ľahko dosiahnuť odstráňte skryté riadky a stĺpce v programe Excel.
Existuje vstavaná metóda, ktorá vám umožňuje naraz odstrániť všetky skryté riadky a stĺpce, a tiež môžete použiť kódy makier VBA v prípade, že to chcete použiť na nami vybraný rozsah buniek.
Začnime teda!
Odstráňte všetky skryté riadky a stĺpce v programe Excel
Ak chcete v programe Excel odstrániť všetky skryté riadky a stĺpce z celého zošita, môžete použiť tu zobrazenú metódu.
Nezabudnite, že tieto skryté riadky a stĺpce odstráni z celého zošita, a nie iba z aktívneho hárka.
Nasledujú kroky na odstránenie všetkých skrytých riadkov a stĺpcov zo zošita v programe Excel:
- Kliknite na možnosť Súbor
- V možnostiach vľavo kliknite na „Informácie“
- Kliknite na možnosť „Skontrolovať problémy“
- Kliknite na možnosť „Skontrolovať dokument“. Otvorí sa dialógové okno Kontrola dokumentu
- V dialógovom okne „Kontrola dokumentu“ kliknite na tlačidlo „Skontrolovať“. To skontroluje celý zošit a poskytne vám informácie o zošite
- Prejdite nadol na možnosť „Skryté riadky a stĺpce“. Uvidíte, že ukazuje celkový počet skrytých riadkov a stĺpcov, ktoré našiel v zošite.
- Kliknite na tlačidlo „Odstrániť všetko“
Vyššie uvedené kroky by odstránili všetky skryté riadky a stĺpce v zošite.
Tento zošit si musíte uložiť pred spustením možnosti Kontrola dokumentov. V prípade, že zošit už nie je uložený, Excel vás najskôr prinúti uložiť ho. Tiež sa vám zobrazí výstražná výzva s požiadavkou na jednorazové uloženie súboru, pretože údaje zmenené týmito krokmi nie je možné obnoviť.
V prípade, že neexistujú žiadne skryté riadky a stĺpce, pred možnosťou Skryté a Riadky a stĺpce (v dialógovom okne Inšpektor dokumentu) sa zobrazí zelené začiarknutie.
Dialógové okno Kontrola dokumentov vám okrem skrytých riadkov a stĺpcov ponúka aj mnoho ďalších užitočných informácií - napríklad počet komentárov alebo skryté pracovné listy alebo vložené dokumenty atď.
Poznámka: Zmeny vykonané inšpektorom dokumentov nemôžete vrátiť späť. Uistite sa preto, že máte záložnú kópiu pôvodných údajov (v prípade, že ich budete v budúcnosti potrebovať)Je to skvelá metóda, ak chcete odstrániť všetky skryté stĺpce a riadky z celého zošita.
Ale v prípade, že ho chcete odstrániť iba v konkrétnom hárku alebo v určitom rozsahu, nemôžete túto možnosť použiť.
V takom prípade môžete použiť nižšie uvedenú metódu VBA.
Odstráňte skryté riadky a stĺpce pomocou VBA
Ak máte iba niekoľko skrytých riadkov a stĺpcov, je možné ich odkryť ručne a potom ich odstrániť.
Ale ak je to niečo, čo musíte robiť dosť často, alebo ak máte veľkú množinu údajov s veľkým počtom skrytých riadkov/stĺpcov, je najlepšie na automatizáciu tohto procesu použiť makrokódy VBA.
Pozrime sa na rôzne scenáre, v ktorých môžete pomocou VBA odstrániť tieto skryté riadky a stĺpce.
Z celého pracovného hárka (použitý rozsah)
Aj keď môžem kód VBA nechať skontrolovať celý pracovný hárok od posledného čísla riadka a posledného stĺpca v pracovnom hárku, bolo by to plytvanie zdrojmi.
Lepšou metódou by bolo zistiť, aký je použitý rozsah, a potom iba skontrolovať použitý rozsah pre všetky skryté riadky a stĺpce.
Nasleduje kód VBA, ktorý by odstránil všetky skryté riadky v použitom rozsahu:
Sub DeleteHiddenRows () Dim sht As worksheet Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row For i = LastRow To 1 Step -1 If Rows (i) .Hidden = True Potom riadky (i) .EntireRow.Delete Next End Sub
Vyššie uvedený kód VBA najskôr zistí číslo posledného riadka v použitom rozsahu a priradí toto číslo riadku premennej „LastRow“.
Toto posledné číslo riadku sa potom použije v slučke For Next, kde začína od posledného riadka a kontroluje, či je skrytý alebo nie.
V prípade, že je skrytý, celý tento riadok sa odstráni. A ak nie je skrytý, kód ponechá tento riadok tak, ako je, a presunie sa do riadka nad ním. Táto slučka skontroluje všetky riadky a odstráni všetky skryté riadky, s ktorými sa v tomto procese stretne.
V prípade, že chcete odstrániť všetky skryté stĺpce v použitom rozsahu, použite nižšie uvedený kód VBA:
Sub DeleteHiddenColumns () Dim sht as Worksheet Dim LastCol as Integer Set sht = ActiveSheet LastCol = sht.UsedRange.Columns (sht.UsedRange.Columns.Count) .Column For i = LastCol To 1 Step -1 If Columns (i) .Hidden = True Then Columns (i) .EntireColumn.Delete Next End Sub
Funguje to opäť rovnako, kde namiesto riadkov kontrolujeme stĺpce.
Zistí teda číslo posledného stĺpca v použitom rozsahu, priradí ho k premennej a potom pomocou slučky prejde z posledného stĺpca do prvého stĺpca a v tomto procese odstráni všetky skryté stĺpce.
A v prípade, že chcete mať kód, ktorý by odstránil všetky skryté riadky, ako aj skryté stĺpce, použite nižšie uvedený kód VBA:
Sub DeleteHiddenRowsColumns () Dim sht As worksheet Dim LastRow as Integer Dim LastCol as Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row LastCol = sht.UsedRange.Columns (sht.UsedRange. Columns.Count). Column for i = LastRow To 1 Step -1 If Rows (i) .Hidden = True Then Rows (i) .EntireRow.Delete Next For i = LastCol To 1 Step -1 If Columns (i) .Hidden = True Then Columns (i) .EntireColumn.Delete Next End Sub
Toto je iba kombinovaný kód pre riadky aj stĺpce a funguje rovnako.
Namiesto jednej slučky to používa dve oddelené slučky, kde najskôr prejde všetkými riadkami a potom prejde všetkými stĺpcami. A pritom odstráni všetky skryté riadky a stĺpce, s ktorými sa stretne.
Upozorňujeme, že tento kód VBA musíte vložiť do bežného modulu v editore jazyka Visual Basic. Kód potom môžete spustiť priamo z editora VB pomocou dialógového okna makier alebo pridaním tohto makra na panel s nástrojmi rýchleho prístupu.
Ak je to niečo, čo musíte robiť dosť často, môžete tento kód pridať aj do osobného zošita makier, aby ste k nemu mali prístup zo všetkých zošitov vo vašom systéme.
Zo špecifického rozsahu buniek
V prípade, že máte konkrétny rozsah, z ktorého chcete odstrániť skryté riadky a stĺpce, musíte to zadať v kóde.
Zaistí sa tak, že kód bude krúžiť iba v riadkoch a stĺpcoch v uvedenom rozsahu a ostatné oblasti v hárku zostane nedotknuté.
Pod kódom VBA, ktorý by to urobil:
Sub DeleteHiddenRowsColumns () Dim sht As worksheet Dim Rng As Range Dim LastRow As Integer Dim RowCount As Integer Set sht = ActiveSheet Set Rng = Range ("A1: K200") RowCount = Rng.Rows.Count LastRow = Rng.Rows (Rng. Rows.Count). Row ColCount = Rng.Columns.Count LastCol = Rng.Columns (Rng.Columns.Count) .Column For i = LastRow To LastRow - RowCount Krok -1 If Rows (i) .Hidden = True Then Rows ( i) .EntireRow.Delete Next for j = LastCol To LastCol - ColCount Krok -1 If Columns (j) .Hidden = True Then Columns (j) .EntireColumn.Delete Next End Sub
Vo vyššie uvedenom kóde som uviedol rozsah ako A1: K200.
Vďaka tomu kód prejde všetkými riadkami a stĺpcami v určenom rozsahu a odstráni všetky skryté riadky a stĺpce, s ktorými sa stretne.
Ak máte skryté riadky alebo stĺpce mimo tohto rozsahu, zostanú nedotknuté.
Takto teda môžete odstrániť skryté riadky a stĺpce v programe Excel.
Ak to chcete urobiť v celom zošite, môžete použiť možnosť Kontrola dokumentov. A v prípade, že potrebujete väčšiu kontrolu, môžete použiť kódy VBA, ako je uvedené vyššie.
Dúfam, že ste našli tento návod užitočný!