VBA | 统计数组某元素出现的次数，适用于一维、二维数组

很简单的需求，但是中文网络上基本都是循环的方法，经过查找下面的方法很有效。为了方便用户的使用，进行了如下的整改。

 

Sub Statistics_Number_of_occurrences_test()
MyArray = Array("1", 23, 3, "1")
MsgBox Application.count(Application.Match(MyArray, Array("1"), 0)) '统计字符串"1"的出现次数，返回2
End Sub

 

为了便于使用，写成函数，用户可以调用该函数 Statistics_Number_of_occurrences(s, arr) 直接使用。

 

Function Statistics_Number_of_occurrences(s As Variant, arr As Variant) As Integer
    '------------适用于一维数组、二维数组----------
    '------------博客园：IssacNew------------------
    '----https://www.cnblogs.com/issacnew/---------
    Statistics_Number_of_occurrences = Application.count(Application.Match(arr, Array(s), 0))
End Function

 

'------使用例子-----
Sub test()
    Dim s, arr1, arr2
    s = 1
    arr1 = Array(1, 2, 3, 3, 2, 1) '一维数组
    arr2 = Array(Array(1, 2, 3, 1, 2, 1), Array(1, 2, 3, 3, 2, 1))
    MsgBox Statistics_Number_of_occurrences(s, arr1) '一维数组，统计1出现的个数，返回3
    MsgBox Statistics_Number_of_occurrences(s, arr2) '二维数组，统计1出现的个数，返回5
End Sub

 

参考资料：

01. https://www.mrexcel.com/board/threads/countif-for-vba-array-without-a-loop.739653/#post3635486

02. https://stackoverflow.com/questions/45367671/vba-array-countif