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