VBA筛选今日日期代码报错1004求助：AutoFilter方法执行失败

关于Cells(4, "A")的含义 #

Cells(4, "A")指的是第4行A列的单元格（即A4）。录制宏时，系统会以你操作时选中的筛选起始区域作为代码里的起始单元格，所以这里的数字4是你录制宏时筛选范围的起始行号。

1004错误的排查与修复 #

出现AutoFilter Range method has failed错误，核心原因是筛选区域无效，常见场景和解决方法如下：

1. 筛选区域起始行大于结束行 #

如果A4以下没有任何数据，.Cells(.Rows.Count, "A").End(xlUp)会返回A4上方的单元格（比如A3、A2甚至A1），导致Range(.Cells(4,"A"), [结束行单元格])的起始行号大于结束行号，形成无效区域，触发1004错误。

2. 起始行选择错误 #

如果你的数据表头在第3行、实际数据从第4行开始，那录制宏时的起始行应该包含表头（即从A3开始），否则AutoFilter无法识别筛选的列结构。

修复后的代码示例 #

Sub FilterToday()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim filterRange As Range
    
    Set ws = ThisWorkbook.Worksheets("Summary_2023")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 确保筛选区域有效（起始行<=结束行）
    If lastRow >= 4 Then
        Set filterRange = ws.Range(ws.Cells(4, "A"), ws.Cells(lastRow, "A"))
        ' 先清除已有筛选，避免冲突
        ws.AutoFilterMode = False
        filterRange.AutoFilter Field:=1, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
    Else
        MsgBox "A列从第4行开始无数据，无法执行筛选"
    End If
End Sub

额外注意事项 #

• 确认Summary_2023工作表确实存在于当前工作簿中，否则会触发其他错误。
• 如果表头在第4行，确保A4是表头单元格，下方有日期数据，AutoFilter才能正常工作。

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