如何在Excel中用VBA的for each循环批量删工作表
1、如图所示,要删除Excel文件中的多张工作表,但是其中有一张不能删。

3、添加for each循环的代码。

6、1)If sht.Name <> "模板(不删)" Then:表名不等于(符号为“<>”)“模板(不删)”;2)sht.Delete:删除表;3)End If:结束if语句。
7、在执行以上代码后,发现删表时会有一个确认对话框。

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

1、如图所示,要删除Excel文件中的多张工作表,但是其中有一张不能删。
3、添加for each循环的代码。
6、1)If sht.Name <> "模板(不删)" Then:表名不等于(符号为“<>”)“模板(不删)”;2)sht.Delete:删除表;3)End If:结束if语句。
7、在执行以上代码后,发现删表时会有一个确认对话框。
9、再次执行更新的代码后,可以快速删表,并且只留下我们不要删除的那张工作表。