如果名称包含工作簿中的特定文本，如何删除工作表？

Sub Deletebyname() Updateby Extendoffice Dim shName As String Dim xName As String Dim xWs As Worksheet Dim cnt As Integer shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _ ThisWorkbook.ActiveSheet.Name, , , , , 2) If shName = "" Then Exit Sub xName = "*" & shName & "*" MsgBox xName Application.DisplayAlerts = False cnt = 0 For Each xWs In ThisWorkbook.Sheets If xWs.Name Like xName Then xWs.Delete cnt = cnt + 1 End If Next xWs Application.DisplayAlerts = True MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel" End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！