vba 将数组值设置为 NaN

Question

我使用双数组，其中部分填充了数据，然后打印到 n excel 表中的范围内。

问题是，默认情况下所有值都是 0。我希望它们是 NaN（不是数字），在单元格中表示为 NV()。如果可能，双精度数组应自动转换为 NV()。

Answer 1

不要将 Array 声明为 double，只需将其维护为变体

然后您可以使用CVErr(xlErrNA) 使用#NA 初始化数组

Sub MyInitializer()
Dim Arr(10)

'Initialize all values to #NA
For i = 0 To UBound(Arr)
Arr(i) = CVErr(xlErrNA)
Next

'Do something with Arr values
Arr(1) = 2.5

Dim Destination As Range
Set Destination = Range("K1")
Set Destination = Destination.Resize(UBound(Arr), 1)
Destination.Value = Application.Transpose(Arr)

End Sub