當(dāng)工作簿中的工作表數(shù)量較多時(shí),要快速取消各個(gè)工作表中的自動(dòng)篩選可以下面的VBA代碼。
1.按Alt+F11,打開(kāi)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.關(guān)閉VBA編輯器,按快捷鍵Alt+F8,打開(kāi)“宏”對(duì)話框,選擇包含“RemoveAllAutoFilter”的宏名,并單擊“執(zhí)行”按鈕。