excel - Variant/double 配列値で If/then 条件を使用する方法は?

Question

関数によって生成された配列の各値を調べて、値が <> 0 の場合はセルに配置しようとしていますが、その段階で型の不一致エラーが常に発生します。コードは、書き込まれたとおりにセル内に値を配置しますが、セットから 0 の値をスクラブして「-」に置き換えたいと考えています。

値0(1～30)

Do While (Now - 1) > fdate0
    looop0 = 1
    Start = DateAdd("n", 450, PT.Range("P2").Value)
    Endd = DateAdd("d", 1, Start)
    E0.Cells((counter0), 1).Value = fdate0

    For looop0 = 1 To 30

        vals0(looop0) = Application.Run("PIAdvCalcVal", E0Tags(looop0), Start, Endd, "average (time-weighted)", "time-weighted", "0", "1", "0")

       ' If Vals0(looop0) <> 0 Then
            E0.Cells(counter0, (looop0 + 1)).Value = vals0(looop0)
        'Else
         '   E0.Cells(counter0, (looop0 + 1)).Value = "-"
        'End If

    Next looop0


    counter0 = counter0 + 1
    PT.Range("P2").Value = (PT.Range("P2").Value + 1)
    fdate0 = PT.Range("P2").Value

Loop

for ループを数回繰り返したローカル ウィンドウを次に示します。