Поиск несоответствий с заливкой цветом

[MaxxVer]

Добрый день, уважаемые эксперты!
Хочу оптимизировать код – написал его на циклах, но работает долго.., помогите написать на словаре (или другие варианты). К сожалению пока словарь не смог осилить.( Во вложении пример. Принцип работы д.б. такой: макрос ищет показатель из Листа 1 в Листе 2 (столбец 2) и найдя сравнивает данные по всей строке, когда находит несоответствие, делает заливку ячейки красным (на Листе 1). Столбцы в обоих листах соответствуют друг другу. Несоответствия которые должны быть закрашены выделил толстой внешней границей в нескольких ячейках. Можно без примера пояснить, «на пальцах» так сказать…

[Hugo121]

Код писать некогда, но про словарь на словах:
1 для скорости берём данные второго листа в массив.
2 цикл по массиву (2 вложенных), собираем ключи "Показатель 1|Данные 1" и т.д., каждый заносим в словарь, каждому в Item заначение этой пары (для "Показатель 1|Данные 1" это 5, далее для "Показатель 1|Данные 2" будет 78 и т.д.).
3 п.1 по первому листу.
4 п.2 по массиву (кстати можно использовать одну переменную/массив - сэкономите память), но не заносим в словарь, а проверяем уже занесённое. Если отличается - красим на листе, если нет вообще - чешем репу...

Если данных много - может не хватить памяти, тогда придётся как-то делить данные на части.

P.S. Вот написал:

Option Explicit

Sub tt()
    Dim a(), i&, ii&, t$

    With CreateObject("Scripting.Dictionary"): .comparemode = 1
        a = Sheets(2).[b6].CurrentRegion.Value
        For i = 2 To UBound(a)
            For ii = 2 To UBound(a, 2)
                .Item(a(i, 1) & "|" & a(1, ii)) = a(i, ii)
            Next
        Next
        a = Sheets(1).[b6].CurrentRegion.Value
        For i = 2 To UBound(a)
            For ii = 2 To UBound(a, 2)
                t = a(i, 1) & "|" & a(1, ii)
                If .exists(t) Then
                    If .Item(t) <> a(i, ii) Then Sheets(1).[b6].CurrentRegion.Cells(i, ii).Interior.Color = vbRed
                Else
                    MsgBox "Нет пары " & t
                End If
            Next
        Next
    End With

End Sub

Хотя думаю вместо сообщения лучше просто закрасить:

Sheets(1).[b6].CurrentRegion.Cells(i, ii).Interior.Color = vbRed

Ну в общем тут чешем репу...

[MaxxVer]

Спасибо, наглядно, сейчас буду изучать.

[Hugo121]

Хотя если соответствие заголовков двух листов полное - то тут словарь и не нужен, достаточно идти циклом по любому диапазону/массиву и смотреть соответствие аналогичных элементов в обоих массивах. Быстрее конечно идти и смотреть в массивах.
Если же есть частично сдвиги/пропуски критериев (в шапках) - то словарь то что нужно.

[MaxxVer]

Ага, понял, словарь будет универсальнее, на нем и остановлюсь, всё получилось, еще раз спасибо!