函数：统计数组中特定值个数（一维二维数组均支持）

cidanji

【函数作用】
统计数组中某元素个数

【参数】
Srch —— 查找值（任意类型）
arr   —— 被统计数组

【特点】
1、一维、二维均可，精确匹配，返回Integer值
2、可多个值同时统计（一参应用：array(值1,值2……)）
3、可仅统计二维数组某列（二参应用：Application.Index(arr, , 列号)）
4、数字可分文本型和数值型统计
5、查找不到返回0值，不会像很多匹配类函数踩报错坑

【缺点】
因为核心函数使用的是Match，有些注意点：
1、查找值含字母时，字母不分大小写，如："aa是"等同"AA是"
2、匹配日期时仅支持用"yyyy-m-d"格式文本，否则匹配不到
(如果你有好的方法也可以去改良它)

1. Function 数组元素统计(Srch As Variant, arr As Variant) As Integer
   
2.     数组元素统计 = Application.Count(Application.Match(arr, Array(Srch), 0))
   
3. End Function

复制代码