Сравнить два массива и вывести в отдельный столбец кол-во вхождений

[VictorM]

Здравствуйте, уважаемые!
Нужна Ваша помощь.
Собственно задача описана в названии темы, перерыл весь форум, что только не пробовал, но увы.
Нашел код от Hugo, почти то, что нужно, но доделать его - не получилось.

'Макросом -
'1.два диапазона в два массива
'2.создание массива для результатов
'3.один перебор n значений массива в словарь
'4.m проверок массива на наличие в словаре и заполнение данными массива результата
'5.выгрузка результатов (тут нет предварительной очистки диапазона)

Sub compare()
    Dim a(), b(), c(), iLastrow As Long, i As Long, ii As Long

    '1.
    a = [d7:d8638].Value 'для теста
'    With Sheets(1)
'        iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
'        a = Range(.[b1], .Range("A" & iLastrow)).Value
'    End With
b = [ag7:ag6457].Value 'для теста
'    With Sheets(2)
'        iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
'        b = Range(.[b1], .Range("A" & iLastrow)).Value
'    End With
    '2.
    ReDim c(1 To UBound(a), 1 To 3)
    With CreateObject("Scripting.Dictionary")
        '3.
        For i = 1 To UBound(b)
            .Item(b(i, 1)) = i
        Next
        '4.
        For i = 1 To UBound(a)
            If .exists(a(i, 1)) Then 'здесь нужно посчитать кол-во совпадений
            'значений массива b в массиве a
            'и вывести в соседний с массивом b столбец
                ii = ii + 1
                c(ii, 1) = c(ii, 1) + 1
            End If
        Next
    End With
    '5.
        [ah7].Resize(ii, 1) = c
End Sub

Подскажите, пожалуйста, что я делаю не так, чувствую, что где-то рядом, а все никак.
Мне нужно понять, потому как дальше еще нужно будет сделать почти такое же, но только нужно будет по совпадению просуммировать значения в диапазоне [c7:g8638] из столбца "G"
Спасибо.
ЗЫ
Где можно найти доступное описание работы с массивами и словарями/коллекциями?

[Step_UA]

    '2. -
    With CreateObject("Scripting.Dictionary")
        '3.
        For i = 1 To UBound(b)
            .Item(b(i, 1)) = 0
        Next
        '4.
        For i = 1 To UBound(a)
            If .exists(a(i, 1)) Then .Item(a(i, 1)) = .Item(a(i, 1)) + 1
        Next
    '5.
        [ah7]..Resize(.Count) = WorksheetFunction.Transpose(.Items)
    End With

Подключите хотя бы на время в References: Microsoft Scripting Runtime - будут доступны в подсказках методы

With New Dictionary
....

[samsaa]

У меня есть один макрос но он только для сравнения одного или двух диапазонов ячеек. Он может как пометить совпадающие значения указанным цветом, так и установить в соседних столбиках заданное число напротив совпадающих значений. Посмотри может он и подойдет тебе.

[Hugo121]

Виктор, я бы подсказал, но не вполне понял задачу - с примером файла было бы проще.
Если нужно просто подсчитать количество вхождений (даже повторных), то массив с не нужен, достаточно
ii = ii + 1
и в конце показать это число.

[VictorM]

Step_UA, спасибо, за столь быстрый ответ.
Проверил, что-то не то, выдал все повторы =1, хотя я точно знаю, считал СЧЕТЕСЛИ(), что есть повторы. Буду еще смотреть и обязательно воспользуюсь Вашим советом.

samsaa, спасибо за файл. Но на циклах я уже и так сделал, много данных, медленно получается.

[VictorM]

с примером файла было бы проще.

Да, конечно.
Вот пример файла. Сопадения посчитаны СЧЕТЕСЛИ() ) и макросом с изменениями, предложенными Step_UA.
Вроде все так, но видно, что макрос пропустил значения и счет сбился.

[Hugo121]

А если так:

        [f7].Resize(.Count) = WorksheetFunction.Transpose(.keys)
        [g7].Resize(.Count) = WorksheetFunction.Transpose(.Items)

И сразу всё понятно.

[VictorM]

Да, я все понял.
Неправильно сформулирована задача.
В массиве b также могут повторяться значения, но это уже ничего не значит.
Рядом должно быть также выведено кол-во совпадения, как в столбце с формулой.

[SAS888]

Ну, если Вам нравится функция "СЧЕТЕСЛИ", то используйте ее в макросе.
Пример во вложении. Код в модуле "Module2". Макрос "qq".

[VictorM]

SAS888, спасибо.
Функция мне нравится, но на моих объемах (10 000 строк и 6 000 строк) немного тормозит.
Хотя, если ничего не получится со словарями, видимо остановлюсь на таком варианте.