从文本字符串中删除HTML标签

如果有多个被HTML标签包围的文本字符串，要删除所有HTML标签，本文中的方法可能会对您有所帮助。

• 使用公式删除或去除所有简单的HTML标签
• 使用VBA代码删除或去除一些复杂的HTML标签

使用公式删除或去除所有简单的HTML标签

如果您的文本字符串被一些简单的HTML标签包围，Excel中的MID函数可以帮助您解决此问题。通用语法为：

• 字符串：要从中删除HTML标签的文本字符串或单元格值。
• 起始位置：要使用的第一个字符所在的位置编号。
• 标签长度：文本字符串中HTML标签的长度。

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

然后，向下拖动填充柄以应用该公式到其他单元格，所有的HTML标签都会从单元格中删除，如下截图所示：

公式解释：

LEN(A2)-7：此LEN函数用于计算单元格A2中文本字符串的长度，并减去7（HTML标签的数量，包括开头和结尾标签），意味着获取要提取的字符数，不包括HTML标签。返回的值将用作MID函数中的num_chars参数。

MID(A2,4,LEN(A2)-7)：此MID函数用于提取从第四个字符开始的所有字符，字符串的长度是LEN函数返回的num_chars。

使用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标签都已被删除，见截图：

相关功能：

更多文章：