删除包含相同符号的标签

我得到一个从SAP提取每个选项卡有一个姐妹选项卡，相同的名称后跟+。 示例 – PL1516和PL1516+ 。 后面的标签没有任何东西，我只是想删除它们。 我试过这个macros，但它不工作。

 Option Explicit Sub deleteSheets() Dim Sht As Worksheet For Each Sht In ActiveWorkbook.Worksheets If Sht.Name = "*+*" Then Sht.Delete End If Next Sht End Sub 

Answer 1

使用Like运算符进行通配符比较。

 Option Explicit Sub deleteSheets() Dim Sht As Worksheet For Each Sht In ActiveWorkbook.Worksheets If Sht.Name Like "*+*" Then Sht.Delete End If Next Sht End Sub 

Answer 2

尝试改变这一行If Sht.Name = "*+*" Then用If InStr(Sht.Name, "+") > 0 Then 。 它应该工作。