Verwijder Duplicaten uit een Bereik

Met de functie VerwijderDuplicaten kun je snel en eenvoudig duplicaten uit een bepaald bereik in Excel verwijderen. Het doel van deze functie is het automatiseren van een veelvoorkomende taak waarbij overbodige dubbele waarden uit een dataset worden gefilterd. Dit is vooral handig wanneer je werkt met grote gegevenssets waar het handmatig zoeken en verwijderen van duplicaten tijdrovend en foutgevoelig zou zijn.

Hoe het werkt:

1. De functie neemt een bereik van cellen als input.
2. Met behulp van een scriptdictionary (een unieke collectie in VBA) controleert de functie elke waarde in het opgegeven bereik.
3. Als een waarde nog niet in de dictionary bestaat, wordt deze toegevoegd. Als een waarde echter al in de dictionary bestaat, wordt deze als duplicaat beschouwd.
4. Alle duplicaten worden uit het Excel-bereik verwijderd, wat resulteert in een bereik waarbij elke waarde uniek is.

Praktische toepassing:

Stel dat je een lijst hebt met e-mailadressen van klanten en je wilt ervoor zorgen dat elke e-mail slechts één keer in de lijst voorkomt, dan kun je de VerwijderDuplicaten functie gebruiken. Je selecteert simpelweg het bereik met e-mailadressen en voert de functie uit. De functie zal alle dubbele e-mailadressen verwijderen, zodat je eindigt met een lijst van unieke e-mailadressen.

Een andere toepassing kan zijn bij het verwerken van bestellingen, inventarislijsten, enquêteresultaten of elke andere dataset waar duplicaten ongewenst zijn.

Function VerwijderDuplicaten(bereik As Range)
    Dim cel As Range
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    For Each cel In bereik
        If Not dict.exists(cel.Value) Then
            dict.Add cel.Value, ""
        Else
            cel.ClearContents
        End If
    Next cel
End Function