Как средствами VBA сравнить два листа в разных книгах?

[VePr]

Как средствами VBA сравнить два листа в разных книгах Excel, а результат вывести на новый лист первой книги?

[uhm]

Что значит "сравнить"?
Какой должен быть результат сравнения?

[Maks the best]

можно так пошутить

Код: Выделить всё


Sub спокойной_ночи()

Workbooks("Книга1").Activate
Sheets.Add.Name = "Новый лист"

For r = 1 To 65536
For c = 1 To 256
If Workbooks("Книга1").Sheets("Лист1").Cells(r, c) <> Workbooks("Книга2").Sheets("Лист1").Cells(r, c) Then Workbooks("Книга1").Sheets("Новый лист").Cells(r, c) = "тута различие :("
Next c
Next r

msgbox "Просыпайся НЭО ..."

End Sub



запускаешь, и идёшь баеньки. Утро как говорится мудренее ...

[VePr]

Что значит "сравнить"?
Какой должен быть результат сравнения?

Нужно сравнить свой прайс-лист и поставщика по наименованиям, и вывести различия на новый лист первого прайса

[Maks the best]

пошли их мне на мыло, ясней будет

[VePr]

Maks the best
Отослал - жду ответа

[Igor_123]

А как обходить граматические ошибки в наименованиях?

А каково будет время обработки по сравнению нескольких тысяч строк? Не говоря о листах.

Вот по поводу ошибок, мне интереснее всего :D