有批量生成工作表
自然也就有对应的批量删除工作表
表要是多
一个一个删除
确实挺累的
比如
对着工作表《王五》
【右键】-【删除】
弹出提示
点删除
确实也挺麻烦的
******我是分割线******
这都是些批量性重复的操作
函数公式行吗?不行
这种事情就不要难为函数公式了
用VBA杀上去
操作步骤:
1、按<ALT+F11>组合键打开VBE
2、单击【插入】-【模块】
3、双击【模块1】
4、复制代码<CTRL+C>
5、粘贴代码<CTRL+V>
6、运行代码<F5>
或者按图①②操作运行
为了方便可以插入一个按钮
【开发工具】-【插入】-【按钮】
鼠标左键拖一个矩形
对着按钮
【右键】-【指定宏】
弹出【指定宏】对话框
选择【宏名】test004
【确定】
这样就可以直接点按钮运行代码了
也就是传说中的一键搞定
代码如下:
'批量删除工作表
Sub test004()
Dim Sh As Worksheet '定义
Application.DisplayAlerts = False '防提示 一对
'遍历工作表
For Each Sh In Worksheets
If Sh.Name <> "汇总" Then '判断工作表名称,不是汇总就删了
Sh.Delete '删除工作表
End If
Next
Application.DisplayAlerts = True
End Sub