VBA如何在不返回原函数的情况下实现函数间参数传递？

当然可以实现！针对你想要的——让f1()生成参数后调用F2()直接终止，不再返回f1()，同时F2()完成单元格公式替换的需求，我整理了两种实用方案，还修复了原示例里的几个潜在问题：

方案1：模块级全局变量传递（贴近你的原始思路） #

把需要共享的变量声明在模块最顶部（所有函数/子过程之外），这样f1()和F2()都能直接访问这些变量：

' 模块顶部声明全局变量，所有本模块的过程都能调用
Public jGetFormula As String
Public R1 As Long, C1 As Long

Sub F2(Optional endAll As Boolean = False)
    ' 替换目标单元格的公式
    Cells(R1, C1).Formula = jGetFormula
    If endAll Then End
End Sub

Function f1() As Variant
    ' 生成目标公式字符串
    jGetFormula = "=A1*10^3*A2/148"
    ' 用Application.Caller获取调用UDF的单元格，比Selection更准确
    R1 = Application.Caller.Row
    C1 = Application.Caller.Column
    
    ' 这里要注意：Excel的工作表函数（UDF）默认不能直接修改单元格
    ' 所以用Application.OnTime延迟执行F2，绕开这个限制
    Application.OnTime Now, "F2(True)"
    
    ' 返回空值，方便后续替换成目标公式
    f1 = ""
End Function

关键说明： #

• 别用Selection.Row/Column！Selection指的是你当前选中的单元格，不一定是输入=f1()的那个单元格，Application.Caller才是直接指向调用这个UDF的单元格，更准确。
• UDF的限制：Excel不允许工作表函数直接修改单元格内容，Application.OnTime是个巧妙的绕开方法——它让F2()在f1()执行完毕后再运行，避开UDF的权限限制。

方案2：直接传递参数（更符合模块化编程） #

如果你不想用全局变量（避免变量污染），可以把所有需要的参数直接传给F2()，这样代码的独立性更强：

Sub F2(formulaStr As String, targetRow As Long, targetCol As Long, Optional endAll As Boolean = False)
    Cells(targetRow, targetCol).Formula = formulaStr
    If endAll Then End
End Sub

Function f1() As Variant
    Dim targetFormula As String
    Dim cellRow As Long, cellCol As Long
    
    targetFormula = "=A1*10^3*A2/148"
    cellRow = Application.Caller.Row
    cellCol = Application.Caller.Column
    
    ' 用OnTime传递参数时，要注意字符串参数的引号转义
    Application.OnTime Now, "'F2 """ & targetFormula & """, " & cellRow & ", " & cellCol & ", True'"
    
    f1 = ""
End Function

为什么参数要这么写？ #

Application.OnTime的第二个参数是字符串形式的过程名+参数，所以字符串类型的参数需要用三重引号转义（"""），确保传递的公式字符串能被正确解析。

实际使用效果 #

当你在任意单元格输入=f1()后，单元格会先显示空值，紧接着就会被替换成你想要的=A1*10^3*A2/148公式，整个过程f1()调用F2()后直接终止，不会返回原函数。

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