Finding Duplicates

[akendrick]

How can I highlight duplicate cells in a column if when checked against another column

I have numbers in A1:A100, and numbers in C1:C2500, how can I highlight the numbers in column "C" if they appear in column "A"?

 

[mrshl9898]

Try this macro:

(Probably not the most efficient way, but only took a second for me to run)

Sub changeduplicatetored()

Dim rownum As Long
Dim rownum2 As Long


rownum = 1
rownum2 = 1
Do Until rownum = 101
rownum2 = 1
Do Until rownum2 = 2501
If Cells(rownum, 1).Value = Cells(rownum2, 3).Value And Cells(rownum, 1).Value <> "" Then
Cells(rownum2, 3).Interior.ColorIndex = 3
Cells(rownum2, 3).Font.ThemeColor = xlThemeColorDark1
End If
rownum2 = rownum2 + 1
Loop
rownum = rownum + 1
Loop


  
End Sub

 

[AhoyNC]

Another option would be to use conditional formatting.

Select cells C1to C2500
Go to:
-Conditional Formatting
-New Rule
-Use Formula
In formula box put
=ISNUMBER(MATCH(C1,$A$1:$A$100,0))
-Format
-Choose format color
-OK
-OK