Excel多值批量替换：避免已替换字符重复替换的技术问询

针对你遇到的「替换后字符被二次替换」问题，以下是三种可行的方案，均支持大规模替换表与拉丁字符：

VBA 自定义函数方案 #

核心逻辑是仅遍历原文本的每个原始字符，直接匹配替换规则，完全规避二次替换：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Function OneTimeReplace(ByVal originalText As String, replaceRange As Range) As String
    Dim replaceDict As Object
    Dim char As String
    Dim result As String
    Dim i As Integer
    
    ' 用字典存储替换规则，提升匹配效率
    Set replaceDict = CreateObject("Scripting.Dictionary")
    For Each cell In replaceRange.Columns(1).Cells
        If cell.Value <> "" And cell.Offset(0, 1).Value <> "" Then
            replaceDict(cell.Value) = cell.Offset(0, 1).Value
        End If
    Next cell
    
    ' 逐个处理原文本的每一个字符
    result = ""
    For i = 1 To Len(originalText)
        char = Mid(originalText, i, 1)
        If replaceDict.Exists(char) Then
            result = result & replaceDict(char)
        Else
            result = result & char
        End If
    Next i
    
    OneTimeReplace = result
End Function

2. 在Excel单元格中调用：=OneTimeReplace(A1, $C$1:$D$100)
   • A1为原文本所在单元格
   • $C$1:$D$100为你的替换表区域（第一列搜索字符，第二列替换文本）

Power Query 批量处理方案 #

适合整列数据的批量替换，无需复杂代码：

1. 选中原文本列，点击「数据」→「从表格/区域」，将数据导入Power Query编辑器
2. 将替换表也导入Power Query，选中替换表的两列，点击「转换」→「到字典」，生成替换规则字典
3. 返回原文本查询，添加自定义列，输入M公式：

Text.Combine(List.Transform(Text.ToList([原文本列名]), each if Record.HasFields(替换字典, _) then 替换字典[_] else _))

4. 关闭并上载到Excel，即可得到仅替换原始字符的结果

纯公式方案（Excel 365/2021适用） #

无需VBA或Power Query，用动态数组公式实现：
假设原文本在A1，替换表在C:D列，输入公式：

=TEXTJOIN("",, IFERROR(XLOOKUP(MID(A1,SEQUENCE(LEN(A1)),1),C:C,D:D),MID(A1,SEQUENCE(LEN(A1)),1)))

逻辑说明：

• 用MID+SEQUENCE将原文本拆分为单个字符的数组
• 用XLOOKUP为每个字符匹配替换值，无匹配则保留原字符
• 最后用TEXTJOIN拼接成完整文本

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