Сравнить два столбца на разных листах. Вывести на Лист3 не совпадающие значения - VBA

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton3_Click()
For I = 2 To 250
    For j = 1 To 110
    Sheets("Результат").Cells(I, j) = ""
    Next j
Next I
For g = 2 To Sheets("Сканер").Cells(1, 3)
pnomer = Sheets("Сканер").Cells(g, 1)
 
u = 2
For s = 2 To Sheets("ЕИИС").Cells(1, 25)
inomer = Sheets("ЕИИС").Cells(s, 2)
 
anomer = Sheets("ЕИИС").Cells(s, 2)
 
Find = pnomer
Find2 = inomer
If Find2 = Find Then
 
Sheets("Результат").Cells(u, 1) = pnomer
Sheets("Результат").Cells(u, 2) = pnaimenov
 
u = u + 1
End If
 
Next s
Next g
Sheets("Результат").Activate
End Sub

Решение задачи: «Сравнить два столбца на разных листах. Вывести на Лист3 не совпадающие значения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton3_Click()
    Dim a, i&, t$
 
    a = Sheets("Сканер").[a1].CurrentRegion.Value
    With CreateObject("scripting.dictionary"): .comparemode = 1
        For i = 2 To UBound(a)
            .Item(a(i, 1) & "|" & a(i, 2)) = 0&
        Next
        ii = 1
        a = Sheets("ЕИИС").[a1].CurrentRegion.Columns(2).Resize(, 2).Value
        For i = 2 To UBound(a)
            t = a(i, 1) & "|" & a(i, 2)
            If Not .exists(t) Then
                ii = ii + 1
                a(ii, 1) = a(i, 1)
                a(ii, 2) = a(i, 2)
            End If
        Next
 
    End With
 
    [a1].Resize(ii, 2) = a
 
End Sub