arrays - VBA は配列の空でない要素を数える

Question

Noob の質問: 配列の空でない要素を数えたいですか?

私の試み：

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

Application.CountA(myarray)

CountA は、空でない値をカウントするためのワークシート関数です。

VBA6 にのみ適用され、VBA7 では機能しません。