1、将上述内容实例化：如图所示，vba.xlsm文件中共有6个工作表，现在除了“神山数据总表”中的数据不动外，其他几个工作表中的数据，需要将第3行之后的数据全部删掉
2、点击excel表上方的开发工具--Visual Basic，或者操作快捷键ALT+F11，打开vb编辑器。
3、鼠标右键单击Microsoft excel 对象，在弹出的对话框列表中选择插入--模块。
4、在新建的模块右边的编辑区域中复制以下vb代码：Sub deltt()' e垓矗梅吒xcel如何批量删除指定表以外其他工作表的内容Dim sht As Worksheet '建立变量For Each sht In Worksheets '建立for循环，遍历所有工作表If sht.Name <> "神山数据总表" Then '若表名不等于“神山数据总表”，执行下面代码sht.Range("A3:D10000").ClearContents '删除工作表中指定行。End IfNextEnd Sub
5、可以变更的代码部分：If sht.Name <> &孥恶膈茯quot;神山数据总表" Then“神山数据总表” 不进行帏渍栉啻删除的表名，若都删除，可以去掉if判断sht.Range("A3:D10000")"A3:D10000"删除的范围，可自己指定。
6、关闭vb编辑器，通过开发工具--插入--表单按钮，并将按钮和宏命令关联起来。关联的方法见经验贴：https://jingyan.baidu.com/article/574c521951bc466c8c9dc16f.html
7、点击删除按钮，执行vb程序后，再次查看其他五个表中的内容时，除了表头的前两行外，其他行的数据都已经被删掉了。
