Hoe unieke waarden uit een kolom in Excel verwijderen?

Meestal willen de meeste van ons dubbele waarden uit een kolom verwijderen, maar soms wilt u misschien de unieke waarden verwijderen die slechts één keer in de kolom voorkomen. Deze tutorial gaat over trucs om alleen unieke waarden uit een kolom in Excel te verwijderen.

Unieke waarden verwijderen met VBA in Excel

Unieke waarden verwijderen met Kutools voor Excel

---

Unieke waarden verwijderen met VBA in Excel

Met behulp van VBA kunt u snel alle unieke waarden uit één kolom verwijderen.

1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het venster op Invoegen > Module om een nieuw modulevenster te openen, en kopieer vervolgens de volgende VBA-code naar het modulevenster.

VBA: Unieke waarden uit een kolom verwijderen.

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. Klik Uitvoeren om de VBA-code uit te voeren, en een KutoolsforExcel dialoogvenster verschijnt om een bereik te selecteren om mee te werken. Zie screenshot:

4. Klik op OK, en alle unieke waarden worden verwijderd.

---

Unieke waarden verwijderen met Kutools voor Excel

Als u niet bekend bent met VBA, kunt u overwegen om Kutools voor Excel's functie Selecteer Dubbele & Unieke Cellen te gebruiken om de unieke waarden in Excel te verwijderen.

Kutools voor Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking gedurende 30 dagen. Haal het nu hier.

1. Selecteer de kolom waaruit u de unieke waarden wilt verwijderen, en klik op Kutools > Selecteer > Selecteer Dubbele & Unieke Cellen. Zie screenshot:

2. Schakel in het pop-up dialoogvenster Unieke waarden alleen in en klik op Ok, en sluit dit dialoogvenster. Zie screenshot:

3. Alle waarden die slechts één keer voorkomen, zijn nu geselecteerd. Klik met de rechtermuisknop en klik op Verwijderen in het contextmenu. Zie screenshot:

4. Schakel in het dialoogvenster Verwijderen Volledige rij in en klik op OK. Zie screenshot:

Nu ziet u dat de unieke waarden zijn verwijderd.

Tip: Als u alleen de celinhoud wilt verwijderen, kunt u op Inhoud wissen klikken in het contextmenu in stap 3.

U kunt hier klikken om meer informatie te krijgen over Selecteer Dubbele & Unieke Cellen.

---

Gerelateerde artikelen:

• Alle commentaren in Excel verwijderen
• Dubbele rijen in Excel verwijderen

---