excel如何批量删除指定工作表以外其他表的内容

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程序后，再次查看其他五个表中的内容时，除了表头的前两行外，其他行的数据都已经被删掉了。