Макрос который сравнивает две таблицы

[Potesrelcis]

Здравствуйте помогите новичку, есть скрипт (макрос) который сравнивает две таблицы (на точное совпадение строк) это: Таблица 1 и Таблица 2 и выводит список в таблицу Совпадения, помогите доработать скрипт (макрос) чтоб еще выводил список не совпавших строк в таблицу Разница)))

[Hugo121]

Что-то там накручено... С Белушкиным явно косяк - 4+2=8
Я бы всё переписал на словаре - так совпадения легко выбрать.
Но с разницей работы больше - в 2 раза похоже больше...

[R Dmitry]

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

Здравствуйте помогите новичку, есть скрипт (макрос) который сравнивает две таблицы (на точное совпадение строк) это: Таблица 1 и Таблица 2 и выводит список в таблицу Совпадения, помогите доработать скрипт (макрос) чтоб еще выводил список не совпавших строк в таблицу Разница)))

1. может вам необходимо все уникальные без повторов отобрать , которые имеются в обоих таблицах?
2. из какой таблицы выводить отсутствующих ? в 1 или 2 или в обоих ?
и опять же всех подряд или нужно уникальных оставить

[Potesrelcis]

Сообщение от R Dmitry

2. из какой таблицы выводить отсутствующих ? в 1 или 2 или в обоих ?
и опять же всех подряд или нужно уникальных оставить

Задача вывести всех подряд, отсутствующих в таблице 1)) на лист Разница

[Hugo121]

Отсутствующих в таблице 1 из таблицы 2, или отсутствующих в таблице 2 из таблицы 1?
Т.е. тех, кто есть в 1, но нет в 2?

Проверяйте - сделал обе задачи одним небольшим кодом (Ваши там тоже остались).
Разница - это те, кто есть в 1, но нет в 2.
Раз сказали, что всех - так всех (легче - не надо в повторах уникальных отбирать...)

[kuklp]

Чего такая разница? Игорь, проверь у себя. АГАФОНОВ нету ни там ни там.

[Hugo121]

Сергей, Агафонов только во второй таблице - а мы так не договаривались
Мой код выводит совпавших, и

Разница - это те, кто есть в 1, но нет в 2.

Проверять и туда, и назад - я сразу сказал, что работы много... и вроде не заказывали
А чего твой код так долго работает? Понимаю, что проверок больше - но мой вроде раза в 4 быстрее...
Это не Join(Application.Index(a, i), "|") тормозит?
Точно - заменил всюду на монстра

            temp = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)
и на
temp

и залетало.

[kuklp]

Загрузил и второй вариант. Бог его знает, как ему нать:-)

Задача вывести всех подряд, отсутствующих в таблице 1)) на лист Разница

[Potesrelcis]

Всем спасибо огромное за помощь, все работает))) как положено)))