如何实现基于单元格引用的VBA AutoFilter日期范围筛选？

你的报错根源在于没有给筛选条件带上比较运算符。录制宏生成的代码里，Criteria1和Criteria2是包含>=/<=的完整筛选字符串（比如">=5/14/2018"），但你直接用单元格值时，只传递了纯日期数值，AutoFilter无法识别这是一个范围筛选逻辑，自然会触发报错。

正确的代码实现 #

把比较运算符和单元格值拼接在一起，让AutoFilter明确识别范围筛选规则：

ActiveSheet.Range("$A$1:$C$29663").AutoFilter Field:=1, _
    Criteria1:=">=" & Worksheets("Sheet1").Range("B3").Value, _
    Operator:=xlAnd, _
    Criteria2:="<=" & Worksheets("Sheet1").Range("B4").Value

额外优化与注意事项 #

• 确保日期格式有效性：如果B3/B4单元格是文本格式的日期，可能导致筛选异常。建议先将这两个单元格设置为「短日期」格式，或者在代码中用CDate()强制转换为日期类型：

  Criteria1:=">=" & CDate(Worksheets("Sheet1").Range("B3").Value), _
  Criteria2:="<=" & CDate(Worksheets("Sheet1").Range("B4").Value)
  

• 避免硬编码工作表名称：如果后续工作表重命名，代码会失效。可以改用工作表代号（比如Sheet1.Range("B3")，前提是工作表的代号未被修改），或者用ThisWorkbook.Sheets("Sheet1")确保引用当前工作簿的目标表。
• 处理空值异常：如果用户未输入有效日期，可能导致筛选出错，建议加个前置判断：

  Dim startDate As Variant, endDate As Variant
  startDate = Worksheets("Sheet1").Range("B3").Value
  endDate = Worksheets("Sheet1").Range("B4").Value
  
  If IsDate(startDate) And IsDate(endDate) Then
      ActiveSheet.Range("$A$1:$C$29663").AutoFilter Field:=1, _
          Criteria1:=">=" & startDate, _
          Operator:=xlAnd, _
          Criteria2:="<=" & endDate
  Else
      MsgBox "请输入有效的起始和结束日期！"
  End If
  

这样就能完美实现基于单元格引用的日期范围筛选功能了。

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