Option Explicit

Sub tt()
      Dim a(), i&, t$

      a = [E1].CurrentRegion.Value
      With Application
          .ScreenUpdating = False

          With CreateObject("Scripting.Dictionary"): .comparemode = 1

              For i = 2 To UBound(a)
                  t = a(i, 1) & "|" & a(i, 2): .Item(t) = i
              Next

              a = [A1].CurrentRegion.Value
              For i = 2 To UBound(a)
                  t = a(i, 1) & "|" & a(i, 2)
                  If .exists(t) Then
                      MsgBox "Есть " & t
                  Else
                      MsgBox "Нет " & t
                  End If
              Next

          End With

          .ScreenUpdating = True
      End With
End Sub

Sub tt()
     Dim a(), i&, ii&, t$

     With Application
         .ScreenUpdating = False

         With CreateObject("Scripting.Dictionary"): .comparemode = 1

             a = Sheets(1).[a1].CurrentRegion.Value    'большая база
             For i = 2 To UBound(a)
                 t = a(i, 1) & "|" & a(i, 2): .Item(t) = i    'заполнили словарь
             Next

             a = Sheets(1).[e1].CurrentRegion.Value    'новая база
             ReDim b(1 To UBound(a), 1 To 2)    'массив для отбора
             For i = 2 To UBound(a)
                 t = a(i, 1) & "|" & a(i, 2)
                 If .exists(t) Then    'если есть в словаре
                     ii = ii + 1
                     b(ii, 1) = a(i, 1)
                     b(ii, 2) = a(i, 2)
                 End If
             Next

         End With

         If ii > 0 Then
             With Sheets(3)
                 .UsedRange.Clear
                 .[a1].Resize(ii, 2) = b    'выгружаем на 3-ий лист!
             End With
         End If
         .ScreenUpdating = True
     End With
End Sub