Note: The other languages of the website are Google-translated. Back to English

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. (Hinweis: 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 - Enthält mehr als 300 praktische Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! 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:

Hinweis: 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 - Enthält mehr als 300 praktische Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! 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 - Enthält mehr als 300 praktische Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! 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.
Hinweis: 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 enthält mehr als 300 praktische Tools für Excel, die Sie in 30 Tagen ohne Einschränkung kostenlos testen können. Jetzt herunterladen und kostenlos testen!

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
officetab unten
Kommentare (39)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Fantastisch! Das hat super funktioniert, ich habe es leicht verändert, um es an das anzupassen, was ich brauchte, aber einfach genial. Ach VBA-Version.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, If (cell.Value) = "Apple" so zu ändern, dass mehrere Werte enthalten sind?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Bobby, versuche das, es sollte bekommen, was du willst: If (cell.Value) = "Apple" OR (cell.Value) = "Monday"
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es überhaupt einen Wert, um einen Wert erkennen zu lassen, ob > oder = zu einem bestimmten Wert ist?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey - vielen Dank für das Skript. Ich habe mich gefragt, ob Sie Platzhalter verwenden können, damit Sie alles innerhalb einer Zelle auswählen können, das übereinstimmt, anstatt ein bestimmtes Element? Ich habe versucht, ** Wildcards zu verwenden, aber es scheint nichts zu tun. Folgendes habe ich: Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("B6:B20"), ActiveSheet.UsedRange) For Each cell In rng If cell.Value Like "*WORDTODELETE*" _ Then If del Is Nothing Then Set del = cell Else: Set del = Union(del, cell) End If Ende If Next cell On Error Resume Next del.EntireRow.Delete End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Herzlichen Dank – es ist immer amüsant, wenn der Marketing-Typ versucht, Code zu schreiben, und diese Info war super hilfreich. Ich konnte den Code nicht dazu bringen, mehrere Spalten zu überspannen ("AA2:AA3000" funktioniert, "AB2:AB3000" funktioniert, aber "AA2:AB3000" funktioniert nicht. Es gibt kein weltbewegendes Kaboom - es tut einfach nichts. I Ich habe es (amateurhaft, nehme ich an) gelöst, indem ich mehrere Makros nacheinander ausgeführt habe, aber es gibt wahrscheinlich einen eleganteren Weg. Nochmals vielen Dank für Ihre Hilfe, Jim (Melville, NY)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich erhalte: Laufzeitfehler '13': Type mismatch Debugging hebt den Abschnitt If (cell.Value) = "FALSE" _ Then hervor. Ich bin völlig verloren in MVB, jede Hilfe wäre dankbar.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Nehmen wir an, ich füge den folgenden Code ein, um alle meine Zeilen zu löschen, die Apfel enthalten, aber dann möchte ich, dass es fortgesetzt wird, sobald dies erledigt ist, und alle Zeilen gelöscht werden, die Bananen enthalten? Ich habe versucht, den Code einfach zu duplizieren, aber er scheint nach Apple aufzuhören. Danke. Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("A1:C20"), ActiveSheet.UsedRange) For Each cell In rng If (cell.Value) = "Apple" _ Then If del Is Nothing Then Set del = cell Else: Set del = Union(del, cell) End If Ende If Next cell On Error Resume Next del.EntireRow.Delete End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich wollte nur danke sagen. Das funktionierte wie ein Zauber.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Auf jeden Fall geil! Danke fürs Teilen!!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, das ist großartig! Kurzer Kommentar, ich habe die Funktion Suchen und Ersetzen in Excel 2010 ausprobiert. Um alle gefundenen Ergebnisse auszuwählen, musste ich Strg + A anstelle von Alt + A verwenden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, was ist der einfachste Weg, um Zeilen zu löschen, die NICHT "Apple" enthalten, bitte? Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, gibt es eine Möglichkeit, es zu schreiben, um eine Zeile mit einer ODER-Ausnahme zu löschen? Das heißt, Zeilen löschen, die Duplikate sind, aber einen bestimmten Wert ignorieren. Ich möchte Duplikate löschen, es sei denn, die betreffende Spalte enthält ein leeres b/c, dass diese Spalte noch keine gültigen Daten enthält. Ich bin so gelaufen wie Sie, aber ich habe Zeilen mit einem Leerzeichen in der fraglichen Spalte gelöscht, sodass ich sie nicht so verwenden kann, wie sie ist. Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für das VB-Skript. Ich kann es kaum erwarten, dies zu versuchen. Frage: Gibt es eine Möglichkeit, die Spalten vor dem Löschen zum Löschen zu markieren und/oder in eine separate Registerkarte in der Arbeitsmappe zu kopieren? Gibt es außerdem eine Möglichkeit, dieses Skript für mehrere Arbeitsmappen/Dateien gleichzeitig auszuführen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
danke.. es hilft mir sehr...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte alle Zeilen löschen, in denen Spalte1 = "Apple" UND Spalte3 = "Grün". bitte?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich bin mir nicht sicher, wie ich das mit Makros oder so machen soll, aber eine Option, die ihre Aufgabe gut erfüllen würde, besteht darin, eine zusätzliche Spalte hinzuzufügen, die testet, ob die eine Spalte "Apfel" und die andere "grün" ist und dann lass es gibt einen einfachen „Ja“- oder „Nein“-Wert. Verwenden Sie dann eine der oben genannten Optionen, um nach dem Wert "yes" zu suchen und Zeilen basierend darauf anstelle von 2 separaten Werten zu entfernen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe eine Liste von Geschäften in einem Dokument. Ich habe einen Bericht, der Tausende von Zeilen zurückgibt. die Filialnummer steht immer in Spalte A. Gibt es einen Code/Makro, der den Bericht durchsucht und alle Spalten mit Filialnummern aus der Filialliste löscht? Denken Sie, dass ein vlookup und "Do While" benötigt werden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo und vielen Dank für den VBA-Code. Ich habe eine Frage. Ist es möglich, den Code so zu gestalten, dass es möglich ist, mehrere Zellenwerte gleichzeitig zum Löschen auszuwählen? Wählen Sie zum Beispiel Apple und Emily gleichzeitig aus und löschen Sie sie? Ich schätze Ihre Arbeit und freue mich auf Ihre Antwort. Joan K
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie kann ich den Bereich A3:D3000 angeben (dh ich möchte nicht, dass der Benutzer den Bereich auswählt)? Wie kann ich den Delete String zu einem Zellbezug machen, z. G1?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist es möglich, zwei Spalten zu vergleichen und dann zu löschen? liegt im Bereich A3:D3000, wenn Zelle A=x und Zelle B=y, dann Zeile löschen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was für ein toller. vielen Dank an alle. :)
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL