Автофильтр VBA с несколькими критериями - PullRequest
0 голосов
/ 09 января 2020

Знаете ли вы, когда вы вводите значение в поле поиска автофильтра, а затем делаете второй поиск и выбираете добавить выбор в текущий фильтр? Как это можно сделать в коде VBA?

Я хочу, чтобы строки " 605 ", " 617 ", " 627"," 632"," 647"," 649"будут отфильтрованы в том же столбце, и появится любая ячейка, содержащая любое из указанных выше значений в фильтре, как логика ИЛИ c.

Sub FiltroPosição2()

 ColunaFiltro = ActiveCell.Column - ActiveSheet.AutoFilter.Range.Column + 1

 ActiveSheet.Range(ActiveSheet.AutoFilter.Range.Address).AutoFilter _
     Field:=ColunaFiltro, _
     Criteria1:=Array("*605*", "*617*", "*627*", "*632*", "*647*", "*649*")


End Sub
...