Hoe verwijdert u unieke waarden uit een kolom in Excel?

Meestal willen we dubbele waarden uit een kolom verwijderen, maar soms is het juist de bedoeling om de unieke waarden – die slechts één keer voorkomen – te verwijderen. Deze handleiding behandelt handige trucs om unieke waarden uit een kolom in Excel te verwijderen.

Verwijder unieke waarden met VBA in Excel

Verwijder unieke waarden met Kutools voor Excel

---

Verwijder unieke waarden met VBA in Excel

Met VBA verwijdert u in een handomdraai alle unieke waarden uit één kolom.

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

2. Klik in het venster op Invoegen > Module om een nieuw modulevenster te openen en plak de volgende VBA-code in dat venster.

VBA: Verwijder unieke waarden uit een kolom.

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 op Uitvoerenom de VBA-code uit te voeren, en er verschijnt een KutoolsforExcel-dialoogvenster om het bereik te selecteren waarmee u wilt werken. Zie de schermafbeelding:

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

---

Verwijder unieke waarden met Kutools voor Excel

Bent u niet bekend met VBA? Overweeg dan de functie ‘Selecteer duplicaat/unieke cellen’ van Kutools voor Excel om eenvoudig unieke waarden in Excel te verwijderen.

Kutools voor Excel bevat meer dan 300 handige Excel-hulpmiddelen. Probeer het gratis en zonder beperkingen gedurende 30 dagen.Download nu

1. Selecteer de kolom waaruit u de unieke waarden wilt verwijderen en klik op Kutools > Selecteren > Selecteer duplicaat/unieke cellen. Zie schermafbeelding:

2. Schakel in het pop-updialoogvenster Unieke waarden in en klik op OK, waarna u dit dialoogvenster sluit. Zie schermafbeelding:

3. Nu zijn alle waarden die slechts één keer voorkomen geselecteerd. Klik met de rechtermuisknop en kies Verwijderen in het contextmenu. Zie schermafbeelding:

4. In het Verwijderen-dialoogvenster selecteert u Gehele rij en klikt u op OK. Zie schermafbeelding:

Nu ziet u dat de unieke waarden zijn verwijderd.

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

Klik hier voor meer informatie over Selecteer duplicaat/unieke cellen.

---

Gerelateerde artikelen:

• Verwijder alle opmerkingen in Excel
• Verwijder Dubbele rij in Excel

---