Excel自定义VBA函数wlookup返回#value!错误排查求助

核心错误原因 #

你的代码存在两个关键问题，直接引发#VALUE!错误：

• 参数类型不匹配：函数定义的第一个参数Name As String要求传入字符串，但你在公式里传的WW60_STRI是命名区域对象，类型不兼容直接触发错误。
• 逻辑判断完全不成立：Select Case Name里的Case WW60_STRI是拿字符串参数和Range对象做比较，永远不会匹配，会直接进入Case Else分支；同时变量名与命名区域重名，容易造成混淆。

修正后的代码 #

Public Function wlookup(rng As Range, Retrieve As String)
    Select Case Retrieve
        Case "maxdepth"
            ' 处理空区域或非数值区域的情况，避免崩溃
            If Not rng Is Nothing And rng.Columns(1).Cells.Count > 0 Then
                On Error Resume Next
                wlookup = Application.WorksheetFunction.Max(rng.Columns(1))
                ' 如果区域全是文本，返回标准错误值
                If Err.Number <> 0 Then wlookup = CVErr(xlErrValue)
                On Error GoTo 0
            Else
                wlookup = CVErr(xlErrNA)
            End If
        Case Else
            wlookup = CVErr(xlErrValue)
    End Select
End Function

使用方法 #

在单元格中直接调用：

=wlookup(WW60_STRI,"maxdepth")

优化说明 #

• 将第一个参数类型改为Range，直接接收命名区域对象，解决类型不匹配问题
• 移除多余的命名区域判断，直接根据Retrieve参数执行对应逻辑
• 增加错误处理，遇到空区域或非数值区域时返回Excel标准错误值，更贴合原生函数的行为规范

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