Excel如何批量调用Sheet1的复杂计算逻辑填充Sheet2结果？

最简实现方式：VBA批量处理 #

直接用VBA写批量处理宏是最高效的方案，操作步骤如下：

1. 假设Sheet2中，待计算的数值放在A2:A100（第一行为表头），结果要写入B2:B100
2. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub CalculateInvestReturns()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow As Long, i As Long
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    lastRow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lastRow
        ' 将Sheet2当前行数值传入Sheet1的A1
        ws1.Range("A1").Value = ws2.Cells(i, "A").Value
        ' 强制触发计算（适配复杂运算场景）
        Application.Calculate
        ' 将结果写入Sheet2对应行的B列
        ws2.Cells(i, "B").Value = ws1.Range("C10").Value
    Next i
End Sub

3. 返回Excel界面，按Alt+F8运行该宏，即可自动批量生成所有结果。

如果需要实时更新（修改Sheet2的A列数值时自动出结果），可以给Sheet2添加Worksheet_Change事件：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        ' 仅处理A列非表头的单个单元格修改
        If Target.Cells.Count = 1 And Target.Row > 1 Then
            ThisWorkbook.Sheets("Sheet1").Range("A1").Value = Target.Value
            Application.Calculate
            Target.Offset(0, 1).Value = ThisWorkbook.Sheets("Sheet1").Range("C10").Value
        End If
    End If
End Sub

把这段代码粘贴到Sheet2的代码窗口中，之后修改Sheet2的A列数值，对应B列会自动生成结果。

是否可以用递归函数实现？ #

完全没必要，且常规Excel工作表递归函数（比如LAMBDA递归）根本无法实现——递归函数是基于单元格自身运算逻辑迭代，无法主动修改Sheet1的A1单元格来触发计算器的运算流程。

就算用VBA写递归，也是画蛇添足：你的需求是遍历一组数值逐个计算，用循环就足够清晰高效，递归反而会增加代码复杂度，没有任何实际优势。

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