Excel VBA筛选出小于30的日期_Excel_Vba_Filter

Excel VBA筛选出小于30的日期

excel vba filter

Excel VBA筛选出小于30的日期,excel,vba,filter,Excel,Vba,Filter,有人知道一个vba代码，它可以过滤excel中所有超过30天的数据吗？这意味着它将显示超过30天的项目。非常标准的数据集。记录的名称、时间和日期列。我只想打开工作簿，过滤掉30天以内的任何人。提前谢谢 Dim sht作为工作表 Dim sht As Worksheet Set sht = Worksheets("Sheet1") With sht.Range("A1").CurrentRegion .AutoFilter .AutoFilter Field:=1, Criter

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

Dim sht作为工作表
Dim sht As Worksheet
Set sht = Worksheets("Sheet1")

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

设置sht=工作表（“表1”）
带短量程（“A1”）.电流区域
.自动过滤器
.AutoFilter字段：=1，准则1:=“正常的数据过滤器会将其过滤掉。谢谢@Michael Rosa