使用数值数组时Autofilter方法失效问题求助

咱们先拆解你代码里的几个核心问题：

1. 循环调用AutoFilter会覆盖筛选结果：你现在的循环每次都会重置AutoFilter设置，最后只会保留数组最后一个值的筛选，根本达不到一次性筛选所有目标值的效果。
2. 多余的"="前缀导致类型不匹配：如果A列数据是数值类型，给数组元素加"="会把它们变成字符串，Excel没法匹配数值单元格；就算是文本类型，也不需要加"="，直接用精确匹配就够了。
3. xlFilterValues用法错误：这个操作符是用来一次性筛选多个值的，完全不需要循环，直接把目标数组传给Criteria1就行。

修正后的多值筛选代码 #

Sub test()
    Dim arrNom As Variant
    ' 直接定义目标数值数组，无需添加"="前缀
    arrNom = Array(693.715, 710.875, 722.55, 730.605, 732.75, 732.82)
    
    ' 先清除现有筛选（可选，避免之前的筛选状态干扰）
    If Sheet4.AutoFilterMode Then Sheet4.AutoFilterMode = False
    
    ' 一次性筛选所有目标值
    Sheet4.Range("A1").AutoFilter _
        Field:=1, _
        Criteria1:=arrNom, _
        Operator:=xlFilterValues
End Sub

额外场景说明 #

如果你的A列数据是文本类型（比如数值被存成了文本格式），那数组元素要保留字符串格式：arrNom = Array("693.715", "710.875", ...)，依然不需要加"="。

要是你需要逐个查看每个值的筛选结果（而非一次性显示所有），那要去掉Operator:=xlFilterValues，并且每次循环前清除之前的筛选：

Sub testSingleValue()
    Dim arrNom() As Variant
    Dim i As Integer
    arrNom = Array(693.715, 710.875, 722.55, 730.605, 732.75, 732.82)
    
    For i = LBound(arrNom) To UBound(arrNom)
        ' 清除上一次的筛选
        If Sheet4.AutoFilterMode Then Sheet4.AutoFilterMode = False
        
        ' 单个值筛选，无需xlFilterValues
        Sheet4.Range("A1").AutoFilter _
            Field:=1, _
            Criteria1:=arrNom(i)
        
        ' 这里可以添加处理当前筛选结果的代码，比如复制到其他位置
        ' Sheet4.Range("A:A").SpecialCells(xlCellTypeVisible).Copy Sheet5.Cells(1, i+1)
    Next i
End Sub

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