Как удалить значения одного столбца в другом, не получается

[Limyh]

Доброго дня.

И форум смотрел и в интернете, и сам пробовал. НЕ получается
Ситуация такая, есть 2 столбца, Столбец А - 22 тысячи строк, Столбец B - 2004 строк (в прикрепленном к теме примере, столбец B для формулы, я специальной вставкой транспорировал в строку). НУ и сделал значений 30 штук, для удобства и понимания логики действий с большим массивом.

Нужно следующее, взять каждое значение из Диапазона Ячеек - B1:BYC и проверить их на наличие в столбце A1:A20000.
Если в столбце A1:A20000 в какой-то ячейке встречается любое значение из диапазона B1:BYC, то ячейку в А1:A20000 удаляем, либо пишем туда какой-то символ, который потом найдем фильтром и массово удалим.

Что-то подобное делал вот такой формулой: =--ЕЧИСЛО(ПОИСК($B$1;$A$2:$A$4945)) - вставляешь в ячейку B2 и тянешь до низу. Есть вхождение - 1, нет вхождения -0
Но тогда таблица была небольшая и удобно было.

В данном же случае, таблица огромнейшая получится. И тянуть каждый столбец нереально на 2000 столбцов

Можно еще попробовать неким перебором: в ячейку С2 вставить формулу с условием: если ни одного значения из диапазона B1:BYC, не встречается в диапазоне A1:A20000, то в ячейку СN, вставляем значение ячейки AN, если же, какое-то значение из B1:BYC, встречается в диапазоне A1:A20000, то в ячейку СN - ставим любой символ. Потом по фильтру удалил.
Не могу формулу сделать здесь. Этот вариант наверняка будет быстрее, и проще, если конечно так можно сделать.

Надеюсь понятно описал
Пример прилагаю.
Спасибо

[Hugo121]

=dommatrasov(A2;$B$1:$E$1)

и протянуть. Если не под МАКом конечно...

Function dommatrasov(s As String, r As Range) As Boolean
Dim el
    With CreateObject("scripting.dictionary"): .comparemode = 1
        For Each el In r.Value
            .Item(Trim(el)) = 0&
        Next
        For Each el In Split(s)
            If .exists(el) Then dommatrasov = True: Exit Function
        Next
    End With
End Function

Критерии могут быть и иначе расположены - например на другом листе в столбце (как раз для случая "Столбец B - 2004 строк").

=dommatrasov(A2;Лист2!$A$1:$A$4)