Mnoho uživatelů aplikace Excel skrývá řádky a sloupce, když mají nějaká data, která nepotřebují vidět.
Je to způsob, jak udržovat viditelná pouze užitečná data a zároveň nemusíte mazat data, která nepotřebujete být viditelná.
A pokud máte mnoho takových skrytých řádků/sloupců, mohlo by být bolestivé najít a odstranit tyto skryté řádky a sloupce (v případě, že je nepotřebujete).
V tomto tutoriálu vám ukážu několik způsobů, jak snadno odstraňte skryté řádky a sloupce v aplikaci Excel.
Existuje vestavěná metoda, která vám umožňuje odstranit všechny skryté řádky a sloupce najednou, a můžete také použít kódy maker VBA v případě, že to chcete použít na námi vybraný rozsah buněk.
Začněme tedy!
Odstraňte všechny skryté řádky a sloupce v aplikaci Excel
Pokud chcete v aplikaci Excel odstranit všechny skryté řádky a sloupce z celého sešitu, můžete použít zde zobrazenou metodu.
Pamatujte, že tyto skryté řádky a sloupce odstraní z celého sešitu a ne pouze z aktivního listu.
Níže jsou uvedeny kroky k odstranění všech skrytých řádků a sloupců ze sešitu v aplikaci Excel:
- Klikněte na možnost Soubor
- V možnostech vlevo klikněte na „Informace“
- Klikněte na možnost „Zkontrolovat problémy“
- Klikněte na možnost „Zkontrolovat dokument“. Otevře se dialogové okno Inspektor dokumentů
- V dialogovém okně „Inspektor dokumentů“ klikněte na tlačítko „Zkontrolovat“. To zkontroluje celý sešit a poskytne vám informace o sešitu
- Přejděte dolů na možnost „Skryté řádky a sloupce“. Uvidíte, že ukazuje celkový počet skrytých řádků a sloupců, které našel v sešitu.
- Klikněte na tlačítko „Odebrat vše“
Výše uvedené kroky by odstranily všechny skryté řádky a sloupce v sešitu.
Tento sešit musíte uložit před spuštěním možnosti Inspektor dokumentů. V případě, že sešit již není uložen, Excel vás nejprve donutí jej uložit. Rovněž se zobrazí varovná výzva s žádostí o uložení souboru jednou, protože data změněná těmito kroky nelze obnovit.
V případě, že neexistují žádné skryté řádky a sloupce, před možností Skryté a Řádky a sloupce (v dialogovém okně Kontrola dokumentu) byste viděli zelené zaškrtnutí.
Kromě skrytých řádků a sloupců vám dialogové okno Inspektor dokumentů nabízí také spoustu dalších užitečných informací - například počet komentářů nebo skryté listy, vložené dokumenty atd.
Poznámka: Změny provedené inspektorem dokumentů nelze vrátit zpět. Ujistěte se tedy, že máte záložní kopii původních dat (pro případ, že byste je v budoucnu mohli potřebovat)Je to skvělá metoda, pokud chcete odstranit všechny skryté sloupce a řádky pro celý sešit.
Ale v případě, že jej chcete odstranit pouze v určitém listu nebo v určitém rozsahu, pak tuto možnost nemůžete použít.
V takovém případě můžete použít dále popsanou metodu VBA.
Odstraňte skryté řádky a sloupce pomocí VBA
Pokud máte jen několik skrytých řádků a sloupců, je možné je ručně zobrazit a poté odstranit.
Pokud je to však něco, co musíte dělat poměrně často, nebo pokud máte velkou datovou sadu s velkým počtem skrytých řádků/sloupců, je nejlepší k automatizaci tohoto procesu použít kódy makra VBA.
Podívejme se na různé scénáře, kde můžete pomocí VBA odstranit tyto skryté řádky a sloupce.
Z celého pracovního listu (použitý rozsah)
I když mohu kód VBA zkontrolovat celý list počínaje číslem posledního řádku a číslem posledního sloupce v listu, bylo by to plýtvání zdroji.
Lepší metodou by bylo zjistit, jaký je použitý rozsah, a poté pouze zkontrolovat použitý rozsah pro skryté řádky a sloupce.
Níže je kód VBA, který by odstranil všechny skryté řádky v použitém 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 řádky (i) .EntireRow.Delete Next End Sub
Výše uvedený kód VBA nejprve zjistí číslo posledního řádku v použitém rozsahu a přiřadí číslo řádku proměnné ‘LastRow’.
Toto poslední číslo řádku se pak použije ve smyčce For Next, kde začíná od posledního řádku a kontroluje, zda je skryté nebo ne.
V případě, že je skrytý, bude celý řádek odstraněn. A pokud není skrytý, kód ponechá tento řádek tak, jak je, a přesune se na řádek nad ním. Tato smyčka kontroluje všechny řádky a odstraní všechny skryté řádky, na které v procesu narazí.
V případě, že chcete odstranit všechny skryté sloupce v použitém rozsahu, použijte níže 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
To opět funguje stejným způsobem, kde místo řádků kontrolujeme sloupce.
Zjistí tedy číslo posledního sloupce v použitém rozsahu, přiřadí jej proměnné a poté pomocí smyčky přejde z posledního sloupce do prvního sloupce a odstraní všechny skryté sloupce v procesu.
A v případě, že chcete mít kód, který by odstranil všechny skryté řádky, stejně jako skryté sloupce, použijte níže 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 pouze kombinovaný kód pro řádky i sloupce a funguje stejným způsobem.
Místo jedné smyčky se zde používají dvě oddělené smyčky, kde nejprve prochází všemi řádky a poté prochází všemi sloupci. A během toho odstraní všechny skryté řádky a sloupce, na které narazí.
Všimněte si, že tento kód VBA musíte umístit do běžného modulu v editoru jazyka. Potom můžete spustit kód přímo z editoru VB pomocí dialogového okna makra nebo přidáním tohoto makra na panel nástrojů rychlého přístupu.
Pokud je to něco, co musíte dělat poměrně často, můžete tento kód přidat také do osobního sešitu maker, abyste k němu měli přístup ze všech sešitů ve vašem systému.
Ze specifického rozsahu buněk
V případě, že máte konkrétní rozsah, ze kterého chcete odebrat skryté řádky a sloupce, musíte to zadat v kódu.
Tím je zajištěno, že kód pouze krouží řádky a sloupce v uvedeném rozsahu a ponechá ostatní oblasti v listu nedotčené
Pod kódem VBA, který by to udělal:
Dílčí 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
Ve výše uvedeném kódu jsem specifikoval rozsah jako A1: K200.
Díky tomu kód projde všemi řádky a sloupci v zadaném rozsahu a odstraní všechny skryté řádky a sloupce, na které narazí.
Pokud máte skryté řádky nebo sloupce mimo tento rozsah, zůstanou nedotčeny.
Takto tedy můžete mazat skryté řádky a sloupce v Excelu.
Pokud to chcete udělat v celém sešitu, můžete použít možnost Inspektor dokumentů. A v případě, že potřebujete větší kontrolu, můžete použít kódy VBA, jak je uvedeno výše.
Doufám, že jste našli tento návod užitečný!
