Excel VBA中的自动筛选-日期相等(=31.07.2021)与较小日期(< 31.07.2021)不同

Sub AutoFilterByDate()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置工作表和筛选范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名称
    Set rng = ws.Range("A1:D10") ' 替换为实际的筛选范围
    
    ' 清除之前的筛选
    ws.AutoFilterMode = False
    
    ' 应用筛选条件
    rng.AutoFilter Field:=1, Criteria1:="=31.07.2021" ' 替换为实际的日期
    
    ' 或者使用以下代码筛选较小日期
    ' rng.AutoFilter Field:=1, Criteria1:="<31.07.2021" ' 替换为实际的日期
    
End Sub