Maybe you can use this one:
Sub RowNoOfDublet()
Dim a, b, c As Integer
a = 1
b = 1
Application.ScreenUpdating = False
For b = 1 To 50 '(50 is the No of rows in col B)
For a = 1 To 50 '(50 is the No of rows in col A)
Cells(a, 1).Select
If Cells(a, 1).Value = Cells(b, 2).Value Then
Cells(b, 3).Value = Cells(a, 1).row
End If
Next a
Next b
Application.ScreenUpdating = True
End Sub
In col C it states in which row in A the dublet is found. If you want it only to state a 'True' then replace:
Cells(b, 3).Value = Cells(a, 1).row
with
Cells(b, 3).Value = "True"
|