Сочетание Vba фильтров

Обновить

April 2019

Просмотры

54 раз

1

Кто-нибудь знает, как объединить эти две строки, так что, когда я запускаю строки кода, которые содержат апельсины не появляются. На данный момент, только первый фильтр работает. Так я получаю все яблоки, а второй фильтр не делает.

Заранее спасибо!

ActiveSheet.Range("B4", Range("BT4").End(xlDown)).AutoFilter Field:=24, 
Criteria1:= "Apples"

ActiveSheet.Range("B4", Range("BT4").End(xlDown)).AutoFilter Field:=20, 
Criteria1:="<>Oranges", Operator:=xlAnd

Edit: Решение - то, что мне нужно сделать, чтобы поставить «*» вокруг апельсинов, потому что я хотел, чтобы отфильтровать все, что содержало слово «апельсины».

With ActiveSheet
        .AutoFilterMode = False
        .Range("B4", Range("BT4").End(xlDown)).AutoFilter
        .Range("B4", Range("BT4").End(xlDown)).AutoFilter field:=24, 
        Criteria1:="Apples"
        .Range("B4", Range("BT4").End(xlDown)).AutoFilter field:=20, 
        Criteria1:="<>*Oranges*"
End With

0 ответы