尝试使用数值数组时，自动过滤方法失败

Question

我想循环使用一组数值来用于Criteria1参数并显示过滤后的结果。但是，过滤器不使用下面的代码返回任何内容。 有人可以提供任何建议吗？欢呼声。

Sub test()

    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)
        arrNom(i) = "=" & arrNom(i)
        Sheet4.Range("A1").AutoFilter _
        Field:=1, _
        Criteria1:=arrNom(i), _ 
        Operator:=xlFilterValues
    Next i

End Sub

Answer 1

我设法通过添加通配符来解决它。 arrNom（i）=“*”＆amp; arrNom（i）＆amp; “*”。
宏录制器在“...”中添加了整个字符串，我假设我可以在其中添加我需要过滤的值。