VBA快速取消工作簿中各工作表的自动筛选

当工作簿中的工作表数量较多时，要快速取消各个工作表中的自动筛选可以下面的VBA代码。   
    1.按Alt+F11，打开VBA编辑器。
    2.在代码窗口中输入下列代码
    Sub RemoveAllAutoFilter()
    Dim sht As Worksheet
    For Each sht In ActiveWorkbook.Worksheets
      If sht.AutoFilterMode = True Then sht.AutoFilterMode = False
    Next
    End Sub
    3.关闭VBA编辑器，按快捷键Alt+F8，打开“宏”对话框，选择包含“RemoveAllAutoFilter”的宏名，并单击“执行”按钮。