Suponiendo que tus datos estan en la celda A2 si no corrige la linea donde dice
celda1=2 y cambia el dos por el numero de fila donde empiezan tus datos
para pegarlo oprime ALT + F11 y pegalo en cualquier hoja que aparezca al lado izquierdo y luego en la parte superior aparece un boton de play solo coloca el curzor en el primer procedimiento
'/////////////////////////////////// Primer Procedimiento ///////////////////////////////////
Sub busca_repetidos()
Dim celda1 As String
Dim datoencelda As String
celda1 = 2
Cells(celda1, 1).Select
Do While Cells(celda1, 1).Value <> ""
datoencelda = Cells(celda1, 1).Value
Call busca_dato(celda1, datoencelda)
celda1 = celda1 + 1
Loop
End Sub
'///////////////// llamado por el primer procedimiento//////////////////////////////////
Sub busca_dato(ByVal celdanum As String, ByVal datoencelda As String)
celdanum = celdanum + 1
Do While Cells(celdanum, 1).Value <> ""
If datoencelda = Cells(celdanum, 1).Value Then
Cells(celdanum, 1).Select
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
celdanum = celdanum + 1
Loop
End Sub