Note: The other languages of the website are Google-translated. Back to English

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

如果html标记周围有多个文本字符串,则要删除所有html标记,本文中的方法可能会对您有所帮助。


用公式剥离或删除所有简单的html标签

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

=MID(string,text_start,LEN(string)-tag_len)
  • string:您要从中删除html标签的文本字符串或单元格值。
  • text_start:您要使用的第一个字符所在的位置编号。
  • tag_len:文本字符串中html标签的长度。

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

=MID(A2,4,LEN(A2)-7)

然后,将填充手柄向下拖动到要应用此公式的单元格上,并且所有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。 按住 Alt + F11键 键,然后打开 Microsoft Visual Basic应用程序 窗口。

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。 然后,单击 OK 按钮,并且所有html标签都已从所选单元格中删除,请参见屏幕截图:


使用的相对功能:

  • LEN:
  • LEN函数返回文本字符串中的字符数。
  • MID:
  • MID函数用于从给定文本字符串的中间查找并返回特定数量的字符。

更多文章:


最佳办公效率工具

Kutools for Excel-帮助您从人群中脱颖而出

您想快速,完美地完成日常工作吗? Kutools for Excel具有300项强大的高级功能(合并工作簿,按颜色求和,拆分单元格内容,转换日期等),并为您节省80%的时间。

  • 专为1500个工作方案而设计,可帮助您解决80%的Excel问题。
  • 每天减少成千上万的键盘和鼠标点击,减轻您疲倦的眼睛和手部的疲劳。
  • 在3分钟内成为一名Excel专家。 不再需要记住任何痛苦的公式和VBA代码。
  • 30天无限制免费试用。 60天退款保证。 免费升级和支持2年。
Excel功能区(已安装Kutools for Excel)

Office选项卡-在Microsoft Office(包括Excel)中启用选项卡式阅读和编辑

  • 一秒钟即可在数十个打开的文档之间切换!
  • 每天为您减少数百次鼠标单击,告别鼠标手。
  • 查看和编辑多个文档时,可将您的工作效率提高50%。
  • 像Chrome,Firefox和新的Internet Explorer一样,为Office(包括Excel)带来高效选项卡。
Excel的屏幕截图(已安装Office选项卡)
按评论排序
注释 (0)
还没有评分。 成为第一位评论!
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0  产品特性
建议地点