Sub PintaPrimeiroRepetido()
Dim k As Long, m As Long, x As Long
For k = 1 To Cells(Rows.Count, 1).End(3).Row
m = Application.CountIf([A:A], Cells(k, 1))
For x = k + 1 To k + m - 1
If Application.CountIf(Range(Cells(k, 2), Cells(x, 2)), Cells(x, 2)) = 2 Then Cells(x, 2).Interior.ColorIndex = 36
Next x
k = k + m - 1
Next k
End Sub
Postado : 04/09/2016 6:52 pm