根据工作表名快速删除特定Excel工作表
♻️

根据工作表名快速删除特定Excel工作表

Created
Jul 14, 2021 02:15 AM
Tags
制作模板时,想要将工作表中完全不存在每个词语的工作表完全删除,执行时会询问需要保留工作表中包含的文字。
notion image
Sub DeleteWSwithName()
Application.DisplayAlerts = False '取消删除确认
Application.ScreenUpdating = False '取消界面更新
    wsname = InputBox("请输入需要保留工作表名中包含文字")
    For Each ws In ActiveWorkbook.Sheets
        pos = InStr(ws.Name, wsname)
        If pos = 0 Then
            ws.Delete '删除工作表
        End If
        '工作表名字中不包含输入的字符串时,则删除该工作表
    Next ws
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
 

 

Loading Comments...