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

Question

每次运行宏时，我都必须过滤一年的数据。但我定义了日期范围的变量。但无法将具有变量的 >= 和

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

结束子

Answer 1

将您的搜索放在引号中：

criteria1: = "<= " & ToTime

对每个变量执行此操作。

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