Sub LookupIdenticalRow()
Dim Ro As Long
Dim Cl As Long
Dim OccCount As Long
Dim UnMatched As Boolean
Dim ws As Worksheet
Set ws = ActiveSheet
'Loop thru all Rows from Row 25 and up
For Ro = 25 To 1 Step -1
OccCount = 0
For Cl = 2 To ws.Columns.Count
If ws.Cells(Ro, Cl) <> ws.Cells(26, Cl) Then
OccCount = OccCount + 1
End If
Next Cl
ws.Cells(Ro, 1) = ws.Cells(Ro, 1) & " Found " & OccCount & " Matches"
Next Ro
MsgBox ("Done")
End Sub
|