VBA：如何为同一字段设置多条件AutoFilter？排查筛选异常

我来帮你排查这个AutoFilter的问题，看起来你遇到的情况挺典型的，咱们一步步来分析和解决：

可能的原因及对应解决方案 #

1. 最后一行（lastrow）计算不准确 #

你当前用Application.CountA(Range("A6:A" & Rows.Count)) + 5来获取数据最后一行的行号，但这个方法有个缺陷：如果A列从第6行开始存在空白单元格，CountA会漏掉这些行，导致计算出的lastrow和实际数据行不符，进而影响筛选范围的准确性。

换成更可靠的获取方式，从A列最底部往上找第一个非空单元格：

lastrow = calc.Range("A" & calc.Rows.Count).End(xlUp).Row

另外建议把Integer换成Long类型，避免行号超过32767时出现溢出错误。

2. 数据类型不匹配（最可能的核心问题） #

这是多条件筛选最容易踩的坑！如果你的第4列（对应代码里的Field:=4）单元格是文本格式，但你在Criteria1里用的是数值数组（比如3410是数字），Excel的AutoFilter会认为文本和数值是完全不同的内容，自然匹配不到任何结果，最终导致所有数据行被隐藏；而当你去掉Operator:=xlFilterValues时，Excel只会取数组的最后一个元素（1445）作为单一筛选条件，刚好这两行的单元格内容能和这个值匹配，所以只显示这两行。

解决方法二选一：

• 方案一：把筛选条件改成字符串数组
  直接将数组里的数值改成字符串形式，匹配文本格式的单元格：

  Criteria1:=Array("3410", "3420", "3440", "3450", "3490", "1445"), _
  Operator:=xlFilterValues
  

• 方案二：将目标列转换为数值格式
  选中第4列（D列），右键选择「设置单元格格式」→「数值」，再通过「数据」选项卡的「分列」功能快速转换（点击分列→连续两次下一步→完成），把文本格式的内容批量转换成数值。

修正后的完整代码 #

Dim calc As Worksheet
Dim lastrow As Long ' 使用Long避免行号溢出问题
Set calc = ThisWorkbook.Sheets("Calc")
' 准确获取数据最后一行
lastrow = calc.Range("A" & calc.Rows.Count).End(xlUp).Row
' 应用多条件筛选，确保数据类型匹配
calc.Range("A5:T" & lastrow).AutoFilter _
    Field:=4, _
    Criteria1:=Array("3410", "3420", "3440", "3450", "3490", "1445"), _
    Operator:=xlFilterValues

补充说明：为什么去掉Operator参数会只显示最后一个条件？因为当不指定Operator时，AutoFilter不会将数组识别为多条件集合，而是只会取数组的最后一个元素作为单一筛选条件，所以必须加上Operator:=xlFilterValues才能触发多条件匹配逻辑。

内容的提问来源于stack exchange，提问作者AP1