Excel：通过指定区域批量替换文本内容求助

方法1：Excel 365/2021 公式实现 #

在目标列（比如B1单元格）输入以下公式，下拉填充即可完成批量替换：

=LET(
    original,A1,
    find_range,D:D,
    replace_range,E:E,
    total_items,COUNTA(find_range),
    final_text,REDUCE(original,SEQUENCE(total_items),LAMBDA(current_text,idx,SUBSTITUTE(current_text,INDEX(find_range,idx),INDEX(replace_range,idx)))),
    final_text
)

• 逻辑：利用REDUCE遍历D列所有非空条目，依次用SUBSTITUTE将A列文本中匹配的子字符串替换为E列对应内容；LET函数简化公式结构，提升可读性。
• 注意：如果D/E列有表头，可将D:D改为D2:Dxx、E:E改为E2:Exx（xx为实际数据最后一行行号），避免表头被误处理。

方法2：VBA 宏实现（兼容所有Excel版本） #

适合旧版Excel（无REDUCE/LET函数）或需要批量重复操作的场景：

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

Sub BatchReplaceSubstrings()
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowDE As Long
    Dim i As Long, j As Long
    Dim tempText As String
    
    ' 指定操作工作表，可替换为实际表名，比如 Sheets("数据")
    Set ws = ActiveSheet
    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastRowDE = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    
    ' 遍历A列每行文本，依次替换匹配的子字符串
    For i = 1 To lastRowA
        tempText = ws.Cells(i, "A").Value
        For j = 1 To lastRowDE
            tempText = Replace(tempText, ws.Cells(j, "D").Value, ws.Cells(j, "E").Value)
        Next j
        ' 将结果输出到B列，如需直接覆盖A列，改为 ws.Cells(i, "A").Value = tempText
        ws.Cells(i, "B").Value = tempText
    Next i
End Sub

4. 回到Excel界面，按Alt+F8，选择BatchReplaceSubstrings并点击「执行」即可。

注意事项 #

• 操作前建议备份A列数据，避免替换错误无法恢复；
• 若D列存在重复子字符串，会按行顺序以最后一次替换为准；
• 子字符串区分大小写，如需忽略大小写，可将VBA代码中的Replace改为Replace(tempText, ws.Cells(j, "D").Value, ws.Cells(j, "E").Value, vbTextCompare)。

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