Vba как найти количество одинаковых элементов в массиве?

Предыдущий
вопрос Следующий
вопрос

Для подсчета количества одинаковых элементов в массиве в VBA, можно использовать следующий код:

Sub CountDuplicatesInArray()
Dim arr() As Variant
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
' Заполнение массива данными
arr = Array(1, 2, 3, 4, 1, 2, 3, 4, 1)
' Подсчет количества каждого элемента в массиве
For i = LBound(arr) To UBound(arr)
If dict.Exists(arr(i)) Then
dict(arr(i)) = dict(arr(i)) + 1
Else
dict.Add arr(i), 1
End If
Next i
' Вывод результатов подсчета
For Each key In dict.Keys
Debug.Print "Элемент " & key & " встречается " & dict(key) & " раз"
Next key
End Sub

В данном примере создается массив arr с элементами и подсчитывается количество каждого элемента при помощи объекта Scripting.Dictionary. Результат выводится в окно вывода (Debug.Print) с указанием элемента и количества его повторений в массиве.