VBA过滤 - 获取错误

Question

我正在尝试使用VBA过滤数据表，但我没有设法

如果我写下面的内容......它过滤得很完美。

ActiveSheet.ListObjects("OPT").Range.AutoFilter Field:=17, Criteria1 _
    :="=QQQ", Operator:=xlAnd

现在，如果在单元格C2中输入值QQQ

ActiveSheet.ListObjects("OPT").Range.AutoFilter Field:=17, Criteria1 _
       :="=" & Range("C2"), Operator:=xlAnd

Excel过滤并没有给出任何结果...我尝试使用Range("C2").Value和Range("C2").Text但是有相同的问题...没有导致过滤...有没有人知道我的语法在哪里是错的......谢谢

Answer 1

我在Excel 2010上尝试了这一点，您可以简单地引用要使用的值的范围，它将进行过滤。因此，对于您的示例，ActiveSheet.ListObjects("OPT").Range.AutoFilter Field:=17, Criteria1:=Range("C2"), Operator:=xlAnd将工作并过滤列表。