每次动态过滤一年日期 - VBA宏

Question

每次运行宏时，我都要过滤一年的数据。但我定义了日期范围的变量。但无法在过滤条件中将＆gt; =和＆lt; =值与变量放在一起。

Sub OneYear()
ActiveSheet.AutoFilterMode = False
Cells.Select
Range("E1").Activate
Selection.AutoFilter

Dim FrmTime As Date
FrmTime = Now() - 365

Dim ToTime As Date
ToTime = Now()

ActiveSheet.Range("$A$1:$AJ$2621").AutoFilter Field:=6, Criteria1:=ToTime, Operator:=xlAnd, Criteria2:=FrmTime

Range("A1").Select

End Sub

Answer 1

将搜索引用到引号中：

criteria1: = "<= " & ToTime

为每个变量执行此操作。

还可以尝试使用宏录制按钮，然后手动执行您想要的操作。它会给你找到正确答案所需的线索。