Zum Hauptinhalt springen

Wie löscht man eindeutige Werte aus einer Spalte in Excel?

Author: Sun Last Modified: 2025-05-28

Normalerweise möchten die meisten von uns doppelte Werte aus einer Spalte entfernen, aber manchmal möchten Sie vielleicht die eindeutigen Werte entfernen, die nur einmal in der Spalte vorkommen. Dieses Tutorial behandelt einige Tricks, mit denen Sie nur die eindeutigen Werte aus einer Spalte in Excel entfernen können.

Einzigartige Werte mit VBA in Excel löschen

Einzigartige Werte mit Kutools für Excel löschen


Einzigartige Werte mit VBA in Excel löschen

Mit VBA können Sie schnell alle eindeutigen Werte aus einer Spalte löschen.

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications anzuzeigen.

2. Klicken Sie im Fenster auf Einfügen > Modul, um ein neues Modulfenster zu öffnen, und kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA: Eindeutige Werte aus einer Spalte löschen.

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub
3. Klicken Sie auf Ausführen , um den VBA-Code auszuführen, und ein KutoolsforExcel Dialogfenster erscheint zur Auswahl eines Bereichs zum Bearbeiten. Siehe Screenshot:

a screenshot of deleting unique values with VBA

4. Klicken Sie auf OK, und alle eindeutigen Werte werden gelöscht.


Einzigartige Werte mit Kutools für Excel löschen

Wenn Sie mit VBA nicht vertraut sind, können Sie die Funktion „Doppelte & Eindeutige Zellen auswählen“ von Kutools für Excel verwenden, um die eindeutigen Werte in Excel zu entfernen.

Kutools für Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos 30 Tage lang ohne Einschränkungen testen. Jetzt herunterladen

1. Wählen Sie die Spalte aus, aus der Sie die eindeutigen Werte löschen möchten, und klicken Sie auf Kutools > Auswählen > Doppelte & Eindeutige Zellen auswählen. Siehe Screenshot:

2. Aktivieren Sie im Dialogfenster die Option Nur eindeutige Werte und klicken Sie auf Ok, und schließen Sie dann dieses Fenster. Siehe Screenshot:

a screenshot of deleting unique values with Kutools for Excel

3. Nun wurden alle Werte, die nur einmal vorkommen, ausgewählt. Klicken Sie mit der rechten Maustaste und wählen Sie Löschen im Kontextmenü. Siehe Screenshot:

a screenshot of deleting unique values

4. Aktivieren Sie im Löschen-Dialogfenster Gesamte Zeile und klicken Sie auf OK. Siehe Screenshot:

a screenshot of deleting entire rows of unique values

Jetzt sehen Sie, dass die eindeutigen Werte entfernt wurden.

a screenshot of the original data doc-arrow a screenshot of results after deleting

Tipp: Wenn Sie nur den Zelleninhalt löschen möchten, können Sie im Kontextmenü im Schritt 3 auf Inhalte löschen klicken.

Sie können hier klicken, um weitere Informationen über „Doppelte & Eindeutige Zellen auswählen“ zu erhalten.


Verwandte Artikel:


Beste Büroproduktivitätswerkzeuge

🤖 Kutools AI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Finden, Hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten oder Zellen kombinieren ohne Datenverlust   |   Runden ...
Erweiterte SVERWEIS: Mehrfachkriterien SVERWEIS    Mehrfachwert SVERWEIS  |   Mehrblatt-SVERWEIS   |   Fuzzy Match ....
Erweiterte Dropdown-Liste: Schnell Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Eine bestimmte Anzahl von Spalten hinzufügen  |  Spalten verschieben  |  Sichtbarkeitsstatus ausgeblendeter Spalten umschalten  |  Bereiche & Spalten vergleichen ...
Hervorgehobene Funktionen: Gitterfokus   |  Entwurfsansicht   |   Erweiterte Formelleiste    Arbeitsmappe & Arbeitsblatt-Manager   |  AutoText-Bibliothek (Auto Text)   |  Datumsauswahl   |  Daten zusammenführen   |  Zellen verschlüsseln/entschlüsseln    E-Mail senden nach Liste   |  Spezialfilter   |   Spezialfilter (Filtern fett/kursiv/durchgestrichen...) ...
Top15 Werkzeugsets12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...)   |   50+ Diagramm typen (Gantt-Diagramm, ...)   |   40+ Praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...)   |   19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...)   |   7 Konsolidieren & Aufteilen Werkzeuge (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!