arrays - vba 将数组值设置为 NaN

Question

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

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

Answer 1

而不是将您的 Array 声明为 double 只需将其维护为变体

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

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