Excel VBA中威布尔分布数组Index返回值无法参与后续计算如何解决

• 当xr传入为多单元格区域/数组参数时，Application.Weibull_Dist会返回一维数组类型的计算结果。
• 你调用Application.Index时传入了第三个参数0，该参数的作用是返回指定行的整行数据，因此即使仅取第5行，返回结果仍然是单元素的一维数组，不是直接的数值类型。
• good函数看起来运行正常，是因为Excel单元格接收变体类型的单元素数组时，会隐式自动提取其中的数值，不会触发报错。但nogood函数中直接对数组进行*1运算，VBA本身不支持数组和标量直接运算，因此会抛出类型不匹配错误。

以下两种方案二选一即可：

1. 调整Index函数的调用参数：对于一维数组取第N个元素不需要传入第三个列参数，直接写Application.Index(数组, 5)就会直接返回数值，而非数组。
   修改后的代码示例：

Function nogood(xr, shape, scaler)
    n = Application.Index(Application.Weibull_Dist(xr, shape, scaler * 100, 0), 5) * 1
    nogood = n
End Function

2. 显式提取单元素数组中的值：在Index返回结果后加(1)，手动提取数组的第一个元素再做运算。
   修改后的代码示例：

Function nogood(xr, shape, scaler)
    n = Application.Index(Application.Weibull_Dist(xr, shape, scaler * 100, 0), 5, 0)(1) * 1
    nogood = n
End Function

可选优化：你可以给函数参数和返回值增加明确的类型声明，避免变体类型带来的隐式转换问题，进一步提高代码稳定性。

内容的提问来源于stack exchange，提问作者Luitpold Wienerle