此代码似乎过滤所有日期
Sub AdDate() On Error Resume Next ActiveSheet.ListObjects("TableAOrders").Range.AutoFilter Field:=1, Criteria1:=">" & Date On Error GoTo 0 End Sub
我想要过滤的所有日期都是过去的日期。有什么建议?
你从今天起开始约会;实际上日期并没有这样使用。
对于过去的日期,您的过滤器必须是:
Criteria1:=“<”&Now()