Direkt zum Inhalt

Wie entferne ich Zeilen basierend auf dem Zellenwert in Excel?

Um mehrere Zeilen basierend auf dem Zellenwert in Excel schnell zu löschen oder zu entfernen, müssen Sie möglicherweise zuerst die gesamten Zeilen mit einem bestimmten Zellenwert auswählen und dann entfernen. Es scheint, dass es keine schnelle Möglichkeit gibt, Zeilen basierend auf dem Zellenwert zu löschen, sondern VBA-Code zu verwenden. Hier sind einige schnelle Tricks, die Ihnen helfen sollen.


Entfernen Sie Zeilen basierend auf dem Zellenwert mit der Funktion Suchen und Ersetzen

In Excel können Sie die leistungsstarke Funktion zum Suchen und Ersetzen anwenden, um Zeilen basierend auf einem bestimmten Zellenwert einfach zu entfernen. Bitte gehen Sie wie folgt vor:

1. Wählen Sie den Bereich aus, in dem Sie Zeilen basierend auf einem bestimmten Zellenwert entfernen möchten, und öffnen Sie das Dialogfeld Suchen und Ersetzen, indem Sie auf drücken Ctrl + F Schlüssel gleichzeitig.

2. Geben Sie im Dialogfeld Suchen und Ersetzen den bestimmten Zellenwert ein (in unserem Fall geben wir den ein So) in die Find what Klicken Sie auf das Feld Find All Taste. Siehe den ersten Screenshot unten:

3. Wählen Sie alle Suchergebnisse unten im Dialogfeld Suchen und Ersetzen aus und schließen Sie dieses Dialogfeld. (Note: Sie können eines der Suchergebnisse auswählen und dann Ctrl + A Tasten, um alle gefundenen Ergebnisse auszuwählen. Siehe den zweiten Screenshot oben.)
Und dann können Sie sehen, dass alle Zellen ausgewählt sind, die den bestimmten Wert enthalten.

4. Klicken Sie mit der rechten Maustaste auf ausgewählte Zellen und wählen Sie die aus Delete aus dem Kontextmenü. Und dann überprüfen Sie die Entire row Option im daraufhin angezeigten Dialogfeld Löschen und klicken Sie auf OK Taste. Jetzt sehen Sie, dass alle Zellen, die den bestimmten Wert enthalten, entfernt werden. Siehe Screenshots unten:

Und dann wurden bereits ganze Zeilen basierend auf dem bestimmten Wert gelöscht.


Entfernen Sie Zeilen basierend auf dem Zellenwert mit VBA-Code

Mit dem folgenden VBA-Code können Sie die Zeilen mit einem bestimmten Zellenwert schnell löschen. Führen Sie dazu die folgenden Schritte aus:

1. Drücken Sie die Alt + F11 Tasten gleichzeitig zu öffnen Microsoft Visual Basic for applications Fenster,

2. Klicken Sie Insert > Moduleund geben Sie den folgenden Code in das Modul ein:

VBA: Entfernen Sie ganze Zeilen basierend auf dem Zellenwert

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Klicken Sie dann auf Run Schaltfläche, um den Code auszuführen.

4. Wählen Sie im Popup-Dialogfeld den Bereich aus, in dem Sie Zeilen basierend auf dem bestimmten Wert entfernen möchten, und klicken Sie auf OK .

5. Geben Sie in einem anderen Dialogfeld den bestimmten Wert ein, anhand dessen Sie Zeilen entfernen möchten, und klicken Sie auf OK Taste. Siehe Screenshot:

Und dann sehen Sie, dass ganze Zeilen basierend auf dem angegebenen Wert bereits gelöscht wurden.


Entfernen Sie Zeilen basierend auf ein oder zwei Zellenwerten mit Kutools for Excel

Wenn Sie installiert haben Kutools for Excel, seine Select Specific Cells Mit dieser Funktion können Sie die Zeilen mit einem bestimmten Wert schnell löschen. Bitte gehen Sie wie folgt vor:

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt

