如何在VBA中为数组调用Excel内置正态分布函数？报错求助

你遇到的核心问题是多单元格Range作为参数时，WorksheetFunction返回的二维数组无法直接正确赋值给Variant变量，同时混淆了值数组和对象的赋值方式（Set仅用于对象赋值）。以下是修正方案：

修正后的函数代码 #

Function NormDistr(r As Range, average As Double, std As Double) As Variant
    ' 处理标准差为0的异常，避免无效计算
    If std = 0 Then
        NormDistr = CVErr(xlErrNum)
        Exit Function
    End If
    
    ' 使用Application调用函数，返回值数组直接赋值给Variant
    NormDistr = Application.Norm_Dist(r.Value, average, std, False)
End Function

关键说明 #

• 替换WorksheetFunction为Application：前者在出错时会抛出VBA运行时错误，后者会返回Excel标准错误值（如#NUM!），更适合作为工作表自定义函数使用。
• 传递r.Value而非r：明确传递Range的数值内容，避免隐式类型转换可能导致的类型不匹配问题。
• 无需使用Set：函数返回的是值类型的二维数组，不是对象，直接赋值给Variant变量即可。
• 异常处理：增加标准差为0的判断，返回错误值提示用户输入无效。

使用方式 #

在工作表单元格中输入公式，例如：
=NormDistr(A1:A10, 5, 2)
即可得到A1:A10区域每个数值对应的正态分布概率密度值，结果会自动填充为数组形式。

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