如果允许进行筛选,则返回一个 AutoFilter 对象。如果禁止进行筛选,则返回 Nothing。只读。
若要为工作表创建一个 AutoFilter 对象,必须先手动或使用 Range 对象的 AutoFilter 方法启用工作表中某个区域上的自动筛选功能。
下面的示例将变量设置为工作表 Crew 上的筛选区域中第一列的筛选 Criteria1 属性值。
With Worksheets("Crew")
    If .AutoFilterMode Then
        With .AutoFilter.Filters(1)
            If .On Then c1 = .Criteria1
        End With
    End If
End With