Filter 对象的count属性表示什么，为什么总是返回1

爱疯

1.rar (12.32 KB, 下载次数: 2)

2019-1-25 17:23 上传

点击文件名下载附件

如题？谢谢！



Sub test()
    Dim at As AutoFilter    '代表对指定工作表的自动筛选
    Dim fts As Filters
    Dim ft As Filter    '代表单个列的筛选

    If ActiveSheet.AutoFilterMode Then ActiveCell.AutoFilter    '使工作表筛选关闭
    Range("a1").CurrentRegion.AutoFilter Field:=8, Criteria1:="=a类"    '重新筛选

    Set at = ActiveSheet.AutoFilter    '必须在筛选打开时
    Set fts = at.Filters
    Debug.Print "几种筛选", fts.Count

    For Each ft In fts
        If ft.On Then    '如果打开指定的筛选，则该属性值为 True
            Debug.Print "筛选值", ft.Criteria1
            Debug.Print "操作符", ft.Operator
            Debug.Print "为什么是1?", ft.Count
        End If
    Next

End Sub

山菊花

    Range("a1").CurrentRegion.AutoFilter Field:=8, Criteria1:="=a类", Operator:=2, Criteria2:="=b类"

这样，ft.Count=2