我正在尝试使用变量将自动过滤器放在工作表上,但它不起作用。
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 & "
请指教。
最佳答案
去掉 Criteria1 参数周围的引号:
ActiveSheet.Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=Criteria.Value
另外,只是一个问题,为什么要对 Range 对象使用后期绑定(bind)?我确实对需要另一个库/引用的对象使用后期绑定(bind),但因为
Range
是 Excel 对象库的一部分,我会使用早期绑定(bind)。我会Dim Criteria as Range
但这只是我的偏好。
关于excel - 使用可变标准 VBA 进行自动过滤,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18106258/