Исключения автофильтра с более чем двумя критериями

Я пытаюсь использовать свой макрос для фильтрации моих данных, я хочу разрешить все, кроме трех критериев. Мой код работает с двумя критериями, но он не позволит мне добавить третий, и по какой-то причине я не могу использовать функцию Criteria1: = Array. Мой код:

wsO.Range("A1").AutoFilter Field:=36, Criteria1:="<>Accept as Medicare product", Criteria2:="<>Accept as NJ Medicaid product", Criteria3:="<>Accept as Medicaid product", Operator:=xlFilterValues 

Который возвращает аргумент имени не найден (потому что я считаю, что вы можете добавить только 2 критерия таким образом)

Я также пробовал:

 wsO.Range("A1").AutoFilter Field:=36, Criteria1:=Array( _ "<>Accept as Medicare product", "<>Accept as NJ Medicaid product", "<>Accept as Medicaid product"), Operator:=xlFilterValues 

Который возвращает мне ошибку: Run time Error '1004': Определенная пользователем или объектная ошибка.

Вы можете перемещаться по диапазону и скрывать строки.

 Sub OhYa() Dim rws As Long Dim rng As Range Dim f As Range Dim a As String, b As String, c As String a = "Accept as Medicare product" b = "Accept as NJ Medicaid product" c = "Accept as Medicaid product" rws = Cells(Rows.Count, "A").End(xlUp).Row Set rng = Range("A2:A" & rws) Application.ScreenUpdating = 0 For Each f In rng.Cells If f <> a And f <> b And f <> c Then f.EntireRow.Hidden = 1 End If Next f End Sub 
  • Как я прохожу через Autofilter, используя VBA в excel?
  • Удалить строки из excel, используя значения из столбца на другом листе?
  • VBA AutoFilter скрывает все строки, включая те, которые соответствуют критериям
  • Могу ли я установить функцию в качестве критерия в автофильтре в excel?
  • Кодирование текстовых фильтров в Excel 2007
  • Условный фильтр Excel VBA
  • запустить макрос на AutoFilter и отобразить данные на новом листе
  • Использование массива для критериев автофильтрации
  • Autofilter, затем скопировать и вставить диапазон
  • Создание кода автофильтра
  • Excel VBA Удалить строку, если три значения выполнены, или если одно из трех значений пустым
  • Давайте будем гением компьютера.