Excel Autofilter筛选：日期范围含空白的优化实现方案咨询

嘿，完全懂你的痛点——生成全年日期数组不仅代码冗余，遇到闰年或者动态年份还得调整，效率也不高。给你几个更优雅的实现思路，亲测好用：

方案1：直接用AutoFilter的公式筛选（推荐） #

AutoFilter其实支持将公式作为筛选条件，结合xlOr运算符同时匹配日期范围和空白值，根本不用生成数组。示例代码如下：

Sub FilterDateRangeAndBlanks()
    Dim targetRange As Range
    Set targetRange = Range("A1").CurrentRegion
    
    ' 筛选2023年的日期（可替换为动态年份，比如Year(Date)）+ 空白值
    targetRange.AutoFilter _
        Field:=1, _
        Criteria1:=Array( _
            "=AND(A2>=DATE(2023,1,1),A2<=DATE(2023,12,31))", _
            "=" _
        ), _
        Operator:=xlOr
End Sub

• 注意：公式里的A2是相对于筛选区域的第一行数据行（假设表头在A1），如果你的数据起始行不同，要对应调整。
• 空白值用"="来匹配，这是AutoFilter识别空白单元格的标准写法。
• 动态年份可以改成DATE(Year(Date), 1, 1)和DATE(Year(Date), 12, 31)，自动适配当前年份。

方案2：辅助列+简单筛选（适合新手维护） #

如果觉得公式筛选的语法有点绕，可以临时加一个辅助列，用公式判断是否符合条件，再筛选辅助列的TRUE值：

Sub FilterWithHelperColumn()
    Dim targetRange As Range
    Set targetRange = Range("A1").CurrentRegion
    
    ' 添加辅助列（这里选B列，可根据实际调整）
    targetRange.Columns(targetRange.Columns.Count + 1).Insert
    With targetRange.Offset(1, targetRange.Columns.Count).Resize(targetRange.Rows.Count - 1)
        .Formula = "=OR(AND(A2>=DATE(2023,1,1),A2<=DATE(2023,12,31)),ISBLANK(A2))"
        .Value = .Value ' 转成值避免公式影响
    End With
    
    ' 筛选辅助列的TRUE值
    targetRange.AutoFilter Field:=targetRange.Columns.Count + 1, Criteria1:=True
    
    ' 用完可以隐藏或删除辅助列
    ' targetRange.Columns(targetRange.Columns.Count + 1).Delete
End Sub

这个方法逻辑直观，代码容易理解和修改，缺点是需要临时占用一列，不过用完可以删掉，影响不大。

方案3：高级筛选（适合复杂多条件场景） #

如果你的筛选逻辑以后可能更复杂，Excel的**高级筛选（AdvancedFilter）**是更好的选择，它支持自定义条件区域，轻松实现And/Or组合：

Sub AdvancedFilterDateRange()
    Dim targetRange As Range
    Dim criteriaRange As Range
    
    Set targetRange = Range("A1").CurrentRegion
    ' 假设我们在D1:D4设置条件区域（可放在任意空白区域）
    Range("D1").Value = targetRange.Cells(1, 1).Value ' 复制表头
    Range("D2").Value = ">=2023/1/1"
    Range("D3").Value = "<=2023/12/31"
    Range("D4").Value = "" ' 空白值条件
    
    Set criteriaRange = Range("D1:D4")
    
    ' 执行高级筛选（原地筛选）
    targetRange.AdvancedFilter _
        Action:=xlFilterInPlace, _
        CriteriaRange:=criteriaRange
    
    ' 用完可以清除条件区域内容
    ' criteriaRange.ClearContents
End Sub

高级筛选的逻辑是：同一列的多行条件是Or关系，同一行的多列条件是And关系，所以这里D2和D3是And（日期在范围内），D4是Or（空白值），完美匹配需求。

额外小贴士 #

• 尽量用DATE()函数指定日期，避免因系统日期格式不同导致筛选失效。
• 如果要取消筛选，可以用targetRange.AutoFilter（不带参数）。

内容的提问来源于stack exchange，提问作者Ben.Name