Wielu użytkowników programu Excel ukrywa wiersze i kolumny, gdy mają widoczne dane, których nie potrzebują.
Jest to sposób na zachowanie widoczności tylko przydatnych danych, a jednocześnie nie musisz usuwać tych danych, których nie musisz być widoczny.
A jeśli masz wiele takich ukrytych wierszy/kolumn, znalezienie i usunięcie tych ukrytych wierszy i kolumn może być trudne (w przypadku, gdy ich nie potrzebujesz).
W tym samouczku pokażę Ci kilka sposobów na łatwe usuń ukryte wiersze i kolumny w programie Excel.
Istnieje wbudowana metoda, która pozwala usunąć wszystkie ukryte wiersze i kolumny za jednym razem, a także możesz użyć kodów makr VBA, jeśli chcesz zastosować to do naszego wybranego zakresu komórek.
Więc zacznijmy!
Usuń wszystkie ukryte wiersze i kolumny w programie Excel
Jeśli chcesz usunąć wszystkie ukryte wiersze i kolumny w całym skoroszycie w programie Excel, możesz użyć pokazanej tutaj metody.
Pamiętaj, że usunie te ukryte wiersze i kolumny z całego skoroszytu, a nie tylko z aktywnego arkusza.
Poniżej znajdują się kroki, aby usunąć wszystkie ukryte wiersze i kolumny ze skoroszytu w programie Excel:
- Kliknij opcję Plik
- W opcjach po lewej stronie kliknij „Informacje”
- Kliknij opcję „Sprawdź problemy”
- Kliknij opcję „Sprawdź dokument”. Spowoduje to otwarcie okna dialogowego Inspektora dokumentów
- W oknie dialogowym „Inspektor dokumentów” kliknij przycisk „Sprawdź”. Spowoduje to sprawdzenie całego skoroszytu i podanie informacji o skoroszycie
- Przewiń w dół do opcji „Ukryte wiersze i kolumny”. Zobaczysz, że pokazuje całkowitą liczbę ukrytych wierszy i kolumn znalezionych w skoroszycie.
- Kliknij przycisk „Usuń wszystko”
Powyższe kroki usunęłyby wszystkie ukryte wiersze i kolumny w skoroszycie.
Pamiętaj, że musisz zapisać ten skoroszyt przed uruchomieniem opcji Inspektora dokumentów. Jeśli skoroszyt nie został jeszcze zapisany, program Excel najpierw zmusi cię do jego zapisania. Ponadto wyświetli monit ostrzegawczy z prośbą o jednokrotne zapisanie pliku, ponieważ danych zmienionych przez te kroki nie można odzyskać.
Jeśli nie ma ukrytych wierszy i kolumn, zobaczysz zielony znacznik przed opcją Ukryte oraz Wiersze i kolumny (w oknie dialogowym Inspektor dokumentów).
Oprócz ukrytych wierszy i kolumn okno dialogowe Inspektora dokumentów zawiera również wiele innych przydatnych informacji, takich jak liczba komentarzy, ukryte arkusze lub osadzone dokumenty itp.
Uwaga: nie można cofnąć zmian wprowadzonych przez Inspektora dokumentów. Upewnij się więc, że masz kopię zapasową oryginalnych danych (na wypadek, gdyby była potrzebna w przyszłości)Jest to świetna metoda, jeśli chcesz usunąć wszystkie ukryte kolumny i wiersze z całego skoroszytu.
Ale jeśli chcesz go usunąć tylko w określonym arkuszu lub w określonym zakresie, nie możesz użyć tej opcji.
W takim przypadku możesz użyć opisanej dalej metody VBA.
Usuń ukryte wiersze i kolumny za pomocą VBA
Jeśli masz tylko kilka ukrytych wierszy i kolumn, możesz je ręcznie odkryć, a następnie usunąć.
Ale jeśli jest to coś, co musisz robić dość często lub jeśli masz duży zestaw danych z dużą liczbą ukrytych wierszy/kolumn, najlepiej użyć kodów makr VBA, aby zautomatyzować ten proces.
Spójrzmy na różne scenariusze, w których możesz użyć VBA do usunięcia tych ukrytych wierszy i kolumn.
Z całego arkusza roboczego (używany zakres)
Chociaż mogę sprawić, by kod VBA sprawdził cały arkusz roboczy, zaczynając od ostatniego numeru wiersza i ostatniego numeru kolumny w arkuszu, byłoby to marnotrawstwem zasobów.
Lepszą metodą byłoby sprawdzenie, jaki jest używany zakres, a następnie sprawdzenie tego używanego zakresu tylko dla ukrytych wierszy i kolumn.
Poniżej znajduje się kod VBA, który usunie wszystkie ukryte wiersze w używanym zakresie:
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 Następnie Rows(i).EntireRow.Delete Następny koniec Sub
Powyższy kod VBA najpierw odnajduje ostatni numer wiersza w używanym zakresie i przypisuje ten numer wiersza do zmiennej „LastRow”.
Ten numer ostatniego wiersza jest następnie używany w pętli For Next, w której zaczyna się od ostatniego wiersza i sprawdza, czy jest ukryty, czy nie.
Jeśli jest ukryty, cały wiersz zostanie usunięty. A jeśli nie jest ukryty, kod pozostawia ten wiersz bez zmian i przechodzi do wiersza nad nim. Ta pętla sprawdza wszystkie wiersze i usuwa wszystkie ukryte wiersze, które napotka w procesie.
Jeśli chcesz usunąć wszystkie ukryte kolumny z używanego zakresu, użyj poniższego kodu VBA:
Sub DeleteHiddenColumns() Dim sht As Worksheet Dim LastCol as Integer Ustaw 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 znowu działa w ten sam sposób, gdzie zamiast wierszy sprawdzamy kolumny.
Odnajduje więc numer ostatniej kolumny w używanym zakresie, przypisuje go do zmiennej, a następnie używa pętli, aby przejść z ostatniej kolumny do pierwszej kolumny i usunąć wszystkie ukryte kolumny w procesie.
A jeśli chcesz mieć kod, który usunie wszystkie ukryte wiersze, a także ukryte kolumny, użyj poniższego kodu VBA:
Sub DeleteHiddenRowsColumns() Dim sht As Worksheet Dim LastRow as Integer Dim LastCol as Integer Ustaw sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row LastCol = 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
To jest po prostu połączony kod dla wierszy i kolumn i działa w ten sam sposób.
Zamiast jednej pętli używa dwóch oddzielnych pętli, w których najpierw przechodzi przez wszystkie wiersze, a następnie przechodzi przez wszystkie kolumny. W trakcie tego procesu usuwa wszystkie ukryte wiersze i kolumny, które napotka.
Zauważ, że musisz umieścić ten kod VBA w zwykłym module w Edytorze Visual Basic. Następnie możesz uruchomić kod bezpośrednio z edytora VB, korzystając z okna dialogowego makr lub dodając to makro do paska narzędzi szybkiego dostępu.
Jeśli jest to coś, co musisz robić dość często, możesz również dodać ten kod do skoroszytu makr osobistych, aby mieć do niego dostęp ze wszystkich skoroszytów w systemie.
Z określonego zakresu komórek
Jeśli masz określony zakres, z którego chcesz usunąć ukryte wiersze i kolumny, musisz to określić w kodzie.
Daje to pewność, że kod okrąża tylko wiersze i kolumny w określonym zakresie, a pozostałe obszary arkusza pozostaną nietknięte
Poniżej kodu VBA, który by to zrobił:
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
W powyższym kodzie określiłem zakres jako A1:K200.
Dzięki temu kod przechodzi przez wszystkie wiersze i kolumny w określonym zakresie i usuwa wszystkie napotkane ukryte wiersze i kolumny.
Jeśli masz ukryte wiersze lub kolumny poza tym zakresem, pozostaną one nienaruszone.
Więc w ten sposób możesz usunąć ukryte wiersze i kolumny w programie Excel.
Jeśli chcesz to zrobić w całym skoroszycie, możesz użyć opcji Inspektor dokumentów. A jeśli potrzebujesz większej kontroli, możesz użyć kodów VBA, jak pokazano powyżej.
Mam nadzieję, że ten samouczek okazał się przydatny!
