Проверка строк на совпадения

Private Sub CommandButton6_Click()
For s = 1 To 3 '3 строки'
For i = 1 To 3 '3 строки на 1м листе'
For i1 = 1 To 5 '3 строки на 2м листе'
If Worksheets(1).Cells(i, s) = Worksheets(2).Cells(i1, s) Then
a = a + 1 'счетчик подсчета'
End If
Next
Next
End Sub

Sub Procedure_1()
 
    Dim Лист_1 As Long, Лист_2 As Long
    Dim i As Long, j As Long, k As Long
    Dim vArray_1() As Variant, vArray_2() As Variant
    Dim lNumber As Long
    
    'Переменная k используется для записи на первый лист количества совпадений.
    k = 17
    
    'С циклом с Лист_1 двигаемся по первому листу.
    For Лист_1 = 1 To 3 Step 1
    
        'Берём в массив числа из первого листа.
        'Формируется двумерный массив: из одной строки и трёх столбцов.
        vArray_1() = Worksheets(1).Range("A" & Лист_1 & ":C" & Лист_1).Value
    
        'С циклом с Лист_2 двигаемся по второму листу.
        For Лист_2 = 1 To 3 Step 1
        
            'Берём в массив числа из второго листа.
            vArray_2() = Worksheets(2).Range("A" & Лист_2 & ":C" & Лист_2).Value
        
            'С циклом с i просматривается 3 ячейки в строке на первом листе.
            For i = 1 To 3 Step 1
            
                'С циклом с j просматриваем 3 ячейки в строке во втором листе.
                For j = 1 To 3 Step 1
                
                    If vArray_1(1, i) = vArray_2(1, j) Then
                        'Запоминаем, сколько было совпадений.
                        lNumber = lNumber + 1
                        'Переходим к следующей ячейки в строке на первом лисет.
                        Exit For
                    End If
                    
                Next j
                
            Next i
            
            'Если совпадения были.
            If lNumber <> 0 Then
                Worksheets(1).Cells(Лист_1, k).Value = lNumber
                k = k + 1
                lNumber = 0
            End If
            
        Next Лист_2
        
        'Подготавливаем k к следующему использованию.
        k = 17
        
    Next Лист_1
 
End Sub

Option Explicit
 
Sub Perebor()    ' словарь в словаре
    Dim a, i&, ii&, iii&, t$, n&
 
    With Sheets(2)
        a = .Range("C1", .Cells(.Rows.Count, "A").End(xlUp)).Value
    End With
 
    'запоминаем в словаре цифры с номерами строк в словаре :)
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For i = 1 To UBound(a)
            For ii = 1 To UBound(a, 2)
                t = a(i, ii)
                If Not .exists(t) Then .Add t, CreateObject("Scripting.Dictionary")
                .Item(t).Item(i) = 0&
            Next
        Next
 
        With Sheets(1)
            a = .Range("C1", .Cells(.Rows.Count, "A").End(xlUp)).Value
        End With
        ReDim c(1 To UBound(a, 1), 1 To UBound(a, 2))
 
        'считаем количество совпадений
        For i = 1 To UBound(a)    'цикл вниз
            For iii = 1 To UBound(a, 1)    'цикл вниз, по номерам строк
                n = 0
                For ii = 1 To UBound(a, 2)    'цикл вправо
                    t = a(i, ii)
                    If .exists(t) Then    'если в словаре есть цифра
                        If .Item(t).exists(iii) Then    'если у неё в словаре есть номер строки
                            n = n + 1
                        End If
                    End If
                Next
                c(i, iii) = n    'записываем результат в массив
            Next
        Next
 
    End With
 
    'выгружаем результат
    [Q6].Resize(UBound(c, 1), UBound(c, 2)) = c
 
End Sub

For i = 1 To UBound(arr)
    Dic(arr(i, 3) & arr(i, 4)) = i
Next i
For i = 1 To UBound(arr2)
    If Dic.exists(arr2(i, 1) & arr2(i, 2)) Then
       x = Dic.Key
    End If
Next i

'запоминаем в словаре цифры с номерами строк в словаре :)

If Dic.exists(arr2(i, 1) & arr2(i, 2)) Then x=Dic.item(arr2(i, 1) & arr2(i, 2))