Kan du bruge denne?
Den skriver dem der er dubletter af i kolonne C
Sub Dubletter()
Dim d As Object, c
Dim ar As Long, br As Long
Set d = CreateObject("scripting.dictionary")
ar = Range("A" & Rows.Count).End(xlUp).Row
br = Range("B" & Rows.Count).End(xlUp).Row
For Each c In Range("A1:A" & ar)
d(c.Value) = 1
Next c
For Each c In Range("B1:B" & br)
If d(c.Value) = 1 Then
cr = Range("C65000").End(xlUp).Row + 1
Range("C" & cr) = c
End If
Next c
End Sub
Alternativt, kan du lave en betinget formatering, der highlighter dubletterne
Se her:
http://www.excel-easy.com/examples/find-duplicates.html
Mvh
Civic