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

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

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

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

如果您的文本字符串被一些简单的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函数用于提取所有从第四个字符开始的字符，并且字符串的长度是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标签都已从所选单元格中删除，请参见屏幕截图：

使用的相对功能：

更多文章：

---

最佳办公效率工具

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 一样。

 了解更多 免费下载