Сравнение 2 листов

[Hugo121]

hloppel, а может удобнее другой подход - я тут проверил, мой универсальный файл вполне справился, нашёл 291 фамилию.
Сколько при сравнении формулами, не подсчитать, не сравнивал. Помучался, сравнил - 261? У меня больше, так что смотрите...
И нет тормозов при каждом чихе - один раз отработал, и покой до след. раза.
Файл по адресу http://hugo.nxt.ru/CompareFiles.Find.rar любой из двух в архиве.

Настройки:
Файл - приёмник: c:\Temp\hloppel\Лица трафик на 26.04.xls
Файл - источник: c:\Temp\hloppel\Лица трафик на 26.04.xls
Столбцы сравнения в приёмнике: c
Столбцы сравнения в источнике: g
Лист - приёмник (№): 3
Лист - источник (№): 1
Столбцы - приёмники: k
Столбцы - источники: e

Нажать большую кнопку.

ЗЫ. Сравнил результаты тщательнее - там номера телефонов повторяются. Мой код скопировал фамилии, а формула нет (9651763318 - Бондарь). Изучать, что правильнее, вероятно Вам. Разница 30 строк.

[hloppel]

Вот это уже удобно! Спасибо большое, а о замучался! я так понимаю, можно со всеми листами работать?

[Hugo121]

С любыми двумя листами, можно в разных файлах, а можно и на одном листе разные колонки, в бете есть опция "все файлы папки" - т.е. сравнивает с одним листом по одному выбранному листу из всех файлов папки. Можно сравнивать несколько колонок, и копировать из нескольких, можно вразброс. Можно ничего не копировать, а лишь поставить в свободную колонку пометки о совпадении (нумерованные, но можно добавить своё слово в начало). Можно сперва убрать лишние пробелы с концов и внутри двойные - мало ли чего понавводили, ничего не совпадает
В общем, потихоньку код распух... но слепо доверять пока рано, хотя критических ошибок не замечено. Если что, пишите - мыло в коде.

Да, ещё забыл - если незаполнены необходимые поля - будет запрос в диалоге, так что путь к файлу можно руками не набирать.
Можно наплодить настроенных копий под разные задачи, а можно настройки скопировать тут же рядом (или на другом листе) и просто подменять по надобности.
Для предосторожности есть чек-бокс "Приёмник разрешено сохранять" - понятно к чему это.
Чек-бокс "Показывать MsgBox "Double Finds"" тоже понятно надеюсь зачем. Хотя если ставите пометки, то повторы отмечаются цветом, так что мессидж можно не включать вовсе.