在Excel中,我们如果要删除工作表,可以按照下面的步骤进行。
1. 鼠标点击要删除的工作表,然后右键,找到“删除”。
![36ea5eba7e80d67c080545e00ef0dd6f.png](https://i-blog.csdnimg.cn/blog_migrate/90605fe3ab7bfe08e39ab78e7254f1af.jpeg)
2. 点击“删除”后会弹出一个询问的对话框,确认点击“删除”后工作表才会被删除。
![07b069f96d3aaa450e5fd152fd0e9bdd.png](https://i-blog.csdnimg.cn/blog_migrate/8a7e703ee810de447d3477837daa8adf.png)
同理,在VBA中,如果用代码来删除工作表时,也同样会弹出确认删除工作表的对话框。
1. 打开Visual Basic,添加一个新模块和过程,称之为“删除工作表”。
![bcd9be91d4975ba3b618738b1c317e1d.png](https://i-blog.csdnimg.cn/blog_migrate/712a61a6f80ea7669ca5b15f5bb1b387.jpeg)
Sub 删除工作表()
End Sub
2. 删除工作表的动作Delete,前面加上是哪个工作表,例如这里我们要删除“表1”。
![828f2a0728b2b4ada03f1f5f018978f5.png](https://i-blog.csdnimg.cn/blog_migrate/7406b64389e927a972eac4df70e0fb3c.jpeg)
Sub 删除工作表()
Sheet1.Delete
End Sub
3. 执行以上代码后,会跳到Excel文件中弹出询问的对话框。
![95e1a5eb6c49024957084513503ca9eb.png](https://i-blog.csdnimg.cn/blog_migrate/39fab4445430986f7bbf0211619cd4ad.jpeg)
4. 如果用VBA来删除工作表,遇到有很多工作表要删除的情况,每次都要点击确认删除就会很麻烦,这里可以在代码中添加一个Application主程序控制,令弹窗不显示。
![4ac80aa04fd0d243bc395b868b1f1469.png](https://i-blog.csdnimg.cn/blog_migrate/a1b72232201e47f247dfdcbec013c8bc.jpeg)
Sub 删除工作表()
Application.DisplayAlerts = False
Sheet1.Delete
Application.DisplayAlerts = True
End Sub
5. 执行以上代码后,就可以删除“表1”而不显示弹窗。
![f718156badefb580623b48560926a631.png](https://i-blog.csdnimg.cn/blog_migrate/f097bb092ecdd961c82c8d98ccca748f.jpeg)
参考视频:
知乎视频www.zhihu.com