當工作簿中的工作表數量較多時，要快速取消各個工作表中的自動篩選可以下面的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”的宏名，并單擊“執行”按鈕。