在Excel中，如何将HTML文本转换为多个单元格中的常规文本

我有一个Excel工作簿与多个工作表，每个有多个单元格包含HTML文本。 如何将此文本直接转换为具有HTML标记中定义的所有格式的常规文本。 有没有可能有一个macros可以扫描所有这样的细胞，并一次转换它们？

Answer 1

尝试下面的函数去掉所有的html标签（bold和break除外），并通过parsinghtml文本到striphtml（你的html文本）这个函数来获得正常的文本。

Function StripHTML(sInput As String) As String Dim RegEx As Object Set RegEx = CreateObject("vbscript.regexp") Dim sOut As String With RegEx .Global = True .IgnoreCase = True .MultiLine = True .Pattern = "<(?!/?(?:br|b)\b)[^>]*>" 'Regular Expression for HTML Tags. End With sOut = RegEx.Replace(sInput, "") StripHTML = sOut Set RegEx = Nothing End Function