seveЗдравствуйте, помогите, пожалуйста с написанием макроса, который освободит от рутинной работы.
Есть две книги excel -book1.xls (запрос) и bd.xls (база данных).

Коротко - необходимо найти одинаковые данные в обоих книгах, если таковые будут, то сделать пометку об этом.

В книге book1.xls есть столбец В, котором построчно внесены следующие данные

ячейка B1- green
ячейка B2- yellow
ячейка B3- red
ячейка B4- car
ячейка B5- ball
ячейка B6- job

далее необходимо значения каждой из этих ячеек проверить на наличие в базе данных - файлик bd.xls

В этом файле так же есть столбец B, в котором в ячейках данные записаны в следующем виде:

ячейка B1- green, yellow, blue, pink
ячейка B2- good, bad, pleasure
ячейка B3- fun, joy,
ячейка B4- bus, car, subway
ячейка B5- ball, clew, tangle

если находится совпадение, например, значение ячейки из B1 book1.xls "green" присутствует в B1 базе данных, то для отметки из базы данных в файл book1.xls копируется значение столбца D (в данном случае D1 "colors").
и так по всему столбцу.

Помогите, плз!

а почему не формулой?

A B1green=ЕСЛИ(ЕЧИСЛО(ПОИСКПОЗ("*"&B1&"*";'C:\[BD.xls]Лист1'!$B:$B;0));ИНДЕКС('C:\[BD.xls]Лист1'!$D:$D;ПОИСКПОЗ("*"&B1&"*";'C:\[BD.xls]Лист1'!$B:$B;0));"")

seveKL (XL), добрый день.
Спасибо большое! работает.

Остался уточняющий вопрос - по этой формуле подыскивается ближайшее совпадение, т.е.
если нужно слово "пар", а первым по поиску попадается ячейка, в которой есть слово "паровоз", то оно подходит под указанные критерии.
можно это исправить?
я пока нашел такой вариант:
в функции ПОИСКПОЗ(MATCH) первый параметр
"*"&B1&"*"
заменил на
"*"&" "&B1&","&"*"

Тогда, если необходимо найти именно слово "пар" в нескольких столбцах
паровоз, самолет, вертолет,
душ, пар, вода, снег,
воз, телега,
пар,
выбирается вторая строка, но при этом необходимо форматировать все сроки, что первые пара символов были пробелы и последний тоже пробел.
Может есть более простые более удобные варианты?

KL (XL), еще раз БОЛЬШОЕ спасибо!!

Боюсь, что в этом случае либо надо делать то, что ты уже сам нашел либо писать код с регулярными выражениями, а главное с открытием файла источника или импортированием данных с пом. MS Query или ADO.

Если не принципиально какую из строк найдет формула, то еще вот такой вариант:

=ИНДЕКС('C:\[BD.xls]Лист1'!$D:$D;ПОИСК(9E+307;ПОИСКПОЗ({"*, ";"*, ";""}&A1&{",*";"";",*"};'C:\[BD.xls]Лист1'!$B:$B;0)))

KL
[MVP - Microsoft Excel]

- выбираем ячейку [A1]
- меню Формат-Условное форматирование...
- в Условии 1 в первом комбобоксе выбираем опцию Формула
- в поле для формулы пишем: =B1<>""
- жмем на кнопку Формат и выбираем нужное
- жмем на кнопку OK
- жмем на кнопку OK


KL
[MVP - Microsoft Excel]

=СУММПРОИЗВ(ДЛСТР(B1:B100)-ДЛСТР(ПОДСТАВИТЬ(B1:B100;",";"")))

KL
[MVP - Microsoft Excel]

seveоба варианта ок, только вот разница в вычисляже есть небольшая:
по формуле =СУММПРОИЗВ(--(ПСТР($B$1:$B$100;СТОЛБЕЦ(A1:T1);1)=",")) получается 11220.
A1:T1 заменил на A1:IS1
а по формуле =СУММПРОИЗВ(ДЛСТР(B1:B100)-ДЛСТР(ПОДСТАВИТЬ(B1:B100;",";""))) на сотню больше.

=СУММПРОИЗВ(--(ПСТР($B$1:$B$100;СТОЛБЕЦ(A1:T1);1)=",")) проверяет первые 20 знаков, т.к. СТОЛБЕЦ(A1:T1) = {1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20}

seveЭто не критично, просто информация FYI. ;)

:-о

KL
[MVP - Microsoft Excel]

seveя видел, автор предупредил.
поэтому и написал, что
A1:T1 заменил на A1:IS1

значит весьма вероятно, что у тебя в столбце имеются тексты длиннее, чем 253 знака, а главное - есть запятые на позициях 254 и/или более.

KL
[MVP - Microsoft Excel]