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打开文件选择对话框
  • 热门搜索
    上海崇明岛旅游攻略 石家庄旅游景点排行 春天旅游推荐 蓝途旅游网 广东旅游景点介绍 永春牛姆林生态旅游区 浙江金华旅游 埃及旅游局 公司组织旅游通知 芜湖旅游景点大全