从文本字符串中去除或删除 html 标签

如果您有多个被 HTML 标签包裹的文本字符串，想要一次性去除所有 HTML 标签，本文的方法将为您提供有效帮助。

• 使用公式去除或删除所有简单网页标签
• 使用 VBA 代码去除或删除部分复杂的 html 标签

使用公式去除或删除所有简单网页标签

如果您的文本字符串被一些简单的网页标签包裹，Excel 的 MID 函数可以轻松帮您解决这一问题。其通用语法如下：

• string：用于移除文本字符串或单元格值中的 HTML 标签。
• text_start：首字符的位置编号，用于指定提取的起始点。
• tag_len：文本字符串中 HTML 标签所占的长度。

请将以下公式复制或输入到一个空白单元格中：

然后，将填充柄向下拖动到需要应用此公式的单元格，所有 html 标签都已如下面截图所示被移除：

公式说明：

LEN(A2)-7：LEN 函数用于计算 A2 单元格中文本字符串的总长度，再减去 7（即 html 标签的数量，包括起始和结束标签），即可得到需要提取的不含 html 标签的字符数。返回值将作为 MID 函数的 num_chars 参数使用。

MID(A2,4,LEN(A2)-7)：此 MID 函数可从第 4 个字符开始，提取长度为 LEN 函数返回值减 7 的所有字符。

使用 VBA 代码去除或删除部分复杂的 html 标签

如果文本字符串中包含多个 HTML 标签，如下图所示，上述公式可能无法正常运行，此时，以下 VBA 代码可以帮助您处理文本字符串中一些较为复杂的 HTML 标签。

1. 在 Excel 中按住 Alt + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 点击插入 > 模块，然后将以下 VBA 代码粘贴到模块窗口中。

Sub RemoveTags()
'updateby Extendoffice 
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3. 按下 F5 键运行代码后，将弹出提示框，请选择需要移除 html 标签的单元格，如下图所示：

4. 然后，点击确定按钮后，单元格中的所有 html 标签即被删除，如下截图所示：

相关函数说明：

更多相关文章：