Как сверить строки в двух Excel файлах и выделить различия? 

 

Как сверить строки в двух Excel файлах и выделить различия?

Имеются два файла с таблицами Excel, нужно сверить столбцы и в одном из файлов повторяющиеся строки выделить цветом. Для этого Нужно открыть два документа в MS Excel.

1. Включить в MS Excel возможность работы с макросами

  • Откройте вкладку Файл.
  • Нажмите кнопку Параметры.
  • Нажмите кнопку Настроить ленту.
  • Выберите команду Настройка ленты и в разделе Основные вкладки установите флажок Разработчик.

2. В первом из открытых файлов Книга1.xlsx перейти во вкладку Разработчик, далее Макросы. Пишем любое Имя макроса, например Main и нажимаем кнопку Создать.

3. Копируем и вставляем ниже приведенный код макроса в окно Module1 предварительно очистив от заготовленной стандартной конструкции.

Sub Main()

    Dim i As Long, x As New Collection
    Application.ScreenUpdating = False
    Workbooks("Книга1.xlsx").Sheets(1).Activate
    On Error Resume Next
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        x.Add Cells(i, "A"), CStr(Cells(i, "A"))
    Next
    On Error GoTo 0
    
    With Workbooks("Книга2.xlsx").Sheets(1)
        Columns("A").Interior.ColorIndex = xlNone
        For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
            On Error Resume Next
            x.Add .Cells(i, "A"), CStr(.Cells(i, "A"))
            If Err  0 Then .Cells(i, "A").Interior.ColorIndex = 6
            On Error GoTo 0
        Next
    End With
    Set x = Nothing
    
End Sub

excel3

4. Переходим в Книга1.xlsx, на вкладке Разработчик, далее Макросы, Выполнить. И все наши повторяющиеся строки окрасились в желтый цвет.

Если у вас возникли трудности, задавайте вопросы в комментариях.