Excel中无需事件或子程序，用函数修改多单元格的方案咨询

Excel的自定义函数（UDF）有核心限制：它只能返回计算结果到调用它的单元格，不能执行修改其他单元格、调用宏、发送键盘指令这类「副作用操作」——你的三次尝试都因为这个限制失效：

• 调用FireYourMacro：UDF不允许触发会修改工作表的子程序，Evaluate也绕不开这个限制
• SendKeys：UDF运行在Excel的计算上下文里，键盘指令不会生效
• 选择并修改其他单元格：UDF没有权限修改当前调用单元格以外的工作表内容

无需事件/子程序的替代方案 #

1. 用动态数组返回多值（Excel 365/2021+）

把两个函数的结果打包成数组返回，利用Excel的动态数组溢出功能，一次性填充到多个单元格：

Function MyFunction(inputStr As String, inputNum As Double) As Variant
    ' 计算第一个结果（对应原MyFunction的返回值）
    Dim res1 As Variant
    res1 = OtherFunction1(inputStr, inputNum)
    
    ' 计算第二个结果（对应原要写入Q列的OtherFunction2结果）
    Dim res2 As Variant
    ' 这里替换成你需要的参数，比如从调用单元格周边取数
    res2 = OtherFunction2(Application.Caller.Offset(0, -14).Value, _
                         Application.Caller.Offset(0, 8).Value, _
                         Application.Caller.Offset(0, -1).Value, _
                         Application.Caller.Offset(0, 25).Value, 1)
    
    ' 返回包含两个结果的数组，按横向/纵向排列
    MyFunction = Array(res1, res2) ' 横向溢出到右侧单元格
    ' 若要纵向溢出，用 MyFunction = Application.Transpose(Array(res1, res2))
End Function

使用方式：

• 在单元格输入=MyFunction(A1, B1)，结果会自动溢出到右侧相邻单元格（比如D1返回res1，E1返回res2）
• 若要指定单个单元格取结果，用=INDEX(MyFunction(A1,B1),1)取第一个值，=INDEX(MyFunction(A1,B1),2)取第二个值

2. 直接用公式联动替代VBA修改

放弃用UDF修改其他单元格的思路，让两个单元格的公式独立联动：

• 假设原MyFunction的逻辑放在单元格D1：=OtherFunction1(A1, B1)
• 在Q1直接写公式：=OtherFunction2(A1, C1, D1, X1, 1)
  这样当A1/B1变化时，两个公式会自动同步计算，完全不需要VBA干预。

3. 用自定义名称传递计算结果

如果需要复用MyFunction的计算逻辑，可定义一个自定义名称：

1. 打开「公式」选项卡 → 「定义名称」
2. 名称设为MyFuncResult，引用位置填=OtherFunction1(A1,B1)
3. 在Q1写公式：=OtherFunction2(..., MyFuncResult, ...)
   通过名称间接传递计算结果，实现和UDF相同的逻辑复用，且无修改单元格的操作。

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