VBA公共函数报错求助：查找行号时遇赋值错误与栈溢出问题

错误原因分析 #

1. 初始赋值错误：你写的Row_Index_CellID(ws, CellID) = FindRowNumber是错误的函数返回值赋值方式，这种写法会被当成递归调用函数本身，触发第一个错误提示。
2. 栈溢出错误：改成Variant返回类型后，递归调用没有终止条件，函数会无限调用自己，导致栈空间耗尽，出现“Out of stack space”错误。

修正后的代码 #

Public Function Row_Index_CellID(ws As Worksheet, CellID As String) As Long
    Dim foundCell As Range
    
    ' 在A列查找指定标识符，精确匹配
    Set foundCell = ws.Range("A:A").Find(What:=CellID, _
                                        LookIn:=xlValues, _
                                        LookAt:=xlWhole, _
                                        MatchCase:=False)
    
    ' 根据查找结果返回行号，找不到则返回0（可根据需求修改）
    If Not foundCell Is Nothing Then
        Row_Index_CellID = foundCell.Row - 2 ' 保留你原代码的行号偏移逻辑
    Else
        Row_Index_CellID = 0 ' 找不到时返回0，也可以改为Row_Index_CellID = CVErr(xlErrNA)用于工作表函数
    End If
End Function

关键修正点 #

• 正确赋值返回值：直接使用Row_Index_CellID = 结果值，不需要带参数调用函数。
• 移除不必要操作：删除ws.Activate，VBA的Find方法不需要激活工作表，直接通过工作表对象操作更高效稳定。
• 统一查找逻辑：只用一次Find操作，避免重复查找，同时明确指定查找范围为A列（ws.Range("A:A")），缩小查找范围提升效率。
• 添加错误处理：判断查找结果是否为Nothing，避免找不到时触发“对象变量或With块变量未设置”的运行时错误。
• 恢复返回类型：行号是整数类型，保持返回类型为Long即可，无需改成Variant。

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