VBA Highlight Dupes in a Group

[PJ Karaffa]

I have data that is sorted in Column A by an ID number. Each ID number is duplicted multiple times and has data associated with it in column B. If in the duplicated ID numbers column B has duplicate value then highlight it.

Thanks in advance.

Dups in a group.xls

[kalak]

maybe

Sub colors()
Dim a, i As Long

a = Cells(1).CurrentRegion
For i = 2 To UBound(a, 1)
   If a(i, 1) & Chr(2) & a(i, 2) = a(i - 1, 1) & Chr(2) & a(i - 1, 2) Then
        Cells(i - 1, 1).Resize(2, 2).Interior.Color = vbYellow
    End If
Next i

End Sub

[Tinbendr]

Kalak, that's pretty cool. I'm going to have to spend some time studying Resize. I always forget about it.

Here's a long version.

Sub FindDups()
Dim WS As Worksheet
Dim aCell As Range
Dim LastRow As Long

    Set WS = ActiveWorkbook.Worksheets(1)

    With WS
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row

        For Each aCell In WS.Range("A1:A" & LastRow)
            If aCell & aCell.Offset(, 1) = aCell.Offset(1, 0) & aCell.Offset(1, 1) Then
                .Range(aCell.Address, aCell.Offset(1, 1).Address).Interior.Color = 65535
            End If
        Next
    End With
End Sub

[PJ Karaffa]

Thanks fellows for your help! Appreciate it!