Direkt zum Inhalt

Wie lösche ich Zeilen, die keinen bestimmten Text in Excel enthalten?

Vielleicht wissen einige von Ihnen, wie man die gesamten Zeilen löscht, wenn sie bestimmte Texte in Excel enthalten, aber wenn Sie die gesamte Zeile löschen möchten, wenn sie bestimmte Texte nicht enthalten, wie können Sie dies tun? Befolgen Sie nun dieses Tutorial, um dieses Problem in Excel zu lösen.

Löschen Sie Zeilen, die keinen bestimmten Text enthalten, mit Filter

Löschen Sie Zeilen, die keinen bestimmten Text enthalten, mit VBA

Löschen Sie mit Kutools for Excel Zeilen, die keinen bestimmten Text enthalten


Pfeil blau rechte Blase Löschen Sie Zeilen, die keinen bestimmten Text enthalten, mit Filter

In Excel können Sie mit der Filterfunktion schnell die Zeilen filtern, die keinen bestimmten Text enthalten, und sie dann zum Löschen auswählen.

1. Wählen Sie die Spalte aus, die Texte enthält, anhand derer Sie Zeilen entfernen möchten, und klicken Sie auf Datum > Filter. Siehe Screenshot:

doc-delete-Zeilen-nicht-enthalten-1
doc-Pfeil
doc-delete-Zeilen-nicht-enthalten-2

2. In der Kopfzeile der Spalte befindet sich eine Filterschaltfläche. Klicken Sie darauf, um die Dropdown-Liste zu öffnen. Überprüfen Sie alle außer dem bestimmten Text, auf dem Sie basieren möchten. Siehe Screenshot:

doc-delete-Zeilen-nicht-enthalten-3

3. Dann können Sie nur die Kopfzeile sehen und die Zeilen, die keinen bestimmten Text enthalten, werden gefiltert. Siehe Screenshot:

doc-delete-Zeilen-nicht-enthalten-4

4. Wählen Sie alle außer der Kopfzeile aus und klicken Sie mit der rechten Maustaste, um sie auszuwählen Zeile löschen aus dem Kontextmenü. Siehe Screenshot:

doc-delete-Zeilen-nicht-enthalten-5

5. Dann klick Datum > Filter erneut, und dann werden alle Zeilen gelöscht, die keinen bestimmten Text enthalten. Siehe Screenshot:

doc-delete-Zeilen-nicht-enthalten-6
doc-Pfeil
doc-delete-Zeilen-nicht-enthalten-7

Pfeil blau rechte Blase Löschen Sie Zeilen, die keinen bestimmten Text enthalten, mit VBA

VBA ist sehr nützlich für etwas schwierige Vorgänge in Excel. Führen Sie die folgenden Schritte aus, um die Zeilen zu löschen, die keinen bestimmten Text enthalten.

1. Drücken Sie Alt + F11 um das anzuzeigen Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie im Fenster auf Insert > Modul Um ein neues Modulfenster anzuzeigen, kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA: Löschen Sie die gesamte Zeile, wenn die Zelle bestimmten Text enthält.

Sub DeleteRowNoInclude()
'Update20140618
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
    Set xRow = WorkRng.Rows(i)
    Set rng = xRow.Find(xStr, LookIn:=xlValues)
    If rng Is Nothing Then
       xRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub
3 Klicken Führen Sie Klicken Sie auf die Schaltfläche, und es wird ein Dialogfeld angezeigt, in dem Sie einen zu verwendenden Bereich auswählen können. Siehe Screenshot:

doc-delete-Zeilen-nicht-enthalten-8

4. Dann klick OKGeben Sie den Text, auf dem Sie Zeilen entfernen möchten, in ein anderes Popup-Dialogfeld ein. Siehe Screenshot:

doc-delete-Zeilen-nicht-enthalten-9

5 Klicken OKund die Zeilen, die Apple nicht enthalten, werden entfernt.


Pfeil blau rechte Blase Löschen Sie mit Kutools for Excel Zeilen, die keinen bestimmten Text enthalten

Wenn Sie der Meinung sind, dass die oben genannten Methoden für Sie nicht einfach sind, können Sie sie verwenden Kutools for Excel's Wählen Sie Bestimmte Zellen aus -Funktion

Kutools for Excel Enthält mehr als 300 praktische Excel-Tools. Kostenlos ohne Einschränkung in 30 Tagen zu versuchen. Starten Sie jetzt

1. Wählen Sie die Spalte aus, in der Sie die Zeilen löschen möchten, die keinen bestimmten Text enthalten, und klicken Sie auf Kutoolen > Wählen Sie Extras > Wählen Sie Bestimmte Zellen aus. Siehe Screenshot:

doc-delete-Zeilen-nicht-enthalten-10

2. Und in der Wählen Sie Bestimmte Zellen aus Dialog, überprüfen Ganze Reihe, und wählen Sie Enthält keineund geben Sie den bestimmten Text in das Textfeld ein. Sie können auch auf die Bereichstaste im Feld klicken Spezifischer Typ Abschnitt, um die Zelle auszuwählen, die den bestimmten Text enthält.

doc-delete-Zeilen-nicht-enthalten-11

3. Dann klick OkWenn die Zeilen ausgewählt sind, die keinen bestimmten Text enthalten, klicken Sie mit der rechten Maustaste, um sie auszuwählen Löschen aus dem Kontextmenü. Siehe Screenshot:

doc-delete-Zeilen-nicht-enthalten-12

4. Jetzt werden alle Zeilen entfernt, die keinen bestimmten Text im Bereich enthalten. Klicken Sie auf sie, um weitere Informationen zu Select Specific Cells zu erhalten.


Relative Artikel:

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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to modify the VBA code to add an option like this,

Dim xOpt As Integer
xOpt = Application.InputBox("Rows Around Kept (0, 1, 2)", xTitleId, "", Type:=1)

where 0 is the same as your code above where it keeps only the row with specified word in it and deletes all other rows.
where 1 keeps the rows immediately above and below the rows with the specified word in it and deletes all other rows.
where 2 keeps the 2 rows above and below the rows with the specified words in it and deletes all other rows.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations