将AutoFilter与Criteria一起使用

时间:2012-05-18 18:03:01

标签: excel-vba vba excel

我已经碰到了这个砖墙,但是我希望有人可以帮助我使用自动过滤器和高级过滤器(但不能确定这个)我有一个包含日期的列也包含值' NULL'和另一个包含数字加上值'NULL'的列。在第二列中可能存在重复的数字。

我对第一列的标准是排除值'NULL',但也要排除小于14的日期。第二列的标准是包括所有'NULL'值,但只有数字才能显示唯一的数字(或正确的说话)。

我不确定如何做到这一点,我无法在互联网上找到任何东西。

有人可以帮忙吗?

1 个答案:

答案 0 :(得分:1)

我使用宏录制器来获取此代码:

ActiveSheet.Range("$A$1:$B$6").AutoFilter Field:=2, Criteria1:="<>NULL", _
    Operator:=xlAnd, Criteria2:="<5/14/2012"

那就是说,你需要这样做:

   ActiveSheet.Range("$A$1:$B$6").AutoFilter Field:=2, Criteria1:="<>NULL", _
        Operator:=xlAnd, Criteria2:="<" & Date - 14

对于第二个过滤器。将列复制到空白列并使用RemoveDuplicates函数获取不同的数字列表。

Intersect(UsedRange, Range("A1")).EntireColumn.Copy Range("Z1")
Intersect(UsedRange, Range("Z1")).EntireColumn.RemoveDuplicates(more args here that you will need to fill)