如图所示，要删除Excel文件中的多张工作表，但是其中有一张不能删。

打开Visual Basic，添加模块和过程，称之为“批量删表”。

添加for each循环的代码。

1）Dim sht As Worksheet：变量为sht，意思是“工作表”，所以定义为Worksheet；

2）For Each sht In Sheets：每个sht（工作表）在所有工作表中Sheets；

3）Next：结束for each循环。

添加if判断语句，当遇到工作表名为“模板（不删）”时，不删跳过，而删除其余表。

1）If sht.Name 模板（不删） Then：表名不等于（符号为“”）“模板（不删）”；

2）sht.Delete：删除表；

3）End If：结束if语句。

在执行以上代码后，发现删表时会有一个确认对话框。

为了在批量操作时，不用每次都去点击确认，在代码中加入代码如图。

再次执行更新的代码后，可以快速删表，并且只留下我们不要删除的那张工作表。