每日Excel分享（VBA）| 根据指定名称快速批量删除工作表，提高工作效率妥妥的

感

谢

关

注

导读

打开VBE编辑器新建模块并添加VBA代码，如下图：

操作方法：

按ALT F11组合键打开VBE编辑器，选中任意一个工作表名点击右键，然后选择“插入——模块”，在模块中粘贴以下代码：

Sub 批量删除工作表()

    Dim sh As Object

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

    For Each sh In ThisWorkbook.Sheets

        With sh

            If Application.WorksheetFunction.CountIf(Range('A2:A31'), .Name) > 0 Then

                .Delete

            End If

        End With

    Next sh

    Application.DisplayAlerts = True '开启提示

End Sub

添加一个用于执行VBA代码的按钮，并指定要执行的代码

最终效果如下：

我们今天分享的批量删除工作表的指定名称的单元格区域是已经被写死的（A2：A31），我们是否可以优化代码让它在点击按钮的时候弹出一个选择框选择单元格区域然后再去删除呢？想要学习更多Excel知识就请继续关注吧.................

第280天的坚持，离365天的小目标还剩85天

我的Excel，天天与你不见不散