разбиение текста

[user7789]

исправил,
на
=ISNUMBER(SEARCH(B1,Sheet1!A:A))

не работает!

[Hugo121]

Работает типа
=VLOOKUP("*" & B1 & "*";$A$1:$A$20;1;0)
Но вопрос - всё ли всегда заполнено, и что хотите получить в ответе?
Второй вопрос снимаю, перепрочитал

Так попробуйте, с подстраховкой:
=IF(LEN(B1);IF(ISERROR(VLOOKUP("*"& B1&"*";$A$1:$A$20;1;0));"";"OK");"" )
вернее даже так (и по всему столбцу):

=IF(LEN(TRIM(B1));IF(ISERROR(VLOOKUP("*"&B1&"*";A:A;1;0));"";"OK");"")

[user7789]

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

Работает типа
=VLOOKUP("*" & B1 & "*";$A$1:$A$20;1;0)
Но вопрос - всё ли всегда заполнено, и что хотите получить в ответе?
Второй вопрос снимаю, перепрочитал

в столбце а- информация всегда такая.
в столбце b- переменная.
в столбце c- если значения столбца b нашло себя в столбце а, то без разницы как это указывать, можно 1-если есть или 0-если нет.

[Hugo121]

Просто если в столбце b нет переменной (пусто), то нужно это обработать, иначе ВПР() (первый вариант) вытянет первое попавшееся значение.

[user7789]

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

Просто если в столбце b нет переменной (пусто), то нужно это обработать, иначе ВПР() (первый вариант) вытянет первое попавшееся значение.

теперь настанет долгое время тестирования...

[user7789]

Hugo121, спасибо, формула работает.

но теперь возникла другая проблема...

пытался записать макрос, чтоб он копировал значения с ячейки B1 по B200 и искал свое значения в столбце A, и если находил, то выделял жирным шрифтов целую ячейку.
получилось так:

Range("B1").Select
Selection.Copy
Columns("A:A").Select
Selection.Find(What:="KZ1EXLC111390 0", After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
, MatchCase:=False, SearchFormat:=False).Activate
Range("A5").Select
Selection.Font.Bold = True


где KZ1EXLC1113900 - может быть любое значение.
и Range("A5").Select - ячейка может быть любая, зависит от того какое значение указано в ячейке b1.

[Hugo121]

Так попробуйте:

Option Explicit

Sub tt()
Dim cc As Range
On Error Resume Next
For Each cc In [b1:b200]
Columns("A:A").Find(What:=cc, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False).Font.Bold = True
Next
On Error GoTo 0
End Sub

copy в Вашем коде вообще не понятно зачем, а selection только тормозит.
On Error Resume Next на случай ненахождения.