Выделение ячеек одного столбца из повторяющихся слов другого

[tatarrrin]

Доброго времени суток!
Проблема состоит в следующем:
Есть два столбца. В одном предложения, во втором слова. Нужен анализ, чтобы прошел поиск и выделение по первому столбцу слов из второго столбца.
Пример как должно выглядеть выкладываю.

[A-Michael]

Уточните, пожалуйста, в 4-строке есть совпадение "КОФЕ", а в пятой совпадения нет. Почему?

[sv2015]

добрый день,tatarrrin,протестируйте вариант макроса кнопка use повтор
 

 

Код (vb) Выделить Развернуть

Sub replica(mask As Range)
   Dim i&, z, x1: x1 = Application.Transpose(mask.Value)
   z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
        With CreateObject("vbscript.regexp"): .IgnoreCase = True: .Pattern = Join(x1, "|")
        For i = 1 To UBound(z)
           If .test(z(i, 1)) Then Range("A" & i).Interior.Color = 65535
        Next
      End With
End Sub

Код (vb) Выделить Развернуть

Sub use()
Dim i1&
i1 = Range("B" & Rows.Count).End(xlUp).Row
replica Range("B1:B" & i1)
End Sub

[китин]

формула в УФ

Код Выделить Развернуть

=ЕЧИСЛО(ПОИСКПОЗ(1=1;ЕЧИСЛО(ПОИСК($B$1:$B$5;A1));0))