Excel自定义MY_EVAL函数调用INDEX+ROW时行号异常问题

你的自定义函数MY_EVAL直接使用Evaluate(ref)时，Evaluate是在Excel应用程序的全局上下文中执行的，而非以调用函数的单元格（C1/C2）为基准。

当C1和C2同时调用MY_EVAL(B3)时，B3中的ROW()函数不会自动关联到调用单元格的行号——默认的Evaluate没有绑定调用单元格的上下文，在批量计算场景下，ROW()会返回固定值（此处为C1的行号1），导致两个单元格都返回A1的"TOP"。

单独调用时结果正常，是因为此时计算上下文仅针对单个单元格，ROW()能取到当前调用单元格的行号。

修改MY_EVAL函数，通过Application.Caller获取调用函数的单元格，基于该单元格的上下文执行公式计算，确保ROW()这类相对引用函数能正确关联到调用单元格的行：

Function MY_EVAL(ref As String) As Variant
    Dim callerCell As Range
    Set callerCell = Application.Caller
    ' 将公式中的ROW()替换为调用单元格的行号
    Dim adjustedFormula As String
    adjustedFormula = Replace(ref, "ROW()", CStr(callerCell.Row))
    ' 基于调用单元格所在工作表执行计算
    MY_EVAL = callerCell.Parent.Evaluate(adjustedFormula)
End Function

或者更通用的实现方式，通过绑定调用单元格的行引用，让ROW()基于调用单元格计算：

Function MY_EVAL(ref As String) As Variant
    Dim callerCell As Range
    Set callerCell = Application.Caller
    ' 替换ROW()为针对调用单元格的行引用
    MY_EVAL = callerCell.Parent.Evaluate(Replace(ref, "ROW()", "ROW(" & callerCell.Address & ")"))
End Function

修改后，C1调用时ROW()会取C1的行号1，返回A1的"TOP"；C2调用时ROW()取C2的行号2，返回A2的"BOTTOM"，完全符合预期。

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