Excel VBA实现日期范围筛选并包含空白行的问题求助

原代码的问题 #

• 两次调用AutoFilter会覆盖之前的筛选条件，无法实现「日期在区间内」和「空白行」的组合筛选
• 直接用字符串拼接日期（如"<=" & enddate）可能因系统日期格式差异导致Excel无法正确识别日期
• 条件逻辑组合错误，未正确实现「(日期≥7/1 且 日期≤7/31) 或 空白」的逻辑

解决方案1：使用辅助列筛选（简单易读） #

通过添加辅助列判断每行是否符合条件，再筛选辅助列结果为TRUE的行：

Sub function1()
    Dim startdate As Date, enddate As Date
    startdate = #7/1/2022#
    enddate = #7/31/2022#

    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Test")
    
    Dim lastRow As Long
    lastRow = sh.UsedRange.Rows(sh.UsedRange.Rows.Count).Row
    
    ' 添加辅助列，写入判断公式
    sh.Cells(1, 17).Value = "辅助列"
    ' 用日期序列号避免格式问题，P列对应第16列
    sh.Range(sh.Cells(2, 17), sh.Cells(lastRow, 17)).Formula = _
        "=OR(AND(P2>=" & CLng(startdate) & ",P2<=" & CLng(enddate) & "),ISBLANK(P2))"
    
    ' 筛选辅助列为TRUE的行
    sh.UsedRange.AutoFilter Field:=17, Criteria1:=True
    
    ' 可选：删除辅助列（如果不需要保留的话）
    ' sh.Columns(17).Delete
End Sub

解决方案2：使用高级筛选（无需辅助列） #

利用Excel高级筛选的多条件区域，实现复杂逻辑的筛选：

Sub function1()
    Dim startdate As Date, enddate As Date
    startdate = #7/1/2022#
    enddate = #7/31/2022#

    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Test")
    
    ' 临时条件区域（用空白列Z1:Z5，可根据实际调整）
    Dim criteriaRange As Range
    Set criteriaRange = sh.Range("Z1:Z5")
    criteriaRange.Clear
    
    ' 设置条件区域：表头匹配，日期区间条件（And关系），空白行条件（Or关系）
    criteriaRange(1, 1).Value = sh.Cells(1, 16).Value ' 匹配第16列的表头
    criteriaRange(2, 1).Value = ">=" & startdate
    criteriaRange(3, 1).Value = "<=" & enddate
    criteriaRange(5, 1).Value = "=" ' 空白行条件，空一行表示Or关系
    
    ' 执行高级筛选
    sh.UsedRange.AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=criteriaRange, Unique:=False
    
    ' 清除临时条件区域
    criteriaRange.Resize(5).Clear
End Sub

代码说明 #

• 两种方案均实现了「日期在2022年7月1日至7月31日之间」或「单元格空白」的筛选逻辑
• 辅助列方案通过日期序列号（CLng(startdate)）避免了系统日期格式差异导致的识别错误
• 高级筛选方案无需额外列，但需要确保表头存在，且临时条件区域未被数据占用

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