Jak przefiltrować listę i usunąć pozostałe ukryte lub widoczne wiersze w programie Excel?
W przypadku listy filtrowanej może być konieczne usunięcie ukrytych lub widocznych wierszy, aby zachować tylko przydatne dane. W tym artykule pokażemy Ci metody usuwania pozostałych ukrytych lub widocznych wierszy przefiltrowanej listy w Excelu.
Usuń ukryte wiersze w aktywnym arkuszu z kodem VBA
Usuń widoczne wiersze przefiltrowanej listy, zaznaczając wszystkie widoczne komórki
Z łatwością usuwaj ukryte lub widoczne wiersze przefiltrowanej listy za pomocą Kutools for Excel
Usuń ukryte wiersze w aktywnym arkuszu z kodem VBA
Ta sekcja pokaże kod VBA do usuwania ukrytych wierszy w aktywnym arkuszu. Wykonaj następujące czynności.
1. Aktywuj arkusz roboczy, w którym chcesz usunąć ukryte wiersze, naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. W oknie Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.
Kod VBA: Usuń ukryte wiersze
Sub RemoveHiddenRows()
Dim xRow As Range
Dim xRg As Range
Dim xRows As Range
On Error Resume Next
Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
If xRows Is Nothing Then Exit Sub
For Each xRow In xRows.Columns(1).Cells
If xRow.EntireRow.Hidden Then
If xRg Is Nothing Then
Set xRg = xRow
Else
Set xRg = Union(xRg, xRow)
End If
End If
Next
If Not xRg Is Nothing Then
MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
xRg.EntireRow.Delete
Else
MsgBox "No hidden rows found", , "Kutools for Excel"
End If
End Sub
3. wciśnij F5 klucz do uruchomienia kodu. Jeśli w aktywnym arkuszu znajdują się ukryte wiersze, po uruchomieniu kodu pojawi się okno dialogowe z informacją, ile ukrytych wierszy zostało usuniętych. Kliknij OK przycisk, aby usunąć ukryte wiersze. Zobacz zrzut ekranu:
W przeciwnym razie po uruchomieniu kodu pojawi się następujące okno dialogowe.
Note: powyższy kod VBA może nie tylko usuwać ukryte wiersze przefiltrowanej listy, ale także usuwać ukryte wiersze, które wcześniej ręcznie ukrywałeś.
Usuń widoczne wiersze przefiltrowanej listy, wybierając wszystkie widoczne funkcje komórek
Aby usunąć widoczne wiersze przefiltrowanej listy, wykonaj następujące czynności.
1. Wybierz wszystkie odfiltrowane wiersze i naciśnij F5 klucz, aby otworzyć przejdź do okno dialogowe, a następnie kliknij Specjalny przycisk. Zobacz zrzut ekranu:
2. w Przejdź do specjalnego w oknie dialogowym, sprawdź Tylko widoczne komórki opcję, a następnie kliknij OK przycisk.
3. Teraz wszystkie widoczne wiersze są zaznaczone, kliknij je prawym przyciskiem myszy, a następnie kliknij Usuń wiersze.
Do tej pory wszystkie widoczne wiersze są usuwane z przefiltrowanej listy.
Z łatwością usuwaj ukryte lub widoczne wiersze przefiltrowanej listy za pomocą Kutools for Excel
Powyższe dwie metody mogą nie być pożądanymi rozwiązaniami dla wielu użytkowników Excela, tutaj przedstawiamy przydatne narzędzie. Z Usuń ukryte (widoczne) wiersze i kolumny użyteczność Kutools dla programu Excel, możesz łatwo usunąć ukryte wiersze w wybranym zakresie / arkuszach, aktywnym arkuszu lub wszystkich arkuszach w programie Excel.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
1. Jeśli chcesz usunąć tylko ukryte lub widoczne wiersze przefiltrowanej listy, wybierz filtrowany zakres ręcznie, a następnie kliknij Kutools > Usuń > Usuń ukryte (widoczne) wiersze i kolumny. Zobacz zrzut ekranu:
2. w Usuń ukryte (widoczne) wiersze i kolumnę w oknie dialogowym, zachowaj W wybranym zakresie wybrane w Zaglądać rozwijaną listę (możesz wybrać inne opcje, jeśli potrzebujesz), zaznacz Wydziwianie opcja w Usuń typ sekcji i w Szczegółowy typ sekcja, sprawdź Widoczne rzędy or Ukryte wiersze opcja, jak potrzebujesz. I na koniec kliknij OK przycisk.
3. Następnie pojawi się okno dialogowe z informacją, ile wierszy zostało usuniętych, kliknij OK przycisk.
Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.
Usuń ukryte lub widoczne wiersze przefiltrowanej listy za pomocą Kutools for Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!