简单粗暴-根据指定的sheet名批量删除sheet

话不多说，上代码

Sub 批量删除工作表()

    Dim sh As Object

    Application.DisplayAlerts = False '关闭提示，否则每删除一个非空工作表，都会出现提示

    For Each sh In ThisWorkbook.Sheets

        With sh
            'sheet名存放位置
            If Application.WorksheetFunction.CountIf(Range("A1:A31"), .Name) > 0 Then

                .Delete

            End If

        End With

    Next sh

    Application.DisplayAlerts = True '开启提示

    MsgBox "删除完毕", vbInformation, "提示"

End Sub

参考文章 http://www.360doc.com/content/17/1127/07/30583536_707458552.shtml