Автофильтр VBA не равен

Question

Sub Macro1()
‘Remove all except validated
ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:<>"Validated"

Activesheet.Range("$A$2:$O$99999").SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete

ActiveSheet.ShowAllData
 End sub

Как заменить "не равно" в VBA?<> не работает.

Answer 1

Если вы хотите, чтобы критерии фильтра исключали «Проверено», попробуйте изменить эту строку:

ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:<>"Validated"

на

ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:="<>Validated"

Обратите внимание, что = in Criteria:=не имеет ничего общего с вашими критериями фильтра.(Это относится к VBA и тому, как вы предоставляете аргумент для именованного параметра.)