Option Explicit
Sub arrrr1()
Dim arr1() As Variant
Dim comarr() As Variant
Dim list1 As Variant
Dim complist As Variant
Dim TheRange As Range
Dim i, j, k, l, m, n As Long
Dim upper As Long
For i = 1 To 100
If Cells(i, 1).Value = "" Then
upper = i - 1
Exit For
End If
Next
ReDim arr1(2 To upper, 1 To 2)
ReDim comarr(2 To upper, 1 To 2)
Set TheRange = Range(Cells(2, 1), Cells(upper, 2))
For j = 2 To upper
For k = 1 To 2
arr1(j, k) = Cells(j, k).Value
comarr(j, k) = Cells(j, k).Value
Next
Next
For l = 2 To upper
m = l + 1
For n = m To upper
If (arr1(l, 1) = comarr(n, 1) And arr1(l, 2) = comarr(n, 2)) Then
Cells(n, 2).Offset(0, 2).Value = "Repeated"
End If
Next
Next
End Sub
Bookmarks