在使用excel时，会经常碰到汇总多个文件中的数据的情况，使用vba汇总数据是非常方便的；但如果汇总的数据表中存在筛选数据时，你会发现数据汇总不全；那么如何在不打开excel文件时，批量对多个文件中多个sheet表取消筛选状态呢？工具/原料moreexcel2013方法/步骤1/7分步阅读

将上面的表述实例化：

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

2/7

新建一个宏文件，比如vba-2.xlsm，打开该文件，

点击excel表上方的开发工具--Visual Basic，或者操作快捷键ALT+F11，打开vb编辑器。

3/7

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

4/7

双击新建的模块，在右边的编辑区域中复制以下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 取消所有工作表的筛选状态

Next

wb.Close True 关闭并保存工作簿

Next

Application.ScreenUpdating = True 开启屏幕更新

End Sub

5/7

可变更代码解释：

Set ff = fso.getfolder(ThisWorkbook.Path \五座神山)

根据实际情况更改路径名称；之译 thisworkbook指的是vba-2.xlsm

6/7

关闭vb编辑器，通过开发工具--插入--表单按钮，并将按钮和宏命令关联起来。

关联的方法见经验贴：

https://jingyan.baidu.com/article/574c521951bc466c8c9dc16f.html

7/7

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

注意事项

高版本excel需建立.xlsm格式的文件，支持宏命令运行。

EXCEL批量取消筛选筛选数据汇总不全