Function Compare(arr1 As Variant, arr2 As Variant)
' массивы типа Variant - хранят диапазоны значений - каждый по 2 столбца
Sheets(1).Activate

      Dim i As Long
      Dim k As Long

      For i = LBound(arr1) To UBound(arr1)
              For k = LBound(arr2) To UBound(arr2)
                      If arr1(i, 1) = arr2(k, 2) Then ' тут сравниваю первую колонку первого массива и вторую колонку второго массива
                          If arr1(i, 2) = arr2(k, 1) Then ' если ввреху всё ОК, то сравниваю вторую колонку первого и первую колонку второго...
                    Cells(i, 2).Interior.Color = 255 ' ну и если совпало - что-то делаю..
                          End If
                      End If
              Next k
      Next i
        
End Function