Wie entfernt man eindeutige Werte aus einer Spalte in Excel?

Normalerweise möchten die meisten von uns doppelte Werte aus einer Spalte entfernen – doch gelegentlich gilt Ihr Fokus auch den eindeutigen Werten, die nur einmal in der Spalte vorkommen. In diesem Tutorial erfahren Sie, wie Sie solche eindeutigen Werte aus einer Excel-Spalte entfernen können.

Eindeutige Werte mithilfe von VBA in Excel löschen

Eindeutige Werte mit Kutools für Excel löschen

---

Eindeutige Werte mithilfe von VBA in Excel löschen

Mit VBA können Sie im Handumdrehen alle eindeutigen Werte aus einer Spalte entfernen.

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

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

VBA: Eindeutige Werte aus einer Spalte entfernen.

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– Es erscheint ein Dialogfeld, in dem Sie einen Bereich zur Bearbeitung auswählen können. Siehe Screenshot:

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

---

Eindeutige Werte mit Kutools für Excel löschen

Wenn Sie mit VBA nicht vertraut sind, nutzen Sie einfach die Funktion „Doppelte/Eindeutige Zellen auswählen“ von Kutools für Excel, um eindeutige Werte in Excel zu entfernen.

Kutools für Excel bietet über 300 praktische Excel-Tools – testen Sie es jetzt 30 Tage lang kostenlos und ohne Einschränkungen!Jetzt herunterladen

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

2. Aktivieren Sie im erscheinenden Dialogfeld das Kontrollkästchen Eindeutige Werte und klicken Sie auf OK, um das Dialogfeld anschließend zu schließen. Siehe Screenshot:

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

4. Aktivieren Sie im Dialogfeld Löschen das Kontrollkästchen Ganze Zeile und klicken Sie auf OK. Siehe Screenshot:

Nun sehen Sie, dass die eindeutigen Werte entfernt wurden.

Tipp: Wenn Sie nur den Zellinhalt entfernen möchten, klicken Sie im Kontextmenü bei Schritt 3 auf Inhalte löschen.

Weitere Informationen zur Auswahl doppelter oder eindeutiger Zellen finden Sie hier.

---

Verwandte Artikel:

• Alle Kommentare in Excel löschen
• Doppelte Zeile in Excel entfernen

---