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

如题所述

第1个回答 2020-01-06

按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，确定！
去试一试吧！！！

第2个回答推荐于2019-08-12

代码及注释如下：
Sub shanchu()
Application.DisplayAlerts = False'关闭提示，否则每删除一个非空工作表，都会出现提示
For i = 2 To [g65536].End(3).Row'i从2到G列最后一个非空行数循环
Sheets(Cells(i, 7).Delete'将工作表名为G列对应的工作表删除
Next
Application.DisplayAlerts = True'开启提示
End Sub本回答被网友采纳

相似回答

EXCEL中如何用VBA删除多个工作表?答：打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面。选择如下图所示的下拉菜单，选择“worksheet”。选择如下图所示的下拉菜单，选择对应的触发模式。这里我们选择BeforeDoubleClick，意思就是说：在本工作表鼠标双击（之前），将触发下面的代码程序。（activate意...

Excel VBA批量删除指定sheet,sheet名称为shuju 需要完整代码,完整代码...答：Sub1()Dim filepath As Stringfilepath = "d:\test" '指定目录Dim file As Stringfile = Dir(filepath & "\" & "*.xlsm") '提取目录下所有文件名，注意不会查询子目录。Do While file <> "" Dim Wb As Workbook Wb = Workbooks.Open(filepath & "\" & file)'打开文件 Di...

如何用excel代码批量删除多个excel工作表的vba代码答：（1）把这100个excel文档放在同一个文件夹；（2）在其他任何地方新建一个excel，名称任意；（3）在新建的这个excel里添加以下代码（用你的代码改的）；（4）在“宏安全性”设置里勾上“信任对VBA工程对象模型的访问”，然后运行即可 Sub 批量删除vba代码()'On Error Resume Next '这里把它注释是...

Excel VBA 删除指定工作表与模块答：1.点按快速启动栏excel 程序图标进入excel 界面点击选中任意单元格然后按alt+f11 进入vbe界面。2.点击菜单栏插入命令在弹出的活动菜单中点按模块命令。3.另一种方式插入模块的方法可以在工程资管管理器中鼠标点击空白处右键单击鼠标在弹出的快捷菜单中选择插入命令二级菜单中选择模块命令。4.如图...

介绍在excel删除名称的两种方法答：利用VBA编写一个小程序，可以一次性删除工作簿中的所有名称。下面的程序就是一次性删除工作簿中的所有名称，无论这些名称是工作簿级的，还是工作表级的，都使用。首先按快捷键，打开VBA编辑器窗口，单击菜单“插入”→“模块”插入一个新模块，默认情况下为“模块1”，然后在模块1的代码窗口中输入以下...

VBA批量删除excel中的工作表答：单击SHEET1，按住SHIFT再单击SHEET15，会将SHEET1到SHEET15全选定，然后右键单击任何一个选中的SHEET，删除

批量清除多个工作簿中的工作表指定区域的内容和格式ExcelVBA程序视频时间 10:20

如何快速删除excel工作簿中所有已定义的名称答：一、使用VBA代码：在Excel 2003中的“定义名称”对话框中，可以查看并逐个删除名称，但如果定义的名称非常多就会很繁琐。用下面的VBA代码可以一次删除工作簿中的所有定义名称。方法是：1.按快捷键Alt+F11，打开VBA编辑器。在右侧的代码窗口中输入：Sub DeleteAllNames()Dim nm As Name For Each nm In...

如何用vba语言 删除指定工作表答：Sub stopDeleSheet()Application.CommandBars(1).Controls(2).Controls(12).Enabled = FalseEnd Sub运行后效果如图，如果放在工作簿打开事件中，就能对该工作簿自动生效。你也可以把这句代码放在模块中作为Excel加载项，这样就可以对所有Excel文档生效了 ...

大家正在搜

navicat怎么用命令批量删除 vba批量删除工作簿中代码 vba批量删除工作表 vba批量删除指定文件 vba批量删除指定行批量删除命令安卓批量删除命令批量删除指定多文件 vba批量删除信息