Direkt zum Inhalt

Wie filtere ich eine Liste und lösche die restlichen versteckten oder sichtbaren Zeilen in Excel?

Bei einer gefilterten Liste müssen Sie möglicherweise die ausgeblendeten oder sichtbaren Zeilen löschen, um nur die nützlichen Daten beizubehalten. In diesem Artikel zeigen wir Ihnen Methoden zum Löschen der restlichen versteckten oder sichtbaren Zeilen einer gefilterten Liste in Excel.

Löschen Sie versteckte Zeilen im aktiven Arbeitsblatt mit VBA-Code
Löschen Sie sichtbare Zeilen der gefilterten Liste, indem Sie alle sichtbaren Zellen auswählen
Löschen Sie mit Kutools for Excel einfach versteckte oder sichtbare Zeilen gefilterter Listen


Löschen Sie versteckte Zeilen im aktiven Arbeitsblatt mit VBA-Code

Dieser Abschnitt zeigt Ihnen VBA-Code zum Löschen versteckter Zeilen im aktiven Blatt. Bitte gehen Sie wie folgt vor.

1. Aktivieren Sie das Arbeitsblatt, das Sie zum Löschen ausgeblendeter Zeilen benötigen, und drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.

VBA-Code: Löschen Sie versteckte Zeilen

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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Wenn das aktive Blatt ausgeblendete Zeilen enthält, wird nach dem Ausführen des Codes ein Dialogfeld angezeigt, in dem Sie darüber informiert werden, wie viele ausgeblendete Zeilen gelöscht wurden. Drücke den OK Schaltfläche zum Löschen der ausgeblendeten Zeilen. Siehe Screenshot:

doc löschen rest 1

Andernfalls wird nach dem Ausführen des Codes das folgende Dialogfeld angezeigt.

doc löschen rest 1

Note: Der obige VBA-Code kann nicht nur versteckte Zeilen der gefilterten Liste löschen, sondern auch versteckte Zeilen, die Sie zuvor manuell ausgeblendet haben.


Löschen Sie sichtbare Zeilen der gefilterten Liste, indem Sie alle sichtbaren Zellen auswählen

Gehen Sie wie folgt vor, um sichtbare Zeilen der gefilterten Liste zu löschen.

1. Wählen Sie alle herausgefilterten Zeilen aus und drücken Sie F5 Schlüssel zum Öffnen des Gehe zu Klicken Sie dann auf das Dialogfeld Spezial Taste. Siehe Screenshot:

doc löschen rest 1

2. In dem Gehe zu Spezial Wählen Sie im Dialogfeld Nur sichtbare Zellen Option, und klicken Sie dann auf OK .

doc löschen rest 1

3. Nun sind alle sichtbaren Zeilen ausgewählt. Klicken Sie mit der rechten Maustaste auf die Auswahl, und klicken Sie dann auf Zeilen löschen.

doc löschen rest 1

Bisher werden alle sichtbaren Zeilen aus der gefilterten Liste gelöscht.


Löschen Sie mit Kutools for Excel einfach versteckte oder sichtbare Zeilen gefilterter Listen

Die beiden oben genannten Methoden sind möglicherweise nicht die gewünschten Lösungen für viele Excel-Benutzer. Hier stellen wir Ihnen ein praktisches Tool vor. Mit der Versteckte (sichtbare) Zeilen und Spalten löschen Nutzen von Kutools for Excelkönnen Sie ausgeblendete Zeilen in ausgewählten Bereichen / Blättern, aktiven Blättern oder allen Arbeitsblättern in Excel einfach löschen.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Wenn Sie nur versteckte oder sichtbare Zeilen einer gefilterten Liste löschen möchten, wählen Sie den gefilterten Bereich manuell aus und klicken Sie dann auf Kutoolen > Löschen > Versteckte (sichtbare) Zeilen und Spalten löschen. Siehe Screenshot:

2. In dem Versteckte (sichtbare) Zeilen und Spalten löschen Dialogfeld, behalten Sie die Im ausgewählten Bereich ausgewählt in der Hinein sehen Dropdown-Liste (Sie können nach Bedarf andere Optionen auswählen), überprüfen Sie die Reihen Option in der Typ löschen Abschnitt und in der Detaillierter Typ Abschnitt, überprüfen Sichtbare Reihen or Versteckte Zeilen Option nach Bedarf. Und zum Schluss klicken Sie auf OK .

3. Daraufhin wird ein Dialogfeld angezeigt, in dem Sie erfahren, wie viele Zeilen gelöscht wurden. Klicken Sie auf OK .

  Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Löschen Sie versteckte oder sichtbare Zeilen der gefilterten Liste mit Kutools for Excel

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi this VBA code is awesome useful.
This comment was minimized by the moderator on the site
Thanks for the info. This has been instructive. Please is there a way to filter and delete for specific numbers in rows of up to 1 million? Can the code above be modified to do so?
This comment was minimized by the moderator on the site
Hi,
Sorry did not test the code in such huge row data. Maybe you can make a copy of your data and test if the code can work.
This comment was minimized by the moderator on the site
VBA code to Delete hidden rows worked perfectly with no fiddling. THANK YOU!!
This comment was minimized by the moderator on the site
Feedback re: the macro for hidden row deletions - this takes too long to run on 900k rows to be useful. 2+ hours on an OC'd Threadripper 1950X and still running (had to end task). Any way to optimize it to use multiple cores or is this a VBA limitation?
This comment was minimized by the moderator on the site
Hi,
The code has been optimized. Please have a try. Thank you for your comment.

Sub RemoveHiddenRows()
Dim xFlag As Boolean
Dim xStr, xTemp As String
Dim xDiv, xMod As Long
Dim I, xCount, xRows As Long
Dim xRg, xCell, xDRg As Range
Dim xArr() As String
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Set xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xFlag = True
xTemp = ""
xCount = 0
For I = 1 To xRows
Set xCell = xRg.Offset(I - 1, 0)
Do While xFlag
If xCell.EntireRow.Hidden Then
xStr = xCell.Address
xFlag = False
Else
GoTo Ctn
End If
Loop
If xCell.EntireRow.Hidden Then
xTemp = xStr & "," & xCell.Address
End If
If Len(xTemp) > 171 Then
xCount = xCount + 1
ReDim Preserve xArr(1 To xCount)
xArr(xCount) = xStr
xStr = xCell.Address
Else
xStr = xTemp
End If
Ctn:
Next
xCount = xCount + 1
ReDim Preserve xArr(1 To xCount)
xArr(xCount) = xStr
For I = xCount To 1 Step -1
If I = 1 Then
xStr = Mid(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
Else
xStr = xArr(I)
End If
If xDRg Is Nothing Then
Set xDRg = Range(xStr)
Else
Set xDRg = Union(xDRg, Range(xStr))
End If
If (Len(xDRg.Address) >= 244) Or (xCount = 1) Then
xDRg.EntireRow.Delete
Set xDRg = Nothing
End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Awesome, thank you! Will review at my next opportunity / need for this and reply back.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations