EXCEL根据日期删除条目

时间:2014-07-30 16:34:32

标签: excel excel-vba date filter vba

您好我目前有一个电子表格,其中有一个宏可以删除不符合我标准的条目

Sub AutoFilter_in_Excel()

Range("A1").AutoFilter Field:=5, Criteria1:="2"
Range("A1").AutoFilter Field:=10, Criteria1:="Bob"
End Sub

我如何添加删除过去四天内没有日期的条目以及我上面的现有宏的功能?

日期格式如下

2014年7月6日

由于

1 个答案:

答案 0 :(得分:0)

您可以使用NOW()的VBA功能获取当前日期,并且对于您减去的每一个数字,您获得前一天,因此,例如,NOW() - 4将等于今天的前4天

因此,使用此逻辑,您的代码可能变为:

Range("A1").AutoFilter Field:=??, Criteria1:=">=" & Now() - 4, _
                       Operator:=xlAnd, Criteria2:="<=" & Now()

显然,将??替换为您要为该过滤器设置的字段。

不应该担心日期在工作表中的格式如何 - 只要它们作为日期存储在Excel中而不是文本中,这个过滤器应该可以工作。

希望能有所作为!!