excel如何批量取消多个文件中多个表的筛选状态

1、将上面的表述实例化：如图所示，在五座神山文件夹下的3个excel文件中均存在筛选数据，如果使用vba代码汇总数据时或过滤掉没有选中的数据，使得汇总的数据汇总不全。

2、新建一个宏文件，比如vba-2.xlsm，打开该文件，点击excel表上方的开发工具--Visual Basic，或者操作快捷键ALT+F11，打开vb编辑器。

3、鼠标右键单击Microsoft excel 对象，在弹出的对话框列表中选择插入--模块。

4、双击新建的模块，在右边的编辑区域中复制以下vb代码：Sub quxiaoshaixuan()'批量取消多个excel文件中多个sheet表的筛选状态Application.ScreenUpdating = False '关闭屏幕更新Set fso = CreateObject("scripting.filesystemobject") '文件系统对象Set ff = fso.getfolder(ThisWorkbook.Path & "\五座神山") 'ThisWorkbook.Path是当前代码文件所在路径，可以根据实际路径更改For Each f In ff.Files '遍历所有工作簿Set wb = Workbooks.Open(f) '打开工作簿For Each sht In wb.Worksheets '遍历所有工作表sht.AutoFilterMode = False '取消所有工作表的筛选状态Nextwb.Close True '关闭并保存工作簿NextApplication.ScreenUpdating = True '开启屏幕更新End Sub

5、可变更代码解释：Set ff = fso.getfolder(ThisWorkbook.Path & "\五座神山")根据实际情况更改路径名称； thisworkbook指的是vba-2.xlsm

6、关闭vb编辑器，通过开发工具--插入--表单按钮，并将按钮和宏命令关联起来。关联的方法见经验贴：https://jingyan.baidu.com/article/574c521951bc466c8c9dc16f.html

7、点击批量取消筛选按钮，执行vb程序后，再次查看其他五座神山文件下的3个excel文件，发现所有表的筛选状态均为取消状态。