Excel如何按映射表仅替换字符串中的希伯来语及空格为对应URL编码值

方案1：Excel 365/2021 动态数组公式方案（无需代码） #

前提约定：

• 映射规则表（表A）的待替换字符列（DECODED）为B列，对应编码列（ENCODED）为C列，规则数据范围为B2:C29（共28条规则，可根据实际规则数量调整范围）
• 待处理表（表B）的待处理字符串存放在F列，从F2行开始
  在表B需要输出结果的单元格输入如下公式，下拉即可批量处理：

=REDUCE(F2, 表A!$B$2:$B$29, LAMBDA(acc, cur, SUBSTITUTE(acc, cur, XLOOKUP(cur, 表A!$B$2:$B$29, 表A!$C$2:$C$29))))

原理：REDUCE函数会遍历所有映射规则里的待替换字符，逐个替换当前待处理字符串中的对应内容，不在映射规则里的字符（比如英文、斜杠等）会原样保留，完全符合仅编码希伯来字符和空格的需求。

方案2：低版本Excel兼容VBA自定义函数方案 #

如果使用的是没有动态数组功能的低版本Excel，可以用自定义函数实现：

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿→选择「插入」→「模块」
2. 在弹出的代码编辑框粘贴如下内容：

Function HebEncode(InputStr As String) As String
    Dim mapSheet As Worksheet
    Dim i As Integer
    Dim rawChar As String, encodeStr As String
    ' 下方表名修改为你实际的映射表表名
    Set mapSheet = ThisWorkbook.Worksheets("表A")
    HebEncode = InputStr
    ' 遍历所有映射规则，规则从第2行到第29行，可根据实际数量调整
    For i = 2 To 29
        rawChar = mapSheet.Range("B" & i).Value
        encodeStr = mapSheet.Range("C" & i).Value
        HebEncode = Replace(HebEncode, rawChar, encodeStr)
    Next i
End Function

3. 保存文件为「Excel 启用宏的工作簿（.xlsm）」格式，回到表格界面，在需要输出结果的单元格输入=HebEncode(F2)，下拉即可批量处理。

效果验证 #

针对你给出的测试用例test/ם/，两个方案都会输出预期结果test/%D7%9D/，不会出现误替换为其他编码的问题。

注意：如果后续新增了映射规则，只需对应修改公式里的映射范围，或者VBA代码里的循环终止行号即可。

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