Excel 将字符串的一部分从一组字符删除到另一组字符

我有一个Excel表格，我想删除一些HTML标记。我的问题是，有些标签不仅仅是简单的

标签，而且还有额外的字符，比如标签的

替换。如何用“”替换像这样的字符串部分。谢谢。

这不是一个完美的解决方案，如果您想将

作为实际文本保留，则很可能无法达到预期效果

它应该给你一个起点，并且应该能够做出一些改变来达到“完美”

有关更多详细信息，请参阅评论：

Sub-htmlStrip（）
将ws设置为工作表：将ws=ActiveWorkbook.Sheets（“此处为工作表名称”）设置为ws=ActiveWorkbook.Sheets（“此处为工作表名称”）”这不是一个完美的解决方案，如果将
作为实际文本保留，则很可能无法实现预期效果

它应该给你一个起点，并且应该能够做出一些改变来达到“完美”

有关更多详细信息，请参阅评论：

Sub-htmlStrip（）
将ws设置为工作表：Set ws=ActiveWorkbook.Sheets（“此处的工作表名称”）”
Sub-RemoveDivs（）
暗淡的html$
html=“其他一些文本，这里也是”
使用CreateObject（“VBScript.RegExp”）
.Pattern=”“：.Global=True
html=.Replace（html，“”）
以
MSGBoxHTML
端接头
子删除IVS（）
暗淡的html$
html=“其他一些文本，这里也是”
使用CreateObject（“VBScript.RegExp”）
.Pattern=”“：.Global=True
html=.Replace（html，“”）
以
MSGBoxHTML
端接头
Hi FAB。谢谢你的帮助。我正在找到字符串和标记，但是我在“strReplace=Mid（arrData（R，C），lS，lE-lS+1）”行上得到了一个错误，得到了要替换的字符串“错误是“无效的过程调用或参数”。我相信这是论点。当我调试时，我看到IE=367，IS=437。我猜这会导致论点中出现一个负数？有什么想法吗？我可以想象，只有在@L33TLE之前有>的情况下才会发生这种情况。我已经更新了答案，以检查这种情况，现在应该更好了。嗨，FAB。你能告诉我为什么代码在这个html字符串上失败吗<代码>
定义的变更（如第3页的项目符号）
管理者（第3页的项目符号）。此外，相应的（第5.0节，第3页）文件；还显示了（培训平台）
以下内容:
 
它似乎不喜欢括号。如果我把它们拿出来，它就会起作用。如何避免这种情况~
（培训平台）
~Hi FAB。谢谢你的帮助。我正在找到字符串和标记，但是我在“strReplace=Mid（arrData（R，C），lS，lE-lS+1）”行上得到了一个错误，得到了要替换的字符串“错误是“无效的过程调用或参数”。我相信这是论点。当我调试时，我看到IE=367，IS=437。我猜这会导致论点中出现一个负数？有什么想法吗？我可以想象，只有在@L33TLE之前有>的情况下才会发生这种情况。我已经更新了答案，以检查这种情况，现在应该更好了。嗨，FAB。你能告诉我为什么代码在这个html字符串上失败吗<代码>
定义的变更（如第3页的项目符号）
管理者（第3页的项目符号）。此外，相应的（第5.0节，第3页）文件；还显示了（培训平台）
以下内容:
 

它似乎不喜欢括号。如果我把它们拿出来，它就会起作用。如何避免这种情况~

• （培训平台）
• ~

  Sub RemoveDivs()
      Dim html$
      html = "Some other text<div class=""ExternalClassEA74AB3F178E48EDAD3BDE4FC90B1182""> and here too"
      With CreateObject("VBScript.RegExp")
          .Pattern = "<div.*?>": .Global = True
          html = .Replace(html, "")
      End With
      MsgBox html
  End Sub