Adressenlijst aanpassen

[Housje]

Hallo, ik heb een adressenlijst van om en bij de 10.000 personen. In de eerste kolom staat de naam en in de 2de het adres. Nu zou ik de mensen die op hetzelfde adres wonen er uit willen halen. Dus als ik bijvoorbeeld 5 mensen heb die hetzelfde adres hebben, dat ik er daar maar 1 van over hou. Iemand een idee?

Dus bijvoorbeeld zo:
Cel A1= Joske Peeters Cel B1= Koekoekstraat 1
Cel A2= Anneke Peeters Cel B2 = Koekoekstraat 1

Nu zou ik door te filteren? alleen Joske Peeters Koekoekstraat 1 willen zien.

Thanks!

 

[Wigi]

Werkt dit?

Sub filteruniqueadresses()
Dim lngRow As Long, l As Long
Application.ScreenUpdating = False
lngRow = Range("B1").End(xlDown).Row
For l = lngRow To 1 Step -1
    If WorksheetFunction.CountIf(Range("B1:B" & l), Range("B" & l)) > 1 Then
        Range("B" & l).EntireRow.Delete
    End If
Next
Application.ScreenUpdating = False
MsgBox "Klaar!"
End Sub

Wigi

 

[Housje]

Perfect!

Hartelijk bedankt!

 

[Wigi]

Perfect!

Hartelijk bedankt!

Graag gedaan Housje. Zet de vraag op opgelost aub.