Я хотел бы добавить дополнительный 3-й критерий к написанному мною коду, который автоматически фильтрует значения «RENT» и «emprent» в заданном диапазоне. Я хотел бы добавить «РТНА» в качестве третьего критерия.
Sheets("Filter").Activate
With ActiveSheet
.AutoFilterMode = False
.Range("P1:W10000").AutoFilter Field:=1, Criteria1:=Array("RENT", "rtna", _
"emprent"), _
Operator:=xlFilterValues
End With