Sub testFilter()
Dim sh As Worksheet
For Each sh In Sheets()
If sh.FilterMode Then
Debug.Print sh.Name & "使用了高级筛选"
Else
If sh.AutoFilter Is Nothing Then
Debug.Print sh.Name & "未使用筛选"
Else
Debug.Print sh.Name & "存在自动筛选"
End If
End If
Next
End Sub
附件可下载参考
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024