Dim x As Integer
    Dim col As New Collection
    ReDim m(1 To 5, 1 To 2)
    For x = 1 To 5 Step 1
        m(x, 1) = "Проверка"
        m(x, 2) = x
    Next
    col.Add m
    Erase m

set wb=activeworkbook

Dim wb As Workbook
или
Dim wb as Object

Option Explicit

'Макросом -
'1.два диапазона в два массива
'2.создание массива для результатов
'3.один перебор 300 значений массива в словарь
'4.100 000 проверок массива на наличие в словаре и заполнение единицами массива результата
'5.выгрузка результатов

Sub compare()
Dim a, b, c, d, e, iLastrow As Long, i As Long
Dim tm: tm = Timer
'1.
With Sheet2 'используется кодовое имя
iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
b = Range(.[A1], .Range("b" & iLastrow)).Value
'd = Range(.[B1], .Range("B" & iLastrow)).Value

End With

With Sheet1 'используется кодовое имя
iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
a = Range(.[A1], .Range("b" & iLastrow)).Value
'e = Range(.[B1], .Range("B" & iLastrow)).Value

End With

'2.
ReDim c(1 To UBound(a), 1 To 1)

'3.
With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(b)
            .Item(b(i, 1) & "|" & b(i, 2)) = CStr(1)
    Next

'4.
    For i = 1 To UBound(a)
      If .exists(a(i, 1) & "|" & a(i, 2)) Then c(i, 1) = 1
    Next
End With

'5.
With Sheet1 'используется кодовое имя
Range(.[C1], .Range("C" & iLastrow)).Value = c
End With

MsgBox Timer - tm 'окно с таймером, годная тема
End Sub

Range(.[A1], .Range("A" & iLastrow)).Value

union((ws.Rows(1), ws.Rows(i)).Copy

=VLOOKUP(D21;$A$12:$B$16;2)