arrays - VBA计算数组的非空元素

Question

菜鸟问题:我想计算数组的非空元素？

我的尝试:

Dim Arr(1 To 15) As Double
'populating some of the elements of Arr
'...

Dim nonEmptyElements As Integer, i As Integer
nonEmptyElements = 0: i = 0
For i = LBound(Arr) To UBound(Arr)
    If Not Arr(i) = "" Then
        nonEmptyElements = nonEmptyElements + 1
    End If
Next

使用此程序，我收到错误:If 语句上的类型不匹配。

如果尝试将 if 条件更改为 If Not IsEmpty(Arr(i)) Then我得到 nonEmptyElements = 15因此。

关于如何完成代码的任何建议？

Answer 1

    Dim Arr(0 To 15) As Double
    Arr(6) = 1.2
    Arr(3) = 7
    Dim nonEmptyElements As Integer, i As Integer
    nonEmptyElements = 0 : i = 0
    For i = LBound(Arr) To UBound(Arr)
        If Not Arr(i) = 0 Then
            nonEmptyElements = nonEmptyElements + 1
        End If
    Next

默认情况下， double 值为 0.0，因此请检查是否:

Arr(i) = 0