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

[Step_UA]

Для макроса compare2:

    a = [a7:b37].Value    'ae? nanna
    b = [c7:c26].Value    'ae? nanna

Для макроса qq:

Sub qq()
    Dim i As Long, x As Range, y As Range, z As Range, a()
    Application.ScreenUpdating = False
    Set x = [a7:a37]: Set y = [c7:c26]: Set z = [b7:b37]
    ReDim a(1 To y.Count, 1 To 1)
    For i = 1 To y.Count
        a(i, 1) = Application.SumIf(x, y.Cells(i, 1), z)
    Next
    [f7].Resize(UBound(a, 1)).Value = a
    Application.ScreenUpdating = True
End Sub

[VictorM]

Сообщение от Step_UA

Для макроса compare2:

    a = [a7:b37].Value    'ae? nanna
    b = [c7:c26].Value    'ae? nanna

Блин, точно, спасибо.
А ведь я так пробовал, но что-то не срабатывало дальше.
Теперь все отлично работает и решилась куча проблем.
И с макросом qq теперь понятно, где я косячил.
Всем спасибо!!!

[Hugo121]

Вероятно можно чуть ускориться в qq вот тут:

    Dim yy()
    yy = y.Value
    For i = 1 To y.Count
        a(i, 1) = Application.SumIf(x, yy(i, 1), z)
    Next

Померьте на большом количестве данных - на сколько будет быстрее?

[VictorM]

Вероятно можно чуть ускориться в qq вот тут:

Обязательно все проверю и отпишусь о результатах.
Дело в том, что у меня все, о чем мы тут говорили, сделано и все работает, НО все на циклах и т.д.
Соответственно скорость обработки никакая.
Теперь я хочу внедрить новые коды и обязательно отпишусь о сравнении скорости обработки.
Еще раз спасибо всем за помощь и науку!

[VictorM]

О скорости обработки на реальных данных.
Пока только о суммировании.
Код compare2 - 0,172с
код qq - 20,9c
код qq с изменениями из поста №23 - 21,34с

[Hugo121]

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

[VictorM]

А вот теперь суммарная скорость.
Мой прежний вариант с циклами, Search, Find и т.п. - время обновления данных = 4мин.30сек.
Новый вариант, с кодами из этой темы с применением "Scripting.Dictionary" = 1мин.30сек.
Так что эффект ощутимый!
Знаю, где можно "добить" и эту минуту, но пока не получается.
Есть у меня "куча" данных которые "вытягиваются" ВПР(), вот тут и тормоза.
Попытался переделать на массивы, получилось, но только на основе кода от SAS88, тот-же ВПР() и скорость работы этого кода, практически не отличается от того, что у меня сейчас работает.
А вот код от Hugo121...
Попробовал переделать код compare2, вроде работает, но подставляются последние по совпадению данные, что логично, для работы этого кода.
А мне нужно, чтобы как ВПР() - брал первые встретившиеся совпадения и выводил соответствующие данные. Все дальнейшие совпадения - просто игнорировать.
А вот что и как прописать в коде макроса compare2 для этого, не знаю.
Пробовал по всякому, не то.
Подскажите пожалуйста, как заставить макрос игнорировать все дальнейшие совпадения?
Спасибо.

[Hugo121]

Всё проще.

Sub compare3v2()    'ВПР()
    Dim a(), b(), i As Long

    a = [a7:b37].Value
    b = [c7:c26].Value
    With CreateObject("Scripting.Dictionary")
        'запоминаем в словаре перввые пары
        For i = 1 To UBound(a)
            If Not .exists(a(i, 1)) Then .Item(a(i, 1)) = a(i, 2)
        Next
        'извлекаем запомненное
        For i = 1 To UBound(b)
            b(i, 1) = .Item(b(i, 1))
        Next
    End With
    [f7].Resize(UBound(b), 1) = b
End Sub

[SAS888]

Еще вариант (маарос "qq4").

[VictorM]

Hugo121, SAS888, спасибо.

Всё проще.

Да уж Учиться мне еще и учиться.
Благодаря только одной этой теме у меня теперь есть практически универсальный набор кодов на основе которых и буду осваивать все "премудрости".