Несколько условий фильтрации с использованием VBA

Question

У меня есть образец excel:

Я хочу отфильтровать значения, когда выполняются следующие условия:

• Если UCase (Функция) <> "BTM" и результат <> ""

Мой код:

        Dim range_to_filter4 As Range
        Set range_to_filter4 = .Range("A:G")
        range_to_filter4.AutoFilter Field:=2, Criteria1:="<>BTM", Operator:=xlAnd, Field:=3, Criteria2:=""

Моя проблема в том, что я не могу получить ожидаемый результат. Запись не найдена. В моем примере мне нужно получить всю строку для PKUMAR168. Что-то не так с моим кодом? Спасибо за вашу помощь.

Answer 1

Вы можете попробовать это, может быть, это поможет.

Set src_sheet = ThisWorkbook.Sheets("Your_Sheet_Name")

src_sheet.Range("A:G").AutoFilter Field:=2, Criteria1:="<>BTM"
src_sheet.Range("A:G").AutoFilter Field:=3 Criteria1:=""

Answer 2

Используйте оператор with

With Range("a:g")
    .AutoFilter Field:=2, Criteria1:="<>BTM"
    .AutoFilter Field:=3, Criteria2:=""
End With