VBA自定义函数FINDROW无法正确返回行号问题求助

我编写了一个名为FINDROW的VBA自定义函数，预期功能是接收矩阵形式的Range区域和一个值，返回该值所在的行号。但实际调用时出现异常：比如调用FINDROW(选中区域,4)返回4，调用FINDROW(选中区域,7)返回7，直接返回了传入的参数值。已确认函数可正常执行（如设置FINDROW="hello"能正确返回该字符串），但迭代逻辑不符合预期，代码如下：

Function FINDROW(MAT As range, value)
Dim i As Integer

i = 1
For Each valu In MAT
        If valu = value Then
            If (i Mod 10) = 0 Then
                FINDROW = 10
                Exit Function
            Else
                FINDROW = i Mod 10
                Exit Function
            End If
        End If
i = i + 1
Next valu

FINDROW = "Not Found"
End Function

问题原因拆解 #

1. 变量命名冲突（核心触发点） #

VBA是不区分大小写的语言，循环变量valu和函数参数value会被识别为同一个变量，直接导致逻辑混乱：

• For Each valu In MAT实际是将区域中的每个单元格对象赋值给参数value
• If valu = value等价于If value = value，条件永远为真，只要区域存在单元格，就会触发后续返回逻辑

2. 逻辑与预期目标完全不符 #

函数当前返回的是单元格在区域内的位置序号的模10结果（模0时返回10），而非你描述的「该值所在的工作表行号」。比如区域是B3:B12，其中B5（工作表行号5）是目标值，此时i会计数到3（区域内的第3个单元格），返回3，和真实行号毫无关系。

3. 比较逻辑不严谨 #

直接用valu = value时，valu是Range对象，VBA会默认取其.Value属性，但如果单元格是错误值（如#N/A），会触发运行时错误，建议明确写valu.Value = value进行比较。

4. 「返回参数值」是巧合 #

如果你的测试区域中，第N个单元格的值恰好等于N（比如第4个单元格值为4，第7个为7），那么传入参数4时，循环到第4个单元格，i=4，返回4 Mod10=4，看起来像是返回了参数值，本质是测试数据的巧合，而非逻辑正确。

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