刪除選項卡名稱包含相同的符號

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

使用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。它應該工作。