跳到主要内容

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

作者:晓阳 最后修改时间:2020-02-27

如果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 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项  |  删除空白行  |  合并列或单元格而不丢失数据  |  不使用公式进行四舍五入 ...
超级VLookup: 多重标准  |  多重价值  |  跨多页  |  模糊查询...
副词。 下拉列表: 简易下拉列表  |  依赖下拉列表  |  多选下拉列表...
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  将列与 选择相同和不同的单元格 ...
特色功能: 网格焦点  |  设计图  |  大方程式酒吧  |  工作簿和工作表管理器 | 资源库 (自动文本)  |  日期选择器  |  合并工作表  |  加密/解密单元格  |  按列表发送电子邮件  |  超级筛选  |  特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符 ...)  |  50+ 图表 类型 (甘特图 ...)  |  40+ 实用 公式 (根据生日计算年龄 ...)  |  19 插入 工具 (插入二维码, 从路径插入图片 ...)  |  12 转化 工具 (小写金额转大写, 货币兑换 ...)  |  7 合并与拆分 工具 (高级组合行, 拆分 Excel 单元格 ...)  |  ... 和更多

Kutools for Excel 拥有超过 300 个功能, 确保只需点击一下即可获得您所需要的...

描述


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

  • 一秒钟即可在数十个打开的文档之间切换!
  • 每天为您减少数百次鼠标单击,告别鼠标手。
  • 查看和编辑多个文档时,可将您的工作效率提高50%。
  • 为 Office(包括 Excel)带来高效的选项卡,就像 Chrome、Edge 和 Firefox 一样。
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Или просто
Найти - <*>
Заменить - оставить пустым
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations