vba如何計算滿足條件的數組元素的個數

'假設妳已經有了壹個數組：arr1

'用字典實現單條件數組元素計數

Set dicN = CreateObject("scripting.dictionary")

For j = 1 To UBound(arr1, 1)

If Not dicN.exists(arr1(j, 2)) Then

dicN.Add arr1(j, 2), 1

Else

dicN(arr1(j, 2)) = dicN(arr1(j, 2)) + 1

End If

Next

'輸出計數,i 為變量

msgbox dicN(arr1(i, 2))