使用VBA进行日期筛选

Sub DateFilter()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim startDate As Date
    Dim endDate As Date
    
    ' 设置筛选的起始日期和结束日期
    startDate = #1/1/2022#
    endDate = #12/31/2022#
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 获取需要筛选的数据范围
    Set rng = ws.Range("A1:A10") ' 假设需要筛选的数据在A列的A1:A10单元格中
    
    ' 遍历数据范围，筛选符合日期条件的数据
    For Each cell In rng
        If cell.Value >= startDate And cell.Value <= endDate Then
            cell.EntireRow.Hidden = False ' 显示符合条件的行
        Else
            cell.EntireRow.Hidden = True ' 隐藏不符合条件的行
        End If
    Next cell
End Sub