Excel VBA自定义findLine函数无法向主过程返回值的问题排查

你的自定义函数无法返回值的核心原因是违反了VBA Function过程的返回值规则：
VBA中自定义函数要向外返回结果，必须把最终结果直接赋值给「函数名本身」，你只是把行号存到了函数内部的局部变量Output里，从未将该值绑定到函数返回通道，因此函数执行结束后默认返回空值，主过程自然无法拿到正确结果。
函数内部的MsgBox Output能弹出正确行号，仅能证明内部局部变量Output存储的数值正确，和函数对外返回值没有关联。

另外你的现有代码还存在2个潜在风险：

• 循环无终止边界：如果目标工作表中不存在同时满足B列值为found、C列值为you的行，Do循环会无限自增行号，最终触发溢出错误卡死程序
• 变量未显式声明类型：行号数值如果超过Integer类型的上限（32767）会触发溢出错误，存储行号建议使用Long类型

1. 核心修正：找到匹配行号后，直接将值赋值给函数名findLine，作为函数返回值
2. 增加遍历边界：先获取目标列最后一行有数据的行号，遍历到边界仍未找到匹配值时返回标记值（比如0），避免死循环
3. 规范变量类型：存储行号的变量统一使用Long类型，避免大数溢出

修改后完整代码 #

自定义函数部分 #

' 明确指定函数返回值类型为Long
Function findLine() As Long
    Dim Line As Long
    Const startLine As Long = 4
    Const mysh As String = "data"
    Dim lastRow As Long
    
    ' 获取B列最后一个有数据的行号，作为遍历终点
    lastRow = Sheets(mysh).Cells(Sheets(mysh).Rows.Count, "B").End(xlUp).Row
    
    ' 从起始行遍历到最后一行
    For Line = startLine To lastRow
        If Sheets(mysh).Range("B" & Line).Value = "found" And Sheets(mysh).Range("C" & Line).Value = "you" Then
            ' 核心：将匹配到的行号赋值给函数名，完成返回值绑定
            findLine = Line
            MsgBox "函数内部获取行号：" & findLine
            ' 找到结果后直接退出函数，避免多余遍历
            Exit Function
        End If
    Next Line
    
    ' 遍历完未找到匹配值，返回0作为标记
    findLine = 0
    MsgBox "未找到符合条件的行"
End Function

主过程调用部分 #

Sub MainTest()
    Dim myline As Long
    myline = findLine()
    ' 对返回值做判断，避免未找到时后续逻辑出错
    If myline <> 0 Then
        MsgBox "主过程接收到的行号：" & myline
    End If
End Sub

如果你想保留原来的Do循环写法，只需要在原代码Output = Line下面加一行findLine = Output即可正常返回，但仍然建议补上循环终止边界，避免死循环风险。

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