无法在Autofilter中获得所需的结果以获得一系列标准

时间:2018-05-28 14:48:21

标签: excel vba excel-vba autofilter

我正在尝试使用可变条件将大型数据集过滤到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")

任何人都可以解释我在这里可以做些什么来获得适当的过滤器。我通过两次执行过滤器获得了期望的结果,但是如果我使用两个不同的复制粘贴操作,我还有一个小计可以搞乱总数。有什么建议吗?

0 个答案:

没有答案