vba将数组值设置为NaN

Question

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

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

Answer 1

不是将数组声明为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