Dante Amor escribió esto el 11 de Julio del 2014 aquí en todoexpertos.
Macro para encontrar valores duplicados en una misma columna.
Los datos los debes poner en la columna "C" a partir de la fila 3.
Espero te sirva
Sub buscardup()
'Por.DAM
f = 3
c = "C"
u = Range(c & Rows.Count).End(xlUp).Row
Set r = Range(Cells(f, c), Cells(u, c))
For i = f To u
If Application.CountIf(r, Cells(i, c)) > 1 Then
Set b = r.Find(Cells(i, c), lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do: b.Interior.ColorIndex = 6
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
End If
Next
End Sub