excel - 使用可变标准 VBA 进行自动过滤

Question

我正在尝试使用变量将自动过滤器放在工作表上，但它不起作用。

  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 & "

请指教。

score 3 · Accepted Answer

去掉 Criteria1 参数周围的引号：

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

另外，只是一个问题，为什么要对 Range 对象使用后期绑定？我确实对需要另一个库/引用的对象使用后期绑定，但由于Range是 Excel 对象库的一部分，我会使用早期绑定。我会Dim Criteria as Range，但这只是我的偏好。

1 回答 1