Ga naar de inhoud
Home » Excelmeester » Dubbele waarden verwijderen

Dubbele waarden verwijderen

GEGEVENS IN TWEE KOLOMMEN

Op Twitter las ik een vraag over het ontdubbelen van gegevens in twee kolommen. Excel biedt wel de mogelijkheid om dubbele waarden binnen één gebied te verwijderen. Anders wordt het als je twee gegevenskolommen hebt waarbij je waarden uit de tweede kolom wilt verwijderen die ook in de eerste kolom voorkomen. Dat wordt al snel tijdrovend handwerk of het toevoegen van hulpkolommen.

In dit voorbeeld gebruik ik een korte macro die het handwerk voor mij doet: voor elke plaats in de linker kolom controleert de macro of deze ook in de tweede kolom voorkomt. Is dat het geval? Dan wordt die plaats in de tweede kolom verwijderd.

Kijk in het voorbeeldbestand!

Sub Ontdubbellen()
  For Each c In Range(“E15:E21”).Cells
    For Each a In Range(“F15:F21”).Cells
      If a.Value = c.Value Then Range(a.Address).ClearContents
    Next
  Next
End Sub

Ontdubbelen – Verwijderen van de cel?

Wil je dat de macro de cel met de plaats die in beide kolommen voorkomt in de tweede kolom echt verwijdert? Verander dan deze regel:

    If a.Value = c.Value Then Range(a.Address).ClearContents

in:

    If a.Value = c.Value Then Range(a.Address).Delete Shift:=xlUp

Download voorbeeldbestand ontdubbelen

Vragen?

Heb je vragen over het ontdubbelen binnen Excel? Of andere vragen over Excel? Neem dan contact met mij op!