excel vb如何实现若干工作表的取消自动筛选

Question

在一个excel表中，若干工作表都已经自动筛选过。如何利用vb编程实现取消这些工作表的自动筛选（若没有自动筛选过则跳到下一张工作表，直到最后一张工作表为止）？请写下源代码并解释其含义

Answer 1

Sub CancelAutoFilter()
For Each ASheet In ActiveWorkbook.Worksheets '循环工作簿里的每一个工作表
ASheet.AutoFilterMode = False '取消工作表的自动筛选状态
Next
End Sub本回答被提问者采纳

Answer 2

Sub 取消自动筛选()
For Each s In Application.Worksheets '遍历工作表
s.AutoFilterMode = False '取消自动筛选
Next
End Sub