www.gsyw.net > 在ExCEl中如何使用vBA命令实现批量删除指定名称的工作表

在ExCEl中如何使用vBA命令实现批量删除指定名称的工作表

按Alt + F11,双击ThisWorkbook,粘贴下面的代码:Sub ouyangff() On Error Resume Next Application.DisplayAlerts = False For i = 2 To [g65536].End(3).Row a$ = Cells(i, 7) Sheets(a$).Delete Next Application.DisplayAlerts = True End Sub 按Alt + F11,回到你的画面所示的“表”中!按Alt + F8,确定!去试一试吧!!!

Application.DisplayAlerts = FalseFor i = 1 To Worksheets.CountIf VBA.IsNumeric(Sheets(i).Name) Then Sheets(i).DeleteNextApplication.DisplayAlerts = True

因为sheets(2)是第二个sheet,包含工作表、图表等在内的.如果确定是第二个工作表,可以用worksheets(2),或者直接用名字sheets("sheets2").再不然可以用sheets(2).codename看看工作表的名称然后直接用sheetx(不是name属性,是(名称)属性)

在一个工作簿以内么 一选中全部工作表,SHIFT按住 二安住CTRL键,点选你留的工作表标签,删除即可

(1)把这100个excel文档放在同一个文件夹;(2)在其他任何地方新建一个excel,名称任意;(3)在新建的这个excel里添加以下代码(用你的代码改的);(4)在“宏安全性”设置里勾上“信任对VBA工程对象模型的访问”,然后运行即可

只能右击逐个删除.表格代码不是万能的. 注意不要删除错了

删除指定工作表的代码如下:Sub 删除指定工作表()Dim a As Stringa = InputBox("请输入要删除的工作表名字")Sheets(a).DeleteEnd Sub

'你想删除的文件的名称例如文件名是中国什么省汇总.xlsFN = "中国什么省汇总.xls"Dim FileName As String FileName = Dir("D:\报表\*.xls") Do While FileName <> "" If FileName = FN Then Kill "D:\报表\" & FileName End If FileName = Dir Loop

代码及注释如下:<br>sub shanchu()<br>application.displayalerts = false'关闭提示,否则每删除一个非空工作表,都会出现提示<br>for i = 2 to [g65536].end(3).row'i从2到g列最后一个非空行数循环<br>sheets(cells(i, 7).delete'将工作表名为g列对应的工作表删除<br>next<br>application.displayalerts = true'开启提示<br>end sub

可以通过循环来删除工作簿里的工作表,但是工作簿至少保留一个工作表.

相关搜索:

网站地图

All rights reserved Powered by www.gsyw.net

copyright ©right 2010-2021。
www.gsyw.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com