1. Wählen Sie den Bereich aus, in dem Zeilen basierend auf dem bestimmten Wert entfernt werden sollen, und klicken Sie auf Kutools > Select > Select Specific Cells. Siehe Screenshot:

2. Aktivieren Sie im sich öffnenden Dialogfeld Angegebene Zellen auswählen die Option Entire row Option auswählen Contains von Specific type Dropdown-Liste, geben Sie den angegebenen Wert in das rechte Feld ein und klicken Sie auf Ok Schaltfläche (siehe obigen Screenshot).
Nach dem Anwenden dieser Funktion wird ein Dialogfeld angezeigt, in dem angezeigt wird, wie viele Zellen anhand der angegebenen Kriterien gefunden wurden. Bitte klicken Sie auf die OK Schaltfläche, um es zu schließen.

3. Nun werden ganze Zeilen mit dem bestimmten Wert ausgewählt. Bitte klicken Sie mit der rechten Maustaste auf die ausgewählten Zeilen und klicken Sie auf Delete aus dem Kontextmenü. Siehe Screenshot unten:

Note: Diese Select Specific Cells Die Funktion unterstützt das Löschen von Zeilen um einen oder zwei bestimmte Werte. Um Zeilen basierend auf zwei angegebenen Werten zu löschen, geben Sie bitte einen anderen Wert in der an Specific type Abschnitt des Dialogfelds "Bestimmte Zellen auswählen" (siehe Abbildung):

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt


Entfernen Sie Zeilen basierend auf mehreren Zellenwerten mit Kutools for Excel

In einigen Fällen müssen Sie möglicherweise Zeilen basierend auf mehreren Zellenwerten aus einer anderen Spalte / Liste in Excel entfernen. Hier werde ich vorstellen Kutools for Excel's Select Same & Different Cells Funktion, um es schnell und einfach zu lösen.

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt

1. Klicken Sie Kutools > Select > Select Same & Different Cells um das Dialogfeld Gleiche und unterschiedliche Zellen auswählen zu öffnen.

2. In der Eröffnung Select Same & Different Cells Im Dialogfeld gehen Sie wie folgt vor (siehe Screenshot):

(1) In der Find values in Wählen Sie im Feld die Spalte aus, in der Sie die bestimmten Werte finden.
(2) In der According to Wählen Sie im Feld die Spalte / Liste mit mehreren Werten aus, auf deren Grundlage Sie Zeilen löschen möchten.
(3) In der Based on Abschnitt überprüfen Sie bitte die Each row Option;
(4) In der Find Abschnitt überprüfen Sie bitte die Same Values Option;
(5) Überprüfen Sie die Select entire rows Option am unteren Rand des sich öffnenden Dialogfelds.
Note: Wenn zwei angegebene Spalten denselben Header enthalten, überprüfen Sie bitte die My data has headers .

3. Drücke den Ok Schaltfläche, um dieses Dienstprogramm anzuwenden. Anschließend wird ein Dialogfeld angezeigt, in dem angezeigt wird, wie viele Zeilen ausgewählt wurden. Klicken Sie einfach auf OK Schaltfläche, um es zu schließen.

Und dann wurden alle Zeilen ausgewählt, die Werte in der angegebenen Liste enthalten.

4. Klicken Sie Home > Delete > Delete Sheet Rows um alle ausgewählten Zeilen zu löschen.


Demo: Entfernen Sie Zeilen basierend auf einem oder mehreren Zellenwerten in Excel


Kutools for Excel: Über 300 praktische Werkzeuge immer zur Hand! Starten Sie noch heute Ihre 30-tägige kostenlose Testversion ohne Funktionseinschränkungen. Jetzt herunterladen!

Beste Office-Produktivitätstools

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

kte tab 201905


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 (39)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In given range, if any cell contains defined text the entire row gets deleted.

