如何批量将Excel中850个单元格的两组独立公式合并为单个公式？

方法一：VBA宏（高效批量处理） #

如果你的两组公式分别存放在两个固定区域（比如跨表引用公式在A1:A850，条件求和公式在B1:B850，合并后公式存到C1:C850），可以用以下VBA代码一键完成：

Sub MergeFormulas()
    Dim sourceRange1 As Range, sourceRange2 As Range, targetRange As Range
    Dim formula1 As String, formula2 As String
    Dim i As Integer
    
    ' 根据实际情况修改区域引用
    Set sourceRange1 = ThisWorkbook.Sheets("Sheet1").Range("A1:A850") ' 跨表引用公式区域
    Set sourceRange2 = ThisWorkbook.Sheets("Sheet1").Range("B1:B850") ' 条件求和公式区域
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("C1:C850") ' 合并公式存放区域
    
    For i = 1 To sourceRange1.Cells.Count
        ' 去掉原公式开头的等号
        formula1 = Mid(sourceRange1.Cells(i).Formula, 2)
        formula2 = Mid(sourceRange2.Cells(i).Formula, 2)
        ' 拼接成新公式并写入目标单元格
        targetRange.Cells(i).Formula = "=" & formula1 & " + " & formula2
    Next i
End Sub

使用步骤： #

1. 按Alt + F11打开VBA编辑器。
2. 右键点击当前工作簿 → 插入 → 模块。
3. 粘贴代码，修改三个区域的引用为你的实际单元格范围。
4. 按F5运行宏，或回到Excel界面，通过「开发工具→宏→选择MergeFormulas」执行。

方法二：无VBA手动批量技巧 #

如果不想用宏，可通过FORMULATEXT函数配合批量替换实现：
假设跨表引用公式在A1:A850，条件求和公式在B1:B850：

1. 在C1输入公式：=FORMULATEXT(A1) & " + " & FORMULATEXT(B1)，下拉填充到C850，此时C列会显示类似=Acquisition!G32 + =SUMIFS(...)的文本。
2. 选中C1:C850，复制后右键粘贴为值到D1:D850。
3. 选中D1:D850，按Ctrl + H打开查找替换：
   • 查找内容：+ =
   • 替换为：+
   • 点击「全部替换」，得到正确的公式文本格式=Acquisition!G32 + SUMIFS(...)。
4. 复制D1:D850的内容，粘贴到目标单元格区域，选中这些单元格后按Ctrl + H，查找=并替换为=，触发公式转换。

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