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ś.

Odblokuj magię Excela za pomocą Kutools AI

• Inteligentne wykonanie: Wykonuj operacje na komórkach, analizuj dane i twórz wykresy — a wszystko to za pomocą prostych poleceń.
• Formuły niestandardowe: Generuj dostosowane formuły, aby usprawnić przepływ pracy.
• Kodowanie VBA: Pisz i wdrażaj kod VBA bez wysiłku.
• Interpretacja formuły: Z łatwością zrozum złożone formuły.
• Tłumaczenie tekstu: Przełam bariery językowe w arkuszach kalkulacyjnych.

Zwiększ możliwości programu Excel dzięki narzędziom opartym na sztucznej inteligencji. Pobierz teraz i doświadcz wydajności jak nigdy dotąd!

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.

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.

Usuń ukryte lub widoczne wiersze przefiltrowanej listy za pomocą Kutools for Excel