我试图使用变量在工作表上放置自动过滤器，但它不起作用。
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 对象上使用后期绑定？我确实对需要另一个库/引用的对象使用后期绑定，但因为Range是 Excel 对象库的一部分，我会使用早期绑定。我会Dim Criteria as Range但这只是我的偏好。
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
