删除名称包含相同符号

Question

我从SAP中获取了一个提取，其中每个选项卡都有一个同名的姐妹选项卡，后跟一个+。示例 - PL1516和PL1516+。后一个标签没有任何东西，我只是想删除它们。我试过这个宏，但它没有用。

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

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