Question

vba如何计算满足条件的数组元素的个数

Answer 1

1. '假设你已经有了一个数组：arr1

2. '用字典实现单条件数组元素计数

3.         Set dicN = CreateObject("scripting.dictionary")

4.         For j = 1 To UBound(arr1, 1)

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

6.                 dicN.Add arr1(j, 2), 1

7.             Else

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

9.             End If

10.         Next

11. '输出计数,i 为变量

12. msgbox dicN(arr1(i, 2))

Answer 2

第一维 2to6 ，就是2，3，4，5，6，

一共是五个 第二维 4，就是1，2，3，4，一共四

个 所以二维数级元素一共是5*4=20个 由于

不清楚你所用的编程语言，看样子像是vb，

所以数级下标按默认按1开始。