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

[Hugo121]

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

Sub compare()
    Dim a(), b(), i As Long

    a = [a7:a37].Value    'äė˙ ņåńņą
    b = [b7:b27].Value    'äė˙ ņåńņą
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(b)
            .Item(b(i, 1)) = 0
        Next
        For i = 1 To UBound(a)
            If .exists(a(i, 1)) Then .Item(a(i, 1)) = .Item(a(i, 1)) + 1
        Next
        For i = 1 To UBound(b)
            b(i, 1) = .Item(b(i, 1))
        Next
    End With
    [e7].Resize(UBound(b), 1) = b
End Sub

[SAS888]

Посмотрите еще вариант.
На больших объемах не проверял, но работу с ячейками листа исключил.

[VictorM]

Hugo121, Супер!
Спасибо большое.
так постепенно, я, благодаря Вам и осилю словари
ЗЫ а весы почему-то опять не срабатывают

[VictorM]

SAS888, так быстрее, но не намного.
В любом случае, код в копилку.
Мне еще нужно будет суммы считать, по типу СУММЕСЛИ(), правда там в массиве b будут уникальные значения

[VictorM]

Вот проба файла с суммированием, но пока все мимо.
Здесь данные в массиве b уникальны.

[Hugo121]

Ну для сумм можно сделать аналогичный параллельный словарь.
В одном x+1, в другом x+y.
Затем выгружаем два рядом (ну или делаем типа итогового b, но пошире, заполняем результатами его).
Это если лень городить словарь с массивом в item или привязывать другой массив к словарю (в словаре храним индекс массива, в массиве всё собираем).

[Hugo121]

Если только суммы без количества повторов:

                For i = 1 To UBound(a)
                    If .exists(a(i, 1)) Then .Item(a(i, 1)) = .Item(a(i, 1)) + a(i, 2)
                Next

[VictorM]

Если только суммы без количества повторов:

спасибо, буду пробовать

[Hugo121]

Но на практике возможны случаи суммирования текста - сразу будет ошибка. Т.е. ещё нужно навесить проверку/отсев таких данных. Ну это конечно зависит от данных - если это автоматическая выгрузка, то вполне вероятно будет однотипно и без сюрпризов.

[VictorM]

Да, насчет форматов сумм все нормально.
А вот с макросом.
Внес Ваши изменения, что-то не получается у меня.