Как сравнить две таблицы в excel с помощью vba?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

Sub Сравнить_таблицы()

Dim лист1 As Worksheet
Dim лист2 As Worksheet
Dim отчет As Worksheet
Dim i As Long, j As Long, k As Long
Dim строка As String

Set лист1 = Worksheets("Таблица1")
Set лист2 = Worksheets("Таблица2")
Set отчет = Worksheets.Add

'Заголовки отчета
отчет.Cells(1, 1) = "Различия в таблицах"
отчет.Cells(2, 1) = "Ячейка"
отчет.Cells(2, 2) = "Значение в Таблице1"
отчет.Cells(2, 3) = "Значение в Таблице2"

k = 3 'Строка, с которой начинаются записи в отчете

'Сравнение значений ячеек
For i = 1 To лист1.UsedRange.Rows.Count
    For j = 1 To лист1.UsedRange.Columns.Count
        If лист1.Cells(i, j) <> лист2.Cells(i, j) Then
            строка = "A" & k
            отчет.Range(строка).Value = "Ячейка " & лист1.Cells(i, j).Address & " отличается"
            отчет.Range("B" & k).Value = лист1.Cells(i, j).Value
            отчет.Range("C" & k).Value = лист2.Cells(i, j).Value
            k = k + 1
        End If
    Next j
Next i

'Форматирование отчета
With отчет.Range("A1:C" & k - 1)
    .Borders.LineStyle = xlContinuous
    .Columns("B:C").HorizontalAlignment = xlLeft
    .Columns("A").HorizontalAlignment = xlRight
    .EntireColumn.AutoFit
End With

End Sub