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

Question

如题所述

Answer 1

'假设你已经有了一个数组：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))

Answer 2

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

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

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

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

所以数级下标按默认按1开始。本回答被提问者和网友采纳