Excel vba删除工作表的代码和实例
发布时间:2023-06-02 08:05:53
文章介绍excel中vba删除工作表的方法,并通过两个案例来具体理解vba代码。
上一篇文章我们介绍了使用excel的基础操作来删除工作表。本文给大家分享vba删除工作表的代码写法。
vba删除工作表案例一:删除一张表以外的所有工作表
如下图所示:这一个excel工作薄包含多张工作表,如何使用vba删除 “IT部落窝论坛”以外的工作表呢?右边截图就是使用VBA代码删除后的效果,整个工作薄就只剩下一张工作表:IT部落窝论坛。
下面是具体的vba删除工作表操作步骤:
第一,按下ALT+F11,打开VBE编辑器。
第二,单击菜单:插入——模块,插入一个模块,并复制下面的代码到代码输入区:
Sub vba删除工作表()
Application.DisplayAlerts = False
Dim sht As Object
For Each sht In ThisWorkbook.Worksheets
If sht.Name <> "
IT部落窝论坛" Then
sht.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
第三,单击上面截图所示的工具栏上面那个绿色的“运行”命令,excel就会自动删除“
IT部落窝论坛”以外的所有工作表。
从两篇删除工作表方法的文章对比,我们可以清楚的看到,如果工作表很多的情况,使用VBA删除工作表,效率会更加高效。而且代码可以随时调用运行,减少手工操作。
vba删除工作表案例二:逐一提示删除工作表
录制代码的方法参考上面介绍,下面这一段代码运行的结果是出现一个提示框,要求输入工作表名称,如果输入的工作表名正确,excel就删除对应的工作表,如果输入的工作表不正确,excel返回消息框提示:您要删除的工作表不存在。
Sub vba删除工作表()
Dim ws As Worksheet
Dim str As String
str = Application.InputBox(prompt:="输入需要删除的工作表:", Title:="删除工作表", Default:="sheet1", Type:=2)
On Error GoTo back
Set ws = Worksheets(str)
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Exit Sub
back:
MsgBox "您要删除的工作表不存在!"
End Sub
上面这段vba删除工作表的方法,如果需要经常使用,我们可以保存为宏,在需要的时候按快捷键ALT+F8调用,只要输入工作表名称即可删除工作表。


猜你喜欢
- ai怎么改变笔刷颜色?大家都知道在AI中可以制作很多种矢量图,那么在制作的过程中如何更改笔刷颜色呢?下面小编就为大家带来AI更改笔刷颜色操作
- 想将excel表格中的繁体字转换成简体字?或者简体字转换为繁体字的具体操作,今天,小编就教大家在Excel表格中简体字和繁体字互转换的操作方
- 近期有部分用户的电脑出现了蓝屏的情况,因此需要进入安全模式对问题进行筛查以及修复。相信还有部分用户不是很清楚具体的操作方法,为此今天小编将为
- Win11系统是全新的电脑操作系统,相信有很多用户都安装体验了,但是还是有很多用户还未安装,不知道windows11系统怎么样,那么电脑wi
- Word移动文字的方法:1、用鼠标按下左键不动后拖动光标选中需要移动的字符串。2、用鼠标左键点击选中的字符串长按不动,移动鼠标到下图所示的新
- 有用户反映在使用win10系统电脑过程中遇到了无法开机情况,而且提示0xc000000f的错误代码,这是怎么情况呢?一般是由于映像出现问题所
- 红米k20 pro怎么设置屏幕常亮?我们刚买手机的时候,一般都是十几秒屏幕就会自动黑屏,如果我们想要设置屏幕常亮的话,要怎么进行操作呢?下面
- Windows10如何阻止用户从开始菜单卸载应用程序?Windows10系统对开始菜单进行了改进,大家只要单击右键就可以卸载应用程序了,虽然
- 用U盘装系统,首先,将系统下载到U盘中,然后,再由U盘启动盘制作工具来为大家重装系统。但是在装系统的时候,出现了“安装程序无法创建新的系统分
- 如何将excel中数字转换为文本格式?excel数字转换为文本可以更快速的去进行报备和统计,而然这项功能是有很多的用户不知道怎么操作的,下面
- 有一些工作者习惯将工作带回家做,而这当中有一部分的人是使用 Mac。若你也从公司携带了一台 Mac 回家上班的话,那么你公司的 IT 部门很
- 许多用户不知道IE10与IE9有多大的差别,其中IE10浏览器收藏夹的漫游功能就是新增的一种功能,下面为大家介绍下Win8系统下IE10浏览
- 一、在你的电脑里找到logonui.exe文件,通常位于c:windowssystem32目录中,复制
- 在excel表格中计算绝对值时,abs函数能快速计算出来,但是应该怎么使用这个函数呢?下面就跟小编一起来看看吧。excel使用abs函数的步
- 我们使用wps时候通常都会使用图文结合来解释一个事物,那应该怎么在图形中添加文字呢?以下是小编为您带来的关于WPS中做到在图形中添加文字,希
- 在淘宝购物时出现提示Aliedit.dll丢失的问题,导致无法购物,其实Aliedit.dll是淘宝在浏览器中的一个安全插件,下面是具体的解
- 很多情况下会用到cmd命令提示符的,尤其是要以管理员的身份进入cmd,其实在Win8系统下以管理员身份进入cmd也很简单在很多时候,我们都还
- Windows10系统可以在台式机、笔记本、服务器上面运行,为了更好地兼容这些不同设备,微软特别设计了几种的电源计划。电源计划的选择对笔记本
- Excel表格是一款很实用的办公软件,可以处理、存储大量数据。Excel表格可以对大量数据进行计算、制作成图表进行对比、可以利用条件进行突出
- 在使用win10的过程中,当遇到显示本地连接无法访问未启用dhcp的提示先不要着急,小编的经验觉得可以进行网络和共享中心进行设置,或者通过运