如何自动批量替换Excel公式中的指定列标识（非Ctrl+H方式）

方法一：用Excel函数生成新公式 #

假设原公式在A列，要在B列生成修改后的公式：

1. 提取原公式的文本内容：在B1单元格输入 =FORMULATEXT(A1)，下拉填充即可提取A列所有公式的文本格式内容；或者选中A列，右键设置单元格格式为「文本」，逐行按F2+回车将公式转为文本。
2. 嵌套SUBSTITUTE完成双替换：
   在B1输入以下公式，下拉填充：

   =SUBSTITUTE(SUBSTITUTE(FORMULATEXT(A1), "ND", "NV"), "NG", "NY")
   

   该公式会先把原公式中的ND替换为NV，再把NG替换为NY，直接生成修改后的公式文本。
3. 将文本转回可计算公式：选中B列复制，右键选择「选择性粘贴→数值」，然后按Ctrl+H，查找框和替换框都输入=，点击「全部替换」，即可把文本格式的内容转为可运算的公式。

方法二：用VBA宏直接修改原公式 #

如果需要直接修改原单元格的公式，无需转文本操作，可以用宏批量处理：

1. 按Alt+F11打开VBA编辑器。
2. 右键左侧的工作簿名称，选择「插入→模块」。
3. 粘贴以下代码：

   Sub BatchReplaceFormulaColumns()
       Dim rng As Range
       Dim cell As Range
       ' 弹出选择框，选中需要修改的公式所在单元格区域
       Set rng = Application.InputBox("请选择要处理的公式区域", Type:=8)
       For Each cell In rng
           If cell.HasFormula Then
               cell.Formula = Replace(Replace(cell.Formula, "ND", "NV"), "NG", "NY")
           End If
       Next cell
   End Sub
   

4. 按F5运行宏，选中目标区域后即可自动完成替换。

方法三：Power Query批量处理（适合大量数据） #

1. 选中包含公式的列，点击「数据→从表格/区域」，勾选「我的表格有标题」导入Power Query编辑器。
2. 点击「添加列→自定义列」，输入以下公式（替换「原列标题」为实际的列名称）：

   = Text.Replace(Text.Replace([原列标题], "ND", "NV"), "NG", "NY")
   

3. 点击「关闭并上载」将数据导回Excel，再按照方法一的第3步将文本转为可计算公式即可。

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