VBA自动筛选：同时筛选本年动态日期与空白单元格

嘿，我之前也踩过Excel自动筛选的这个坑！你遇到的问题其实是Excel自动筛选对混合类型（空白+日期范围）的“或”条件支持不够直观，直接用Criteria1+Criteria2加xlOr很容易失效，这里给你两个靠谱的解决方法：

方法一：用数组+xlFilterValues实现“或”筛选 #

这种方法最直接，而且是动态的，不需要额外的条件区域：

Sub FilterYearAndBlanks()
    Dim ws As Worksheet
    Dim startOfYear As Date, endOfYear As Date
    Dim filterConditions As Variant
    
    ' 设置要操作的工作表（建议替换成具体表名，比如Sheet1）
    Set ws = ActiveSheet
    
    ' 计算本年的起止日期
    startOfYear = DateSerial(Year(Date), 1, 1)
    endOfYear = DateSerial(Year(Date), 12, 31)
    
    ' 构造筛选条件数组：空白（"="） + 本年日期范围
    filterConditions = Array( _
        "=", _
        ">=" & CLng(startOfYear), _
        "<=" & CLng(endOfYear) _
    )
    
    ' 执行筛选（这里假设要筛选的是第1列，即A列，根据需求修改Field参数）
    ws.Range("A1").AutoFilter Field:=1, _
        Criteria1:=filterConditions, _
        Operator:=xlFilterValues
End Sub

关键说明： #

• 把日期转成CLng()是因为Excel内部用数字存储日期，直接用字符串可能会因为区域设置导致识别错误；
• xlFilterValues会把数组里的所有条件当作“或”关系处理，完美实现「空白 或 本年日期」的需求；
• 如果你需要筛选其他列，只要修改Field参数即可（比如B列是Field:=2）。

方法二：用高级筛选（适合更复杂的条件） #

如果自动筛选还是有问题，高级筛选的灵活性更强，适合处理混合类型的多条件：

Sub AdvancedFilterYearAndBlanks()
    Dim ws As Worksheet
    Dim criteriaRange As Range
    Dim startOfYear As Date, endOfYear As Date
    
    Set ws = ActiveSheet
    startOfYear = DateSerial(Year(Date), 1, 1)
    endOfYear = DateSerial(Year(Date), 12, 31)
    
    ' 先在工作表的空白区域（比如D1:D3）创建条件区域
    Set criteriaRange = ws.Range("D1:D3")
    
    ' 设置条件区域的标题（必须和要筛选的列标题完全一致）
    criteriaRange(1).Value = ws.Range("A1").Value
    ' 第一个条件：空白单元格（留空即可）
    criteriaRange(2).Value = ""
    ' 第二个条件：本年日期范围
    criteriaRange(3).Formula = ">=" & startOfYear & " AND <=" & endOfYear
    
    ' 执行高级筛选（xlFilterInPlace表示在原位置筛选）
    ws.Range("A:A").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=criteriaRange, _
        Unique:=False
        
    ' 可选：用完后可以清除条件区域的内容
    criteriaRange.ClearContents
End Sub

为什么之前的方法失效？ #

你之前用xlAnd/xlOr无效，是因为Excel自动筛选的Criteria1+Criteria2组合逻辑比较严格：

• 当用xlOr时，只能处理两个单一条件（比如两个固定值），无法直接搭配日期范围；
• 录制宏的代码虽然能生效，但通常会把日期硬编码成固定的数字（比如Criteria1:=">=45212"），失去了动态性，而且录制的宏有时候会忽略一些隐式的类型转换细节。

你可以试试上面两种方法，我之前就是用第一种数组筛选的方式解决的，亲测有效！

内容的提问来源于stack exchange，提问作者kai