删除非指定名称的工作表的代码

lrlxxqxa

工作表名如果不是“样本”或者“模板”就删除。

1. Sub del()
   
2. Application.DisplayAlerts = False
   
3. Dim sh As Worksheet
   
4. For Each sh In Worksheets
   
5. If sh.Name <> "样本" And sh.Name <> "模板" Then
   
6. sh.Delete
   
7. End If
   
8. Next
   
9. Application.DisplayAlerts = True
   
10. End Sub

复制代码