Excel 使用可变条件VBA进行自动筛选

我试图使用变量在工作表上设置自动筛选，但它不起作用

  Dim Criteria As Object
  i = 1
  Set Criteria = ActiveSheet.Cells(i, 1)
  MsgBox (Criteria.Value) ' this returns BC01.03

但是，当我尝试筛选“Criteria.Value”时，它不会返回任何内容

Selection.AutoFilter
ActiveSheet.Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=" & Criteria.Value & "

---

请给出建议。

去掉标准参数周围的引号：

ActiveSheet.Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=Criteria.Value

---

还有一个问题，为什么要对范围对象使用后期绑定？我确实会对需要另一个库/引用的对象使用后期绑定，但由于

Range

是Excel对象库的一部分，所以我会使用早期绑定。我会

Dim标准作为范围

，但这只是我的偏好。

如果日期大于等于开始日期，小于等于结束日期，这将如何工作？嗨@Vijay，我不知道你在5.5年前结束的这个问题中问了什么。如果你有你自己的问题，请考虑问你自己的问题（如果你是新的，请参阅）。