select duplicates in a column

[psrs0810]

Is there an easy function for selecting duplicates in a column?

 

[wigi]

Yes, the COUNTIF function can be used. Place it next to each entry in the column, testing against all entries in the column.

If the result is bigger than 1, it's a duplicate / is duplicated by another entry.

 

[Sthrncali]

Well... What do you want to do with them?? Flag them? Delete them?

 

[psrs0810]

initially highlight them. I need to review the information to see if they need to be combined.

wigi - thanks for your response. I have been doing something similar. sort the data, then do If(A1=A2,true)

 

[Sthrncali]

Try this:

Sub FindDupes()
Dim myRange As Range
Dim mySheet As Worksheet
Set mySheet = Sheet1
Set myRange = mySheet.Range("C1:C500") 'This is the range you want to process for dupes.
For Each cell In myRange
x = Application.WorksheetFunction.CountIf(myRange, cell.Value)
    If x > 1 Then
        With cell.Interior
        .Color = 65535
        End With
    End If
Next
End Sub