VBA -选择包含过去5年日期的单元格

Sub SelectCellsContainingPast5Years()
    Dim rng As Range
    Dim cell As Range
    Dim currentDate As Date
    Dim pastDate As Date
    
    ' 获取当前日期
    currentDate = Date
    
    ' 计算过去5年的日期
    pastDate = DateAdd("yyyy", -5, currentDate)
    
    ' 设置要搜索的范围
    Set rng = ActiveSheet.UsedRange
    
    ' 遍历每个单元格，选择包含过去5年日期的单元格
    For Each cell In rng
        If IsDate(cell.Value) Then
            If cell.Value >= pastDate And cell.Value <= currentDate Then
                cell.Select
            End If
        End If
    Next cell
End Sub