使用宏今天和过去日期过滤日期

Question

我正在尝试制作一个宏来过滤 F 列中的日期，以显示今天的日期和任何过期日期，例如过去的日期，但同时删除带有未来日期的整行我似乎无法得到它正在工作。

example:Today 的日期是 9/9/2020

9/7/2020 - 演出

9/8/2020 - 演出

9/9/2020 - 演出

9/10/2020 - 删除 enter image description here

9/11/2020 - 删除

Sub Macro11() Macro11 Macro
Rows("1:1").Select
Range("B1").Activate
Selection.AutoFilter
Selection.AutoFilter
ActiveSheet.Range("$A:$F5").AutoFilter Field:=6, Criteria1:=1, _
    Operator:=11, Criteria2:=0, SubField:=0
ActiveSheet.Range("$A:$F5").AutoFilter Field:=6, Criteria1:="<(NOW)", _
    Operator:=xlAnd
Range("G228").SelectEnd Sub

Answer 1

@Brian Russell 为什么要使用自动过滤器？！？您只需向后循环每个单元格，如果日期是 > 今天，您将删除该行。一个基本代码（我想你的日期列是 F，就像你的示例图像一样）

Sub delfutureDays()
Dim cl As Long
For cl = Range("F2").End(xlDown).Row To 2 Step -1
    If Cells(cl, "F") > Date Then Rows(cl).EntireRow.Delete
Next
End Sub

使用宏今天和过去日期过滤日期

Filter Date with Macro Today and Past Dates

excel

vba

date

datefilter