Slette dupletter

Det er en funktion i Excel 2007

Alternativt kan du bruge koden her

Sub RemoveDupes()
    'Add extra Column, "A" becomes "B"
    Columns(1).EntireColumn.Insert
    'Filter out duplicates and copy unique list to "A"
    Range("B1", Range("B65536").End(xlUp)).AdvancedFilter _
        Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True
    'Remove extra Column, "B" becomes "A"
    Columns(2).EntireColumn.Delete
End Sub

Den kigger kun efter dubletter i Kolonne A, men kan udviddes til flere kolonner