关于Range.AutoFilter方法与Filter对象属性的异常问题问询

场景背景 #

假设Excel工作表A列包含2022年每月1日的日期，第1行为文本表头。选中A1单元格后，通过「开始>编辑>筛选」启用自动筛选，开启宏录制器后手动筛选1月、3月、5月，得到录制代码：

ActiveSheet.Range("$A$1:$A$13").AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(1, "1/1/2022", 1, "3/1/2022", 1, "5/1/2022")

核心问题与现象 #

问题1：筛选日期列表的存储位置 #

手动完成筛选后，执行以下代码会输出True、7（xlFilterValues）和0：

With ActiveSheet.AutoFilter.Filters(1)
    Debug.Print .On, .Operator, .Count
End With

但VBA调试时发现ActiveSheet.AutoFilter.Filters(1).Criteria2和ActiveSheet.AutoFilter.Filters(1).Criteria1均未定义——最初通过Criteria2传入的筛选日期列表存储在哪里？

问题2：Filter.Operator属性异常 #

清除筛选后运行上述录制的宏，筛选功能可正常生效，但执行同样的Debug代码却输出True、0和0，而非预期的True、7和0——Filter.Operator属性为何异常？为何Range.AutoFilter方法未按预期填充Filter对象的属性？

问题解析 #

1. 筛选日期列表的存储位置 #

手动筛选或宏录制代码设置的多日期筛选值，并未存储在Filter.Criteria1或Criteria2属性中，而是保存在**工作表的隐藏名称（Hidden Name）**内。

可通过以下代码查看对应隐藏名称及关联的筛选值：

Dim nm As Name
For Each nm In ThisWorkbook.Names
    If InStr(nm.Name, "_xlfn._xlws.") > 0 And InStr(nm.RefersTo, "FilterDatabase") > 0 Then
        Debug.Print nm.Name, nm.RefersTo
    End If
Next nm

这类隐藏名称会随筛选状态自动生成，清除筛选后会被Excel自动删除。

2. Filter.Operator属性异常的原因 #

这是Excel VBA的已知设计特性：通过Range.AutoFilter方法直接传入xlFilterValues和Criteria2数组设置筛选时，Excel仅执行筛选动作，但不会将参数同步更新到Filter对象的Operator、Count及Criteria系列属性中。

只有通过手动操作筛选界面设置的筛选条件，才会正确填充Filter对象的这些属性。若需在代码中验证筛选是否生效，建议直接检查可见单元格的数量或内容，而非依赖Filter对象的属性值。

内容的提问来源于stack exchange，提问作者J. Woolley