excel vba 筛选不是某个日期的数据

在Excel VBA中，如果你想筛选出不是特定日期的数据，你可以使用`Advanced Filter`功能或者编写一段简单的宏来实现这个任务。以下是两个步骤说明：

1. 使用 `Advanced Filter` (高级过滤):
- 首先，选择包含日期数据的范围。
- 打开“数据”菜单，然后选择“高级” -> “筛选”。
- 在“条件区域”输入单元格，比如A1:A1填写“<某日期”(例如“<2023/12/31”) 和 “>某日期”(例如">2022/12/31")，表示你想要排除的日期区间。
- 确认无误后点击“确定”，即可筛选出不在指定日期区间的行。

2. 编写VBA宏:

Sub FilterDates()
    Dim rng As Range
    Dim startDate As Date, endDate As Date
    ' 设置开始和结束日期
    startDate = #2022/12/31# ' 可自定义为你需要排除的日期
    endDate = #2023/12/31# ' 同上
    
    Set rng = Selection ' 或者直接指定范围，如Set rng = Sheet1.Range("A1:C100")
    
    With rng
        .AutoFilter Field:=ColumnIndexNumOfDateColumn, Criteria1:="<>" & startDate, Operator:=xlAnd, Criteria2:=">" & endDate ' 更改ColumnIndexNumOfDateColumn为实际日期列的列号
        ' 现在只显示不在指定日期之间的行
        ' 如果你想清除筛选效果，可以添加一行 `.AutoFilterMode = False`
    End With
End Sub

确保替换`ColumnIndexNumOfDateColumn`为你实际日期所在的列编号，然后运行此宏，即可完成筛选。