在excel中转​​换html特殊字符

Question

有人可以建议在工作表中使用的函数/公式将html特殊字符转换为HTML实体，谢谢 例如
™到™
®至®

Answer 1

这个问题的答案分为两部分。

1. 你只需要转换某些特殊字符集吗？
2. 您是否需要转换全部支持？

答案1：

Public Function ConvertHTMLTag(data As String) As String
    data = Replace(data, "™", "™")
    data = Replace(data, "®", "®")
    ConvertHTMLTag = data
End Function

答案2：

重复http://www.webmonkey.com/2010/02/special_characters/

中的所有字符

为了使这更容易一些，我会尝试将此列表放在一个包含两列的Excel工作表中。一个用于特殊标记，另一个用于评估char。

在第3栏中编写公式，为您创建代码......

="data = Replace(data, "&Char(34)&A1&Char(34)&", "&Char(34)&A2&Char(34)&")"

一旦你获得了在Excel中创建的VBA代码，只需简单的复制并粘贴到上面的函数即可。

Answer 2

使用此函数从html特殊字符编码为字符串

Function HTMLToCharCodes(ByVal s As String) As String

    With New MSXML2.DOMDocument60
        .LoadXML "<p>" & s & "</p>"

        HTMLToCharCodes = .SelectSingleNode("p").nodeTypedValue
    End With

End Function

输入：&，返回：&