VBA过滤掉小于30的日期

【问题标题】：VBA filter out dates less than 30VBA过滤掉小于30的日期
【发布时间】：2018-12-13 22:05:11
【问题描述】：

有没有人知道在 excel 中过滤所有超过 30 天的数据的 vba 代码？这意味着它将显示超过 30 天的项目。相当标准的数据集。记录的姓名、时间和日期列。我只想打开工作簿并过滤掉不到 30 天的任何人。提前致谢！

【问题讨论】：

普通数据过滤器会将其过滤掉。

【解决方案1】：

Dim sht As Worksheet
Set sht = Worksheets("Sheet1")

With sht.Range("A1").CurrentRegion
    .AutoFilter
    .AutoFilter Field:=1, Criteria1:="<" & CLng(Date - 30)
End With

【讨论】：

谢谢@Michael Rosa