VBA删除两个指定字符串间的信息

Question

一个单元格中有一串多个邮件地址，需求删除某个指定后缀名的所有地址，相同邮件后缀的邮件名称也不一样，请指导！

Answer 1

• 你可以看下这个问题的回答https://ask.csdn.net/questions/7773281
• 这篇博客你也可以参考下：VBA 删除数组某元素的方法多种
• 除此之外, 这篇博客: Excel中使用VBA将每个表分别导出为单独的工作簿中的 VBA 部分也许能够解决你的问题, 你可以仔细阅读以下内容或跳转源博客中阅读:
  

• Sub outputSheetAsWorkbook()
      Dim Wkb As Workbook
      Dim Sht As Worksheet
      Dim strPath$
  
      Const PRENAME = "任意文件名前缀"    '这里可以设置保存文件的文件名前缀
  
      strPath = ThisWorkbook.Path     '默认为当前文件夹所在目录保存
  
      For Each Sht In Worksheets
          If Sht.Name <> "总表" Then  '至少要保留1个表,否则会报错
              Sht.Move
              Set Wkb = ActiveWorkbook
              Wkb.SaveAs strPath & "\" & PRENAME & "_" & Sht.Name & ".xlsx"
              Wkb.Close 0
          End If
      Next
  End Sub
  

• 您还可以看一下 陈表达老师的VBA基础编程开发课程课程中的 第49集-遍历工作表对象、批量保护工作表小节, 巩固相关知识点