сравнение двух файлов и формирование третьего

[mitinomax]

Доброго времени, отцам vbs и его пользователям. Перековырял всю ветку, нашЁл много интересного, но вот именно того что нужно найти не удалось. Помогите, если есть возможность, значит суть в следующем: есть основной прайс лист 01.xls(~10000 строк) и есть второй прайс 02.xls. Первый прайс имеет колонки: 1-я - наименование, остальные 5-6 колонок - цены. Второй прайс имеет одну колонку - Наименование. Цель макроса - надо сравнить колонки наименований этих двух файлов и если есть совпадения, то сформировать 3-й файл в котором будет список наименований(совпавших) только уже с ценами (т.е. всю строку из первого файла), если например какого-то наименования из второго файла нет в первом, все равно вписать это наименование в третий файл, но с подписью "не найден"(или что-нить в этом роде). Заранее благодарю за любую помощь или совет. пример прилепляю...



--------- примечание модератора - вдруг кому пригодится --------------

Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.

Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.

В настройках программы можно задать:

• где искать сравниваемые файлы (использовать уже открытый файл, загружать файл по заданному пути, или же выводить диалоговое окно выбора файла)
• с каких листов брать данные (варианты: активный лист, лист с заданным номером или названием)
• какие столбцы сравнивать (можно задать несколько столбцов)
• значения каких столбцов надо копировать в найденные строки (также можно указать несколько столбцов)

Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк

[alex77755]

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

за любую помощь или совет. пример прилепляю...

Я бы считал оба файла в массивы и обработал.
Может даже будет быстрей если применить словарь. За один проход загдать один массив в словарь, а вторым проходом по другому масиву выбрать значения. Ну а потом просто создать новую книгу и вывалить массив результатов на лист.

[Hugo121]

Зачем третий файл? Почему не писать цены сразу во второй? И сохранить его как третий
Предлагаю за недорого
http://www.excelworld.ru/index/comparefiles_find/0-25
или
http://hugo.nxt.ru/CompareFiles.Find.rar
http://ibay.narod.ru/other/CompareFiles.Find.rar

Но 15 раз совершенно бесплатно, настройки под файлы из примера (пути поменяйте на свои):

Файл - приёмник: c:\Temp\mitinomax\f02.xls
Файл - источник: c:\Temp\mitinomax\f01.xls
Столбцы сравнения в приёмнике: a
Столбцы сравнения в источнике: a
Лист - приёмник (№): 1
Лист - источник (№): 1
Столбцы - приёмники данных копирования: B,C,D,E,F,G
Столбцы - источники данных копирования: B,C,D,E,F,G

Если два файла по 10000 строк - то будет небыстро, тогда нужен спецкод на словаре.
Ну а если во втором файле строк не десятки тысяч - то вполне юзабельно.
Если нужно именно написать "NotFind", то запустите с настройкой
Столбец для пометок в приёмнике: h
и отметив чекбокс "инверсия".

Получите результат

qweqw12	1		3	3	456	76	
dfg123123	3	324	3				
eqweqw43		66					
dffdhhj8976	786					5785	
dgdfgdggger464							NotFind

[mitinomax]

какова цена вопроса?

[Hugo121]

Отвечу в личку - уже даже пытался, но она у Вас отключена

[mitinomax]

Набранное вами сообщение слишком короткое. Увеличьте ваше сообщение до 10 символов.