Применение автофильтра в таблице с использованием VBA в Excel 2010

Question

У меня есть таблица с ценами и продуктами.Я хочу отфильтровать, исключив цену, если она равна 0,00 € или если она возвращает слово ERROR.Я делаю следующее:

Set tbl = Worksheets("FOR EXPORT").ListObjects("Table1")
'SET AUTOFILTER
tbl.Range.AutoFilter Field:=3, Criteria1:="<>*ERROR*", Operator:=xlOr, Criteria2:="<>0"

Ничего не фильтруется, ни критерий 1, ни критерий 2

Я также проверял критерий 2: = "<> 0,00 €" с тем же результатом.

Answer 1

Основная проблема в том, что вам нужен оператор AND, а не OR.Все в мире соответствует одному из этих условий - ИЛИ - так что ничего не будет отфильтровано.Вы также не включили бы форматирование как знак евро, если это не столбец текста.:

Field:=3, Criteria1:= "<>*Error*", Operator:=xlAnd, Criteria2:="<>0"