1、将上述内容实例化：如图所示，vba.xlsm文件中共有6个工作表，现在除了“神山数据总表”中的数据不动外，其他几个工作表中的数据，需要将第3行之后的数据全部删掉
3、鼠标右键单击Microsoft excel 对象，在弹出的对话框列表中选择插入--模块。
5、可以变更的代码部分：If sht.Name <> &孥恶膈茯quot;神山数据总表" Then“神山数据总表” 不进行帏渍栉啻删除的表名，若都删除，可以去掉if判断sht.Range("A3:D10000")"A3:D10000"删除的范围，可自己指定。
6、关闭vb编辑器，通过开发工具--插入--表单按钮，并将按钮和宏命令关联起来。关联的方法见经验贴：https://jingyan.baidu.com/article/574c521951bc466c8c9dc16f.html
