Синхронизация таблиц

[Hugo121]

Option Explicit

Sub CompareCopy()
    Dim a(), i&, ii&, t$, x As Byte
    With CreateObject("scripting.dictionary")
        With Sheets(1)
            a = Range(.[L7], .Range("A" & .Rows.Count).End(xlUp)).Value
        End With
        For i = 1 To UBound(a)
            t = Join(Application.Index(a, i, 0), "|")
            .Item(t) = 0&
        Next
        With Sheets(2)
            a = Range(.[L7], .Range("A" & .Rows.Count).End(xlUp)).Value
        End With

        ReDim b(1 To UBound(a), 1 To 12)

        For i = 1 To UBound(a)
            t = Join(Application.Index(a, i, 0), "|")
            If Not .exists(t) Then
                .Item(t) = 0&
                ii = ii + 1
                For x = 1 To 12: b(ii, x) = a(i, x): Next
            End If
        Next
    End With

    If ii > 0 Then
        With Sheets(1)
            With .Cells(.Rows.Count, "A").End(xlUp)(2).Resize(ii, 12)
                .Value = b
                .Interior.ColorIndex = 3
            End With
        End With
    End If
End Sub

Всёж нашёл, что изменить в прежних кодах - Application.Index вставил
Хотя говорят, что циклом слить быстрее было бы... Можно бы на 6000 строк замерить - да нету столько

P.S. Померил - 1000 прогонов каждого кода:
t = Join(Application.Index(a, i, 0), "|"): 7,28125
t = "": For x = 1 To 12: t = t & "|" & a(i, x): Next: 3,46875