Hello mpeterson,
This will highlight duplicate groups on "Sheet1". Change the worksheet name in the code if your worksheet name is different. The macro starts with cell "A1". If you need to start elsewhere, the code will need to be modified a little.
Sub HighlightDupes()
Dim Data As Variant
Dim EndRow As Long
Dim LastEntry As Variant
Dim MainRng As Range
Dim n As Long
Dim Rng As Range
Dim Row As Variant
Dim Text As String
Dim Uniques As New Collection
Dim Wks As Worksheet
Dim xArray As Variant
Set Wks = ThisWorkbook.Worksheets("Sheet1")
Set MainRng = Wks.UsedRange
Set LastEntry = MainRng.Find("*", Range("A1"), xlValues, xlWhole, xlByRows, xlPrevious, False, False, False)
If LastEntry Is Nothing Then Exit Sub
EndRow = LastEntry.Row + 1
Set MainRng = MainRng.Cells(1, 1).Resize(EndRow - MainRng.Row + 1, 8)
Set Rng = MainRng.CurrentRegion.Resize(, 8)
Do
DoEvents
Text = ""
For Each Row In Rng.Rows
' // Convert 2-D row into 1-D scalar array
xArray = Application.Transpose(Row.Value)
xArray = Application.Transpose(x)
' // Convert arrays to a single string
Text = Text & Join(xArray, " ")
Next Row
' // Create a key for this block
If Len(Text) > 255 Then
Text = Left(Text, 255)
End If
' // Highlight the group if it is a duplicate
On Error Resume Next
Uniques.Add Item:=Rng, Key:=Text
If Err.Number = 457 Then
Rng.Interior.Color = RGB(255, 255, 0)
End If
On Error GoTo 0
' // Get the next block
Set Rng = Rng.Offset(Rng.Rows.Count + 1, 0)
If Rng.Row >= EndRow Then Exit Do
Set Rng = Rng.CurrentRegion.Resize(, 8)
Loop
End Sub