我怎样才能删除筛选多个Excel文件与视觉基本？

我有大约500个文件的Excel和大部分有filter。 现在我需要把所有的信息放在一张纸上。 我发现如何把所有在一张纸，但filter的书只有复制信息与filter，我需要所有。

所以，我需要删除所有的Excel文件的filter。 重要（不是所有的文件都有filter）

谢谢你的帮助 ;）

Answer 1

在复制数据之前，您应该使用：

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If 

这将closuresfilter。

Answer 2

将删除所有打开的工作簿上的任何filter，玩得开心:)

 sub try_this() dim wb as workbook dim sh as worksheet for each wb in workbooks for each sh in wb.worksheets sh.AutoFilterMode = False next next end sub