Langsom metode.

Hej
Jeg forsøger at fjerne dubletter i to kolonner. Men kors hvor er den langsom. Og den fryser også ofte.

Har hentet koden herinde, så den virker nok bekendt.

Findes der ikke en hurtigere måde.

Bruger denne kode:

Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Angiv CompareRange som værende lig med det område, du vil
    ' sammenligne valget med.
    Set CompareRange = Range("I11:I5000")
    ' BEMÆRK! Hvis sammenligningsområdet er placeret i en anden projektmappe
    ' eller et andet regneark, skal du bruge følgende syntaks.
    ' Set CompareRange = Workbooks("Book2"). _
    '  Worksheets("Sheet2").Range("C1:C5")
    '
    ' Gennemgå hver celle i det valgte område, og sammenlign dem med
    ' hver celle i CompareRange.
    For Each x In Selection
        For Each y In CompareRange
            If x = y Then x.Offset(0, 1) = x
        Next y
    Next x
End Sub

mvh

copernic