Метод автофильтра не работает при попытке использовать массив числовых значений

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) = "*" & arrNom (i) & "*".
Макро-рекордер добавил всю строку внутри "...", я предположил, что могу добавить в них значения, по которым нужно отфильтровать.