controle kolom op dubbele waarde + verwijderen

[sateliet]

hij moet kolom A doorzoeken op dubbele waardes
als hij die vindt dan moet één van beide rijen verwijdert worden
kan dit ?

 

[pimnl]

Is dit iets wat je zoekt: http://office.microsoft.com/en-us/e...te-rows-from-a-list-in-excel-HA001034626.aspx

 

[Warme bakkertje]

Sub tst()
    Dim sq() As Variant
    With Sheets("Blad1")
        sn = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    End With
    On Error Resume Next
    With New Collection
        For j = 1 To UBound(sn)
            .Add sn(j, 1), CStr(sn(j, 1))
        Next
        ReDim Preserve sq(.Count)
        For i = 1 To .Count
            sq(i - 1) = .Item(i)
        Next
    End With
    On Error GoTo 0
    Sheets("Blad1").Range("B1").Resize(UBound(sq)) = WorksheetFunction.Transpose(sq)
End Sub