Pls share code
This comment was minimized by the moderator on the site
Hi Yogesh,
On this webpage, the second method is to delete rows by cell values with VBA code. You can go to there and copy the code directly!
https://www.extendoffice.com/documents/excel/815-excel-remove-rows-based-on-cell-value.html#vba
This comment was minimized by the moderator on the site
There are two issues with the code posted as of this date. 1) the variable xTitleId is not declared, which causes a compilation error if Option Explicit is in use. 2) With Excel 2016, it appears that a range is limited to 129 areas. Each discontiguous matching cell found in the loop creates another area in the DeleteRng variable. Unfortunately, the Union method does not raise an error if that number of areas is exceeded; it just ignores the remaining cells. When the loop is finished, DeleteRng will have no more than 129 areas.
This comment was minimized by the moderator on the site
Hi TomTheToolman,
Thank you so much for your feedback. I've already updated the new code in the article. If you have any other questions, please don't hesitate to let me know.
Amanda
This comment was minimized by the moderator on the site
very well. Thank you!
This comment was minimized by the moderator on the site
Can someone help me...If 3rd column has value 0, then delete all values of corresponding column 1st. In this case answer should be the last line only.... Check MenuName ID 3149 VNLA MILFLLE 2 3149 TURKEY PNN 0 3149 R. BEEF PNN 0 3149 MIX MOCHA 38 3150 M.G.R 1/2 0 3150 THE PEPPE L 0 3150 MIX SLD 0 3150 EGGPLANT 0 3150 STILL WATER 7 3151 MIX MOCHA 38
This comment was minimized by the moderator on the site
Thanks for sharing. I am actually looking for a code that doesn't ask user for range but instead selects a specific column say column "A" and runs till the last row of that column. Can you please help..
This comment was minimized by the moderator on the site
Hi everybody, I am wondering what can we do to delete the following (According to the example shown in this page): Soe appears at several date (sept, October... etc). What I would like is to delete the line where Soe is but to keep the line with last date she appeared. In addition, some lines could be in double but I still want to keep it. So for example, you have the lines: - July 3 /Soe - Sep 4 / Soe - Sep 4 / Soe - Oct 19/ Soe - Nov 13 / Soe - Nov 13 / Soe and what I want to keep is: - Nov 13 / Soe - Nov 13 / Soe My real case is: I have different EAN code and version 1, 2, 3 or 4 and I want to keep the line where the version is the higher. e.g.: I have: - EAN 1 / Version 1 - EAN 1 / Version 1 - EAN 1 / Version 2 - EAN 1 / Version 2 - EAN 2 / Version 2 - EAN 2 / Version 3 - EAN 2 / Version 3 and I want to keep: - EAN 1 / Version 2 - EAN 1 / Version 2 - EAN 2 / Version 3 - EAN 2 / Version 3 I am searching since hours and I am completely blocked on this issue. Many thanks in advance for your brain and help. Best, Marion
This comment was minimized by the moderator on the site
Hi, Thank you this was really helpful. However, there's an error that pops up when I run the codes it says "Object variable or with block variable not set" and it points to " the line DeleteRNG.EntireRow.Delete". Could you please help me with debugging this. Thanks.
This comment was minimized by the moderator on the site
I am trying to use this macro in order to delete unused formulas, because excel views blank formula cells as a zero value and will print extra pages. I was hoping when I deleted the unused formulas, when I printed it would only print the pages that had information. This is not the case and I really need help to find a solution. I have tried using this formula and it is not working and prints three extra pages that I do not need even with the extra formulas being deleted. Sub selectonly() ' ' selectonly Macro ' Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" End Sub
This comment was minimized by the moderator on the site
thank you so much. That save me a lot of time
This comment was minimized by the moderator on the site
Trying to find a delete Function that will delete entire designated rows automatically, based on certain values or certain text contained in other cell(s), using only automated formulas.
This comment was minimized by the moderator on the site
How can i delete selected cell that i want based on value that i entered for example : A1 B1 C1 D1 A2 B2 C2 D2 A3 B3 C3 D3 A4 B4 C4 D4 When i entered in some cell for example "2" then 2 row will be deleted from A3:D4. If i entered "1" then 1 row will be deleted from A4:D4. if i entered "3" then 3 row will be deleted from A2:D4
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations