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
Сейчас этот форум просматривают: SemrushBot и гости: 94