Excel VBA中执行删除sheet工作表的代码和用法

 时间:2026-02-13 23:46:49

1、Excel VBA中执行删除sheet工作表的代码、批量删除sheet的VBA代码如下:

Sheets(aa).Delete,这个就是最快捷的删除代码,具体用法如下

如下图,我们将对下面的工作表进行删除工作,删除后面的所有sheet。

Excel VBA中执行删除sheet工作表的代码和用法

2、打开VBA工具,具体位置如下图:打开工具栏中的开发工具——然后选择左侧第一项VBA(如下图圈出位置)。

Excel VBA中执行删除sheet工作表的代码和用法

3、如下图,在左侧右键可以插入一个模板,用于编辑代码的窗口。

Excel VBA中执行删除sheet工作表的代码和用法

4、然后将下列代码复制进去:

Sub 批量删除sheet()

 Dim aa

aa = Sheets.Count

Do While aa > 4

    aa = Sheets.Count

    Application.DisplayAlerts = False

    Sheets(aa).Delete

Loop

End Sub。

    

Excel VBA中执行删除sheet工作表的代码和用法

5、在工具栏中选择开发工具,然后选择宏,如下图红色圈出位置。

Excel VBA中执行删除sheet工作表的代码和用法

6、找到我们刚编辑的VBA,然后执行该宏命令,如下图所示。

Excel VBA中执行删除sheet工作表的代码和用法

7、执行完成后,如下图,批量删除sheet工作就完成了,代码可以根据自己的需求修改,来达到删除的效果。

Do While aa > 4    其中4,代表的sheet数量。可以根据自己需求修改。

Excel VBA中执行删除sheet工作表的代码和用法

  • excel中如何使用vba来完成复制粘贴功能
  • 如何用VBA获取当前工作簿的名称
  • 如何使用VBA获取EXCEL表格最后行列数
  • excel中使用vba完成模糊查找功能
  • 如何使用VBA打开文件选择对话框
  • 热门搜索
    包邮是什么意思 快刀斩乱麻什么意思 抽噎的意思 停盘什么意思 繁密的意思 捡肥皂是什么意思 男朋友生日祝福语 有限责任公司是什么意思 证券公司是做什么的 供认不讳是什么意思