Excel 宏将 HTML 实体转换为文本

Question

我有一个巨大的 Excel 文件，其中包含在线调查的结果。构建调查的人在几个方面搞乱了格式，而我首先需要解决的混乱是将 HTML 实体转换为常规文本。

据我所知，只使用了两个 HTML 实体， , 和 " 但该文档超过 12,000 行，因此我无法确定是否有没有使用其他 HTML 实体...如果使用其他 HTML 实体，我希望它们也转换为文本。

我已经成功制作了一个宏来将我提到的两个 HTML 实体转换为文本，但我不知道如何使宏在整个文件上执行（即我必须按住宏热键才能使其执行）。 ..而且这需要永远）。

如果已经有一个宏可以执行我想要的操作，那就太好了，因为我还可以使用它的修改版本来完成下一个任务，即按正确的顺序排列所有列和行。

更新：

这是我的宏搜索,的版本。它有效，我只需要按住热键就可以了。如果我可以在整个 Excel 文件上运行此操作，那就太好了，然后我可以调整每个 HTML 实体的宏，直到将它们全部消除。

Sub Macro2()
'
' HTML_Converter Macro
'

'
    Cells.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Replace What:=",", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub

Answer 1

创建工作簿的备份。

按 Alt+F11 打开 VBA 编辑器。

在左侧树视图中您正在使用的工作簿下方双击“此工作簿”。

复制并粘贴以下内容：

Sub UnescapeCharacters()

    ' set this to match your case
    sheetname = "Sheet1"

    Dim sheet As Worksheet
    Set sheet = Me.Worksheets(sheetname)

    For Row = 1 To sheet.UsedRange.Rows.Count
        For Column = 1 To sheet.UsedRange.Columns.Count
            Dim cell As Range
            Set cell = sheet.Cells(Row, Column)

            ' define all your replacements here
            ReplaceCharacter cell, """, """" 'quadruple quotes required
            ReplaceCharacter cell, ",", ","
        Next Column
    Next Row

End Sub

Sub ReplaceCharacter(ByRef cell As Range, ByVal find As String, ByVal replacement As String)

    Dim result As String
    cell.Value = replace(cell.Text, find, replacement, 1, -1)

End Sub

这只会迭代指定工作表中的每个单元格并替换您定义的所有内容。提供的代码替换您提到的两个字符代码。

您可以将其作为宏运行，或者只需将插入符号放在“UnescapeCharacters”子例程中并按 F5。

Answer 2

我制作了一个具有此功能的 Excel 插件：
https://www.youtube.com/watch?v=DGEc6tLaKvA