Wie lösche ich eindeutige Werte aus einer Spalte in Excel?

Normalerweise möchten die meisten von uns doppelte Werte aus einer Spalte entfernen, aber manchmal möchten Sie möglicherweise die eindeutigen Werte entfernen, die nur einmal in der Spalte angezeigt werden. In diesem Tutorial werden die Tricks beschrieben, mit denen Sie eindeutige Werte nur aus einer Spalte in Excel entfernen können.

Löschen Sie eindeutige Werte mit VBA in Excel

Löschen Sie eindeutige Werte mit Kutools for Excel

---

Löschen Sie eindeutige Werte mit VBA in Excel

Mit VBA können schnell alle eindeutigen Werte aus einer Spalte gelöscht werden.

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 eindeutige Werte aus einer Spalte.

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 Führen Sie Schaltfläche zum Ausführen des VBA-Codes und a KutoolsforExcel Das Dialogfeld wird geöffnet, in dem Sie einen zu verwendenden Bereich auswählen können. Siehe Screenshot:

 

4 Klicken OKund alle eindeutigen Werte werden gelöscht.

---

Löschen Sie eindeutige Werte mit Kutools for Excel

Wenn Sie mit VBA nicht vertraut sind, können Sie die Funktion "Doppelte und eindeutige Zellen auswählen" von Kutools for Excel verwenden, um die eindeutigen Werte in Excel zu entfernen.

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, aus der Sie die eindeutigen Werte löschen möchten, und klicken Sie auf Kutoolen > Wählen Sie Extras > Wählen Sie Doppelte und eindeutige Zellen. Siehe Screenshot:

2. Aktivieren Sie im Popup-Dialogfeld Nur eindeutige Werte und klicken auf Okund schließen Sie diesen Dialog. Siehe Screenshot:

3. Dann erscheinen alle Werte nur einmal ausgewählt worden. Und klicken Sie mit der rechten Maustaste, um zu klicken Löschen im Kontextmenü. Siehe Screenshot:

4. In dem Löschen Aktivieren Sie im Dialogfeld die gesamte Zeile und klicken Sie auf OK. Siehe Screenshot:

Jetzt können Sie sehen, dass die eindeutigen Werte entfernt wurden.

Tipp: Wenn Sie nur den Zelleninhalt entfernen möchten, können Sie auf klicken Inhalt löschen aus dem Kontextmenü in Schritt 3.

Klicken Sie hier, um weitere Informationen zu Select Duplicate & Unique Cells zu erhalten.

---

Relative Artikel:

• Löschen Sie alle Kommentare in Excel
• Entfernen Sie doppelte Zeilen in Excel