如何用Excel公式或VBA实现从命名表替换生成HTML

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

直接用REDUCE函数批量完成多术语替换，在Definitions表的「Definition HTML」列输入以下公式：

=REDUCE([@Definition], Keywords[Term], LAMBDA(current, term, SUBSTITUTE(current, term, "<em class='term'>" & term & "</em>")))

• 原理：REDUCE以[@Definition]为初始文本，遍历Keywords表的每个术语，依次用<em class='term'>术语</em>替换当前文本中的对应内容，最终输出处理后的HTML文本。
• 注意：如果需要精确匹配整词（避免误替换术语的部分字符，比如不把"apple"里的"app"当成术语替换），这种公式实现较复杂，推荐用下方的VBA方法。

方法二：VBA自定义函数（兼容全版本Excel） #

如果你的Excel版本不支持REDUCE，或者需要灵活的匹配规则，可以自定义函数：

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

Function TermToHTML(defText As String, termsRange As Range) As String
    Dim termCell As Range
    Dim resultText As String
    resultText = defText
    
    ' 遍历所有术语逐个替换
    For Each termCell In termsRange
        If termCell.Value <> "" Then
            ' 基础替换：匹配所有出现的术语字符
            resultText = Replace(resultText, termCell.Value, "<em class='term'>" & termCell.Value & "</em>")
            
            ' 若需精确匹配整词，注释上面的Replace，启用下面的正则匹配：
            ' Dim regEx As Object
            ' Set regEx = CreateObject("VBScript.RegExp")
            ' regEx.Global = True
            ' regEx.Pattern = "\b" & termCell.Value & "\b" ' \b代表单词边界
            ' resultText = regEx.Replace(resultText, "<em class='term'>$&</em>")
        End If
    Next termCell
    
    TermToHTML = resultText
End Function

2. 返回Excel，在「Definition HTML」列输入公式：

=TermToHTML([@Definition], Keywords[Term])

• 说明：默认是模糊匹配，如需精确整词匹配，切换到正则匹配代码即可；若要忽略大小写，可给Replace加vbTextCompare参数，或给正则添加regEx.IgnoreCase = True。

额外提示 #

• 处理大量数据时，VBA方法的效率明显高于公式，尤其当术语数量较多时。
• 若术语存在重复，建议先对Keywords表去重，避免重复替换。

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