Сложный поиск с выделением

[Azz100]

Здраствуйте.
В столбце, предположим в A1:A6, есть текстовые данные вида:
100 500 300
200 50 765
13 12 90
123 9000
100500
222 77

Если слов больше одного, то они всегда разделены пробелами.

В соседнем столбце, предположим в B1:B6, есть аналогичные:
301 200 201
666 200
91 92 93
9000 123
10909
77777 7777

Если слов больше одного, то они всегда разделены пробелами.

Что нужно.
Взять первое слово из ячейки А1 (первое до пробела!) и сравнить его с ячейкой В1.
Если слово не найдено, то берем следующее слово из ячейки А1, которое стоит после пробела (и до следующего пробела!), и опять таки сравниваем его с ячейкой В1.
Если слово опять таки не найдено, то переходим к ячейке ячейке А2 и сравниваем с В2. И т.д.
Если нашлось хоть одно слово, то выделяем эту ячейку заливкой.

Так, в приведеном примере, залиты должны быть ячейки А2 и А4 (ну или В2 и В4).

Важное уточнение! При поиске регистр должен игнорироваться.

[DiemonStar]

=ЕСЛИ(И(ЕЧИСЛО( НАЙТИ(" ";$A1;1));ЕЧИСЛО( НАЙТИ(" ";$B1;1)));
                    ЕСЛИ(ЛЕВСИМВ($A1;НАЙТИ(" ";$A1;1) - 1) = ЛЕВСИМВ($B1;НАЙТИ(" ";$B1;1) - 1);ИСТИНА;
                    ЕСЛИ(И(ЕЧИСЛО( НАЙТИ(" ";$A1;НАЙТИ(" ";$A1;1) +1));ЕЧИСЛО( НАЙТИ(" ";$B1; НАЙТИ(" ";$B1;1) +1)));
                    ЕСЛИ(ПСТР($A1; НАЙТИ(" ";$A1;1) + 1; НАЙТИ(" ";$A1; НАЙТИ(" ";$A1;1) + 1)- НАЙТИ(" ";$A1;1) - 1) 
                    = ПСТР($B1; НАЙТИ(" ";$B1;1)+1;НАЙТИ(" ";$B1; НАЙТИ(" ";$B1;1) +1 ) - НАЙТИ(" ";$B1;1) - 1);
                    ИСТИНА;ЛОЖЬ);ЛОЖЬ));ЛОЖЬ)

примерно как-то так будет работать, если в УФ формулу подставить

хотя намного правильнее было бы разделить по столбцам данные и сравнение там будет намного проще.

[DiemonStar]

  =ИЛИ(
    ЕСЛИОШИБКА(ЛЕВСИМВ($A1;НАЙТИ(" ";$A1;1)-1); $A1) = 
    ЕСЛИОШИБКА(ЛЕВСИМВ($B1;НАЙТИ(" ";$B1;1)-1); $B1); 
    ЕСЛИОШИБКА(ПСТР($A1;НАЙТИ(" ";$A1;1)+1;НАЙТИ(" ";$A1;НАЙТИ(" ";$A1;1)+1)-НАЙТИ(" ";$A1;1)-1); 
      ЕСЛИОШИБКА(ПРАВСИМВ($A1;ДЛСТР($A1) - НАЙТИ(" ";$A1;1)); $A1)) =
    ЕСЛИОШИБКА(ПСТР($B1;НАЙТИ(" ";$B1;1)+1;НАЙТИ(" ";$B1;НАЙТИ(" ";$B1;1)+1)-НАЙТИ(" ";$B1;1)-1); 
      ЕСЛИОШИБКА(ПРАВСИМВ($B1;ДЛСТР($B1) - НАЙТИ(" ";$B1;1)); $B1)))

но такой вариант будет получше, если нужно точное соответствие по позициям значений, если же нет, то так:

  =И(
    ИЛИ(
      ЕЧИСЛО(НАЙТИ(ЕСЛИОШИБКА(ЛЕВСИМВ($A1;НАЙТИ(" ";$A1;1)-1); $A1);$B1)); 
      ЕЧИСЛО(НАЙТИ(ЕСЛИОШИБКА(ПСТР($A1;НАЙТИ(" ";$A1;1)+1;НАЙТИ(" ";$A1;НАЙТИ(" ";$A1;1)+1)-НАЙТИ(" ";$A1;1)-1);
        ЕСЛИОШИБКА(ПРАВСИМВ($A1;ДЛСТР($A1) - НАЙТИ(" ";$A1;1)); $A1));$B1)));
  НЕ(ЕПУСТО($A1));
  НЕ(ЕПУСТО($B1)))

[ZORRO2005]

Azz100,

A1:Спортивный комплекс
B1:любимый спорт

Слово найдено? A1 заливаем?

[Azz100]

ZORRO2005, нет, слово должно быть целым.

[Казанский]

Не, без Split такое делать я не согласен
Функция для УФ

Function Azz(a As String, ByVal b As String) As Boolean
Dim x
b = " " & b & " "
For Each x In Split(Application.Trim(a))
    If InStr(1, b, " " & x & " ", vbTextCompare) Then Azz = True: Exit Function
Next
End Function

[ZORRO2005]

Без макросов: