Страницы: 1
RSS
счёт количества вхождений "заданного значения" в массиве или коллекции, VBA
 
Добрый день всем! :idea:  :)

Судя по тому, что не могу найти что-то внятное в поисковике, видимо я не правильно формулирую вопрос) Прошу помощи
1. Есть arr1 с перечнем уникальных значений.
2. Есть три массива, отобранных из коллекций.
3. Массивы (1 to 30000, 1 to 3) в среднем.
4. Интересует элемент( i, 1 )
Вопрос: Можно ли посчитать без кучи вложенных циклов, какое количество каждого элемента arr1(i,1) находится в остальных трех массивах.

У меня всего один инструмент на вооружении:
Код
For z = LBound(arr1) To UBound(arr1)       '27000 раз
t = 0
    For r = LBound(arr2) To UBound(arr2)    '8000-20000 раз(зависит от массива)
      If arr1(z, 1) = arr2(r, 1) Then
    t = t + 1
    arrResult(z, 1) = t
      End If
    Next r
Next z

И это довольно долго, учитывая что нужно пройти ещё по двум следующим(((

Спасибо!! :)  
Изменено: frowzy - 21.09.2019 03:05:35
 
можно
Код
Application.WorksheetFunction.CountIf
можно PQ - без примера как-то скучно  :cry:
Соблюдение правил форума не освобождает от модераторского произвола
 
frowzy, приведите оформление кода в норму.
Страницы: 1
Наверх