关闭所有sheet的筛选状态

Sub RemoveAllAutoFilter()
'关闭所有sheet的筛选状态
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If sht.AutoFilterMode = True Then sht.AutoFilterMode = False
Next
End Sub