问题背景 #

你在Mac版Excel（15.41版本）和High Sierra系统下写了一个findCell函数，本来想返回匹配列名的单元格对象，结果在单元格里调用时一直返回#VALUE!，但改成Sub用MsgBox输出就正常。

问题根源 #

这主要有几个关键原因：

1. UDF的对象返回规则：自定义函数（UDF）在Excel单元格中运行时，返回对象必须用Set关键字，而且要明确指定返回类型为Range，否则Excel无法正确解析对象返回值。
2. 未处理查找失败的情况：如果Find方法找不到目标列名，cell对象会变成Nothing，这时候直接取cell.Column会触发运行时错误，导致UDF返回#VALUE!。
3. Excel对UDF的限制：相比Sub过程，单元格中的UDF有更严格的错误处理要求，任何未捕获的错误都会直接返回#VALUE!。

修复后的代码 #

我给你调整了函数，既实现返回单元格对象的需求，又处理了各种可能出错的场景：

Function findCell(headerName As String, sheetName As String, rowNum As Long) As Range
    Dim targetSheet As Worksheet
    Dim foundCell As Range
    
    ' 先检查指定工作表是否存在，避免因表名写错报错
    On Error Resume Next
    Set targetSheet = ThisWorkbook.Sheets(sheetName)
    On Error GoTo 0
    
    If targetSheet Is Nothing Then
        Set findCell = Nothing
        Exit Function
    End If
    
    ' 执行精确查找
    Set foundCell = targetSheet.Rows(rowNum).Find( _
        What:=headerName, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        SearchOrder:=xlRows, _
        SearchDirection:=xlNext, _
        MatchCase:=True _
    )
    
    ' 返回找到的单元格对象（找不到时返回Nothing）
    Set findCell = foundCell
End Function

关键修改点说明 #

• 明确类型声明：给参数和返回值都指定了类型（String、Long、Range），避免VBA变体类型带来的隐式错误。
• 增加工作表检查：防止因为工作表名称输入错误导致的崩溃。
• 正确返回对象：用Set关键字返回Range对象，符合UDF的对象返回规则。
• 容错处理：找不到目标时返回Nothing，不会触发错误导致#VALUE!。

使用方法 #

• 如果想直接获取单元格的值，在单元格里输入：=findCell("ID","Sheet1",1)
• 如果要获取列号，结合COLUMN函数：=COLUMN(findCell("Price","DataSheet",2))
• 如果要获取行号，用ROW函数：=ROW(findCell("Name","Sheet1",1))

这样调整后，函数就能正常返回单元格对象，不会再出现#VALUE!错误啦。

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