【原】利用VBA删除工作表

平时删除工作表大家都会操作，删除量小，也没有什么要求。如果面对大量的工作表一般的操作方法就不一定吃得消，借用VBA代码来助我们一臂之力。

第一种：批量删除工作薄内的工作表：

Sub 用代码批量删除工作表()

On Error Resume Next

Application.Display Alerts = False

Sheets(Array("基础表 (1)", "基础表 (2)", "基础表 (3)" )).Delete '删除指定的几个工作表

Application.Display Alerts = True

On Error GoTo 0

End Sub

说明：将代码会套用就行，"基础表 (1)", "基础表 (2)", "基础表 (3)" 是将要删除表的名称。

第二种：批量删除张三以外的工作表，量大时很管用。

Sub 批量删除张三之外的表格()

    Dim sht As Worksheet

    Application.DisplayAlerts = False

    For Each sht In Sheets

    If sht.Name <> "张三" Then

    sht.Delete

    End If

    Next

    Application.DisplayAlerts = True

End Sub