如何在Excel VBA中筛选指定日期？代码调试无果求助

问题分析 #

你的代码筛选日期结果为空，核心原因通常是这几点：

• 变量类型转换导致匹配偏差
• 工作表中的日期实际包含时间部分，纯日期序列号无法匹配
• 筛选条件的字符串拼接写法不符合AutoFilter的日期处理逻辑

解决方案 #

以下是两种可靠的修改方案：

方案1：直接使用Date类型变量筛选

将变量定义为Date类型，直接赋值日期（或从输入框转换），无需手动处理序列号，避免转换错误：

Sub Filter()
    Dim TheDate As Date
    Dim rTemp As Range
    Dim wb2 As Workbook
     
    Set wb2 = Workbooks("JADATA.xlsm")
    With wb2.Sheets("Employee Hours")
        ' 清除已有筛选
        If .FilterMode Then .ShowAllData
        
        ' 测试日期，若用输入框则改为：TheDate = CDate(InputBox("请输入目标日期"))
        TheDate = #11/23/2022#
        
        ' 定义筛选范围（避免Activate操作，直接用With关联工作表）
        Set rTemp = .Range(.Cells(1, 1), .Cells(.Rows.Count, 7).End(xlUp))
        
        ' 直接传入Date类型变量作为筛选条件
        rTemp.AutoFilter Field:=1, Criteria1:=TheDate
    End With
End Sub

方案2：处理带时间的日期（范围筛选）

如果工作表中的日期单元格包含时间部分（比如23/11/2022 15:30，虽然显示为日期，但实际序列号是44888.6458），直接匹配纯日期序列号会筛选不到。此时用范围筛选覆盖当天所有时间点：

Sub FilterWithTime()
    Dim TheDate As Date
    Dim rTemp As Range
    Dim wb2 As Workbook
     
    Set wb2 = Workbooks("JADATA.xlsm")
    With wb2.Sheets("Employee Hours")
        If .FilterMode Then .ShowAllData
        
        TheDate = #11/23/2022#
        
        Set rTemp = .Range(.Cells(1, 1), .Cells(.Rows.Count, 7).End(xlUp))
        
        ' 筛选从目标日期0点到次日0点的所有记录
        rTemp.AutoFilter Field:=1, _
                        Criteria1:=">=" & CDbl(TheDate), _
                        Operator:=xlAnd, _
                        Criteria2:="<" & CDbl(TheDate + 1)
    End With
End Sub

额外注意事项 #

• 检查第1列的单元格格式：确保是日期值而非文本（可在单元格输入=ISNUMBER(A2)，返回TRUE则为日期值）
• 模块顶部添加Option Explicit，强制变量声明，避免拼写或类型错误
• 避免使用Activate操作工作表，直接通过With语句关联对象更稳定高效

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