Сравнение двух файлов Excel (поячеечно) для выявления отличий

[IEEE]

Здравствуйте, уважаемые гуру!
Есть такая интересная задача - сравнить два файла Excel.
Нужно, чтобы макрос спрашивал с какой строки сравнивать, так как до шапки может идти ненужный текст. И несовпадающие (соответствующие!!!) ячейки закрасить в какой-нить цвет!

Всем буду очень признателен за ответ!



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

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

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

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

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

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

[Maxx]

Это не сложно!
Но если Вы заметили, в Ваших двух файлах таблицы начинаются со 2-ой строки и с 4-ой. Это надо учитывать?
Искать несоответствие надо только в области таблиц?

Ладно, неважно.
Вот пример:

Sub CompareBooks()
Dim myName As String, wB As Workbook
        With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "Выберите фйал для сравнения"
            .Show
                If .SelectedItems.Count = 0 Then Exit Sub
            myName = .SelectedItems(1)
        End With
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=myName: Set wB = Workbooks(ActiveWorkbook.Name)
    
    Windows(ThisWorkbook.Name).Activate: ActiveSheet.Unprotect
    
    numRow = InputBox("Укажите номер строки, с которой необходимо начать сравнение:", "Номер строки")
    numCol = Cells.SpecialCells(xlLastCell).Column - 1
    
    For i = numRow To Cells(Rows.Count, 1).End(xlUp).Row
        For y = 1 To numCol
            If Cells(i, y).Value <> wB.Sheets("Лист1").Cells(i, y) Then
                wB.Sheets("Лист1").Cells(i, y).Interior.Color = 255
            End If
        Next
    Next
    ActiveSheet.Protect: Application.ScreenUpdating = True
End Sub

Но есть одно условие, что таблицы в обоих файлах начинаются с одинаковой строки.

[IEEE]

to MAXX Спасибо большое за ответ!)
Вы мне очень помогли!!!)))
Я подправил макрос под свою задачу и вот что получилось:

Sub CompareBooks()
Dim myName As String, wB As Workbook
With Application.FileDialog(msoFileDialo gFilePicker)
.Title = "Выберите ПЕРВЫЙ файл для сравнения"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myName = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Workbooks.Open Filename:=myName: Set wB = Workbooks(ActiveWorkbook.Name)

Dim myName1 As String, wB1 As Workbook
With Application.FileDialog(msoFileDialo gFilePicker)
.Title = "Выберите ВТОРОЙ файл для сравнения"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myName1 = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Workbooks.Open Filename:=myName1: Set wB1 = Workbooks(ActiveWorkbook.Name)

Windows(wB1.Name).Activate: ActiveSheet.Unprotect

numRowProv = InputBox("Укажите номер строки, с которой необходимо начать сравнение В ПЕРВОМ файле:", "Номер строки")
numRow = InputBox("Укажите номер строки, с которой необходимо начать сравнение ВО ВТОРОМ файле:", "Номер строки")
numCol = Cells.SpecialCells(xlLastCell).Colu mn - 1

If numRow >= numRowProv Then
Razn = numRow - numRowProv
For i = numRow To Cells(Rows.Count, 1).End(xlUp).Row
iprov = i - Razn
For y = 1 To numCol
If wB1.Sheets("Лист1").Cells(i, y) <> wB.Sheets("Лист1").Cells(iprov, y) Then
wB1.Sheets("Лист1").Cells(i, y).Interior.Color = 255
End If
Next
Next
End If


If numRow < numRowProv Then
Razn = numRowProv - numRow
For i = numRow To Cells(Rows.Count, 1).End(xlUp).Row
iprov = i + Razn
For y = 1 To numCol
If wB1.Sheets("Лист1").Cells(i, y) <> wB.Sheets("Лист1").Cells(iprov, y) Then
wB1.Sheets("Лист1").Cells(i, y).Interior.Color = 255
End If
Next
Next
End If

ActiveSheet.Protect: Application.ScreenUpdating = True
End Sub

[Maxx]

Вот:

Sub CompareBooks()
Dim myName As String, wB As Workbook
        With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "Выберите фйал для сравнения"
            .Show
                If .SelectedItems.Count = 0 Then Exit Sub
            myName = .SelectedItems(1)
        End With
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=myName: Set wB = Workbooks(ActiveWorkbook.Name)
    st2 = Cells.SpecialCells(xlCellTypeConstants).Row
    
    Windows(ThisWorkbook.Name).Activate: ActiveSheet.Unprotect
    st1 = Cells.SpecialCells(xlCellTypeConstants).Row
    offS = Abs(st1 - st2)
    
    numRow = InputBox("Укажите номер строки, с которой необходимо начать сраснение:", "Номер строки")
    numCol = Cells.SpecialCells(xlLastCell).Column - 1
    
    For i = numRow To Cells(Rows.Count, 1).End(xlUp).Row
        For y = 1 To numCol
            If Cells(i, y).Value <> wB.Sheets("Лист1").Cells(i, y).Offset(offS) Then
                wB.Sheets("Лист1").Cells(i, y).Offset(offS).Interior.Color = 255
            End If
        Next
    Next
    ActiveSheet.Protect: Application.ScreenUpdating = True
End Sub

[IEEE]

to MAXX Спасибо большое!!! Вы мне очень помогли!!!
Да с помощью функции abs все выглядит красивее)))

[star1444]

Я вот прочитал ваш форум, вроде бы все легко и понятно, но у меня что не получается, постоянно выдает ошибку, хотя строки и столбцы выставил соответсвенно, не могли бы вы мне помочь?? за ранее огромное спасибо

[Maxx]

у меня что не получается

Что не получается?

постоянно выдает ошибку

Какую?

не могли бы вы мне помочь

А в чем собственно задача? Что сравнивать-то надо? У IEEE были одинаковые акты, а Вы выложили два файла АБСОЛЮТНО разные.

[Елена20.12.1987]

Они почти одинаковые.

[FIGTER]

Всем добрый день!
Подскажите макрос для подсвечивания совпадений в столбце А по
жестко определенному списку номеров.
Например, этот список от 1 до 10, следовательно если в столбце А книги есть совпадения номеров от 1 до 10, эти номера должны подсветиться цветом.
И желательно, чтоб выполнение макроса распрастронялось только на выделенные строки в книге до его выполнения.
Т. е. выделяю диапозон строк нужный мне, нажимаю выполнить макрос и в этом диапазоне подсвечиваются все совпадения заложенные в списке макроса. Заранее всем спасибо.