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调用,只要输入工作表名称即可删除工作表。
猜你喜欢
- word中的文字允许打印到红头文件的哪里,需要确定范围,这个时候,简单方法就是通过按回车键的办法,留出空白部分。一、普通方法word中的文字
- 在使用Excel 2007或者Excel 2010版本的时候,如果将其保存为Excel 97-2003文件格式(.xls),当在工作簿中存在
- Excel是很多朋友都在使用的办公软件,今天小编整理了关于Excel自动突出纯汉字单元格的图文教程,感兴趣的朋友不妨阅读下文内容,或许有所帮
- 选取文本是Word编辑中,极为重要的一步。只有选取而来需要的文字,才能对它进行编辑。有时候它可能是一个字,一行,或者是一段,全
- 一般情况下win10系统的桌面位置路径是存放在C盘的,如果C盘空间不够了,可以将C盘的位置挪到其它磁盘中,如果不喜欢的话还可以还原。下面小编
- 在Excel中,如果要获得前三名的成绩,可以使用LARGE函数获得前三名的成绩。Excel2007可使用LARGE函数获得前三名的成绩。如上
- 大家知道,在Excel中输入分数可以用“0+空格+分数”的形式,例如输入“1/4”,就可以在单元格中输入“0 1/4”。但Excel在显示分
- 第一次把MATCH函数理解得这么好。学习知识一定要触类旁通,今天就讲讲match这个神奇的定位函数。以前我用match函数,都是把它当辅助函
- Word文档在我们日常工作中用的再不过熟悉的一个办公软件了,在我们遇到单独或不连续设置页眉的情况应该怎么操作呢?接下来跟我一起来看看下面是如
- excel表格是在工作中经常运用到的,如果在使用一张excel表格时需要对所选的内容进行排序又怎么做呢?下面让小编为你带来excel表格按大
- 今天教大家一个小技巧,非常的实用,那就是在word文档里快速对齐姓名的方法。学会这个小技巧,你就可以省下很大的时间和精力,如果你还不会这项操
- excel数据怎么制作柏拉图?之前我们介绍了很多exce表格数据改成图标的教程,今天我们来看看exce柏拉图图表的制作方法,需要的朋友可以参
- Excel表格中自定义排序序列的方法1、启动Excel 2013并打开工作表,任意选取一个单元格后在“开始”选项卡的“编辑”组中
- 每年春节前夕,苹果的智能语音助手 Siri 都会根据春节传统增加一些新的功能。今年也不例外,Siri 学会了牛年春节吉祥话,还有“春节故事”
- 众所周知,Excel2010生成的文件,保存下来就是xlsx格式,如果在低版本而且未安装兼容包的情况下,是无法打开的。下面小编就为大家介绍E
- 在做excle表格很容易遇到多项进行下拉菜单的选择,免去了大量的输入时间,而且还不容易打错字而造成的后果。那么,excel的下拉菜单多项选择
- 操作过程如下:一、视图 >> 工具栏 >> 审阅,打上勾,如果已经勾上,则跳过此步;二、这时工具栏中会多出一个工具条
- 在安装好office2010后,每次打开word或者PPT或者其他office文档时候会提示“安装程序正在准备必要的文件”然后是“正在配置M
- SUMIF函数是Excel常用函数。使用 SUMIF 函数可以对报表范围中符合指定条件的值求和。Excel中sumif函数的用法是根据指定条
- Win10专业版系统电脑游戏玩家们在想玩大型端游时,由于不熟悉系统所以不知道自己电脑配置能不能跟上,如何查看Win10专业版电脑的配置?为了