не удается получить желаемые результаты в автофильтре для множества критериев - PullRequest
Новая
       21

не удается получить желаемые результаты в автофильтре для множества критериев

0 голосов
/ 28 мая 2018

Я пытаюсь отфильтровать большой набор данных с использованием переменных условий на 88 различных листах.Среди одного листа мне нужен сборщик данных с FORD, NISSAN и TOYOTA в качестве значения поля.Ниже приведен код, который я использую.Я получаю правильные результаты, когда использую NISSAN и FORD или любые два в качестве комбинации.После добавления третьего ограничения я не получаю результатов на своих листах назначения. 

    Range("A1", Range("I" & Rows.Count).End(xlUp)).AutoFilter field:=9,_
    Criteria1:=Array("=*FORD*", "=*NISSAN*", "=*TOYOTA*"),_
    Operator:=xlFilterValues_
    Range("A1", Range("I" & Rows.Count).End(xlUp)).AutoFilter field:=3,_ 
    Criteria1:="Preauthorized Debit / Correction", Operator:=xlFilterValues_

    ActiveSheet.AutoFilter.Range.Copy
    ActiveSheet.Paste Destination:=Worksheets("Leased Payments").Range("A1")

Однако этот код работает 

    Range("A1", Range("I" & Rows.Count).End(xlUp)).AutoFilter field:=9,_
    Criteria1:=Array("=*FORD*", "=*NISSAN*"),_
    Operator:=xlFilterValues_
    Range("A1", Range("I" & Rows.Count).End(xlUp)).AutoFilter field:=3,_ 
    Criteria1:="Preauthorized Debit / Correction", Operator:=xlFilterValues_

    ActiveSheet.AutoFilter.Range.Copy
    ActiveSheet.Paste Destination:=Worksheets("Leased Payments").Range("A1")

Любой может объяснить, что я могу сделать здесь, чтобы получить надлежащий фильтр.Я получил желаемый результат, выполнив фильтр дважды, но у меня также есть промежуточный итог, который портит итоги, если я использую две разные операции копирования-вставки.Есть предложения?

...