VB Sortering mv.

Er det dubletter du vil have fjernet ?
I så fald:

Sub unikke()
Dim tæl As Integer, i As Integer
Application.ScreenUpdating = False
Range("b1", Range("b65536").End(xlUp)).ClearContents
i = 0
For Each a In Worksheets("Ark5").Range("a1", Range("a65536").End(xlUp))
tæl = 0
    For Each b In Worksheets("Ark5").Range("a1:a" & a.Row)
        If a = b And b <> "" Then
        tæl = tæl + 1
        End If
    Next
    If tæl = 1 Then
    Range("b1").Offset(i, 0) = a
    i = i + 1
    End If
Next
Columns("b:b").Sort _
    key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

Application.ScreenUpdating = True
End Sub

jamen det fungere jo perfekt! Drop et svar:-)

Jamen det er da super :-)

Husk at acceptere svar