Excel处理数据时，经常需要删除部分工作表，像这样 工作中一个工作薄中十几张甚至几十张工作表是常有的事，手动一张张去删，费时费力，VBA代码可以帮你快速搞定，这就需要非常简单的代码 。

1、如果只留下一张名为“Sheet1”的工作表，其余的全删除,代码如下：

  For Each Sheets In Worksheets

     If Sheets.Name <> "Sheet1" Then 

       Sheets.Delete       

       End If

   Next

   

2、留下活动工作表，其余工作表全部删除，代码如下：

  Dim SheetActive As Worksheet

   Dim SheetActiveName As String

   On Error Resume Next

   SheetActiveName = ActiveSheet.Name    

Dim Sheets As Worksheet

   Application.DisplayAlerts = False 

   For Each Sheets In Worksheets

     If Sheets.Name <> SheetActiveName Then

        Sheets.Delete

     End If

    Next

   Application.DisplayAlerts = True

3、删除指定工作表，其他工作表保留，代码如下：

  For Each Sheets In Worksheets

     If Sheets.Name= "Sheet4"  Or Sheets.Name= "Sheet3"Then