当我们遇到一个excel有很多个数据表，当需要把全部数据表都取消筛选时，如果逐个表去手动取消，效率比较低。下面我们用VBA实现一个快捷的实现方法，代码如下：

Option Explicit

Sub 取消筛选()
    Dim i As Integer
 
    '遍历工作表，并取消筛选
    For i = 1 To Worksheets.Count
        Application.Worksheets(Worksheets(i).Name).Activate
        Rows("1:1").Select
        Selection.AutoFilter
        Next
End Sub