在excel中如何使用vba命令实现批量删除指定名称的工作表?
发布网友
共2个回答
热心网友
按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，确定！
去试一试吧！！！
热心网友
代码及注释如下：
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
