Поиск совпадений.

[Hugo121]

Специально для ленивых - никаких кнопок!
Просто активируете лист.
Как бонус - вместо проматывания возможных тысяч строк и мучания глаз - фильтр по "Y"

P.S. - обнаружилось, что если при переходе на лист на нём стоит фильтр - код косячит...
Ну это можно поправить - сперва кодом скинуть фильтр.
Например так:

Sub compare()
    Dim a(), i&, flag As Boolean, t
    Application.ScreenUpdating = False
    On Error Resume Next
    With Sheets("Лист1")
        If .AutoFilterMode Then .ShowAllData
    End With
    On Error GoTo 0
    With Sheets("Лист2")
        a = Range(.[C2], .Range("B" & .Rows.Count).End(xlUp)).Value
    End With
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(a): .Item(a(i, 1) & "|" & a(i, 2)) = 0&: Next
        With Sheets("Лист1")
            a = Range(.[C2], .Range("B" & .Rows.Count).End(xlUp)).Value
        End With
        ReDim b(1 To UBound(a), 1 To 1)
        For i = 1 To UBound(a)
            If .exists((a(i, 1) & "|" & a(i, 2))) Then b(i, 1) = "Y"
        Next
    End With
    Sheets("Лист1").[E2].Resize(UBound(b)) = b
    Application.ScreenUpdating = True

End Sub

[riniks17]

Сообщение от Hugo121

Специально для ленивых - никаких кнопок!
Просто активируете лист.
Как бонус - вместо проматывания возможных тысяч строк и мучания глаз - фильтр по "Y"

P.S. - обнаружилось, что если при переходе на лист на нём стоит фильтр - код косячит...
Ну это можно поправить - сперва кодом скинуть фильтр, потом его заново поставить.

Красавец. Я Ваш должник.

[Hugo121]

Сообщение от riniks17

Я Ваш должник.

- ну зачем же... Всё в подписи (никто за язык не тянул )

[riniks17]

Сообщение от Hugo121

- ну зачем же... Всё в подписи (никто за язык не тянул )

Ну ты и задал задачу. Пытался со счёта отблагодарить, да что-то не получается. Видать эти кошельки не дружат с банковской системой. А своего кошелька нету. Мож у тебя другие варианты есть?
Вопрос. Где в коде задан массив проверки 1го листа? И где столбец, где выставляется автофильтр? Я просто стараюсь привинтить этот код к своей задаче.

[Hugo121]

Да ладно с этим кошельком - если нет своего, то не буду настаивать бежать в торговый центр.
Шутка

Проверка первого листа:

        With Sheets("Лист1")
            a = Range(.[C2], .Range("B" & .Rows.Count).End(xlUp)).Value
        End With
        ReDim b(1 To UBound(a), 1 To 1)
        For i = 1 To UBound(a)
            If .exists((a(i, 1) & "|" & a(i, 2))) Then b(i, 1) = "Y"
        Next

Автофильтр не указан. Просто если он есть на листе, то он сбрасывается, чтоб код корректно отработал.
Но вообще я на 100% не тестил, если в процессе появятся косяки, то ничего не мешает их исправить (например если будут пустые строки...)