VBA筛选出小于30的日期

Question

有人知道一个vba代码可以过滤excel中所有超过30天的数据吗？这意味着它将显示超过30天的项目。相当标准的数据集。记录的姓名、时间和日期列。我只想打开工作簿，过滤掉30天以内的人。提前感谢！

Answer 1

Dim sht As Worksheet
Set sht = Worksheets("Sheet1")
With sht.Range("A1").CurrentRegion
.AutoFilter
.AutoFilter Field:=1, Criteria1:="<" & CLng(Date - 30)
End With