Пытаетесь использовать третий критерий для автофильтра, получив ошибку компиляции?

Является ли синтаксический предел на самом деле всего двумя? Поэтому я должен либо использовать массив, либо просто повторить блок кода? Ошибка в Criteria3:= в моем .AutoFilter FieldCompile error: Named argument not found . Я просто удивлен, что он ограничен двумя. В чем причина этого?

 Sub CleanData() 'B bbb boilerplate! Dim sht As Worksheet, lastrow As Long, myrange As Range 'Set references up-front Set sht = ThisWorkbook.Worksheets("MySheet") 'Identify the last row and use that info to set up the Range With sht lastrow = .Cells(sht.Rows.Count, "A").End(xlUp).Row Set myrange = .Range("A2:AS" & lastrow) End With Application.DisplayAlerts = False With myrange 'Apply the Autofilter method to the first column of .AutoFilter Field:=26, _ Criteria1:="Operator Error", _ Operator:=xlOr, _ Criteria2:="Duplicate", _ Operator:=xlOr, _ Criteria3:="Training/Test" 'ERROR HERE 'Delete the visible rows while keeping the header On Error Resume Next .Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Rows.Delete On Error GoTo 0 End With Application.DisplayAlerts = True 'Turn off the AutoFilter With sht .AutoFilterMode = False If .FilterMode = True Then .ShowAllData End If End With End Sub 

Criteria3 не является допустимым параметром., Но чтобы обойти это, вы можете использовать массив:

(Фильтрация по нескольким состояниям)

 Criteria1:=Array("IL", "IN", "MI", "OH", "WV"), Operator:=xlFilterValues 
Interesting Posts

Перенести столбец excel, в зависимости от значения других столбцов

Excel Как конвертировать datetime в только дату – m / d / YYYY формат

Подключение Excel к Visio

Загрузка Windows 10 – неправильный тип

VBA double для Loop работает очень медленно

Как подсчитывать непустые ячейки, которые зависят от другого критерия / столбца?

Именованный диапазон с адресом из другого именованного диапазона

VBA от excel не может автоматически подключать две формы

Excel: сохраняйте формулу, даже если я удаляю строку

DBNull в непустой ячейке при чтении файла Excel через OleDB

Сохранять формат номера при копировании очень большого количества цифр из текстового поля

Обновить таблицу SQL из файла excel с помощью vb.net

Несоответствие типа 13 в функции поиска

Excel 2007 – Применение синтаксиса рабочей книги VBA к коду, используемому в Рабочем листе, – получение разных результатов

Автоматическая замена макроса Excel

Давайте будем гением компьютера.