VBA / Excel - 按日期范围排序

Question

我正在尝试使用VBA按日期范围对Excel工作表进行排序。我需要过滤当前日期一周内的所有条目。

工作表排列在列（A到S）中。列'I'存储我想要过滤的日期。

以下是我尝试过的最新代码（我尝试了一些变化......但是无法弄清楚）。

        DDLogVerbose(@"=========tableView  %f", tableView.sectionHeaderHeight);

提前感谢您的帮助。

GTD

Answer 1

试试这个：

 ActiveSheet.Range("$A$1:$S$" & ActiveSheet.UsedRange.Rows.Count).AutoFilter Field:=9, Criteria1:=">" & Format(Date - 7, "mm/dd/yyyy")

Answer 2

试试这个：

Dim A As Date
A = Date

With ActiveSheet
    .Range("$A:$S").AutoFilter Field:=3, Criteria1:=">" & A - 7
End With