excel 宏 筛选 条件
求教高手，怎么做到以下要求啊?
在sheet1中对A列进行了筛选，怎么用VBA引用其筛选条件？
麻烦各位高手啦！
我的意思是在sheet1中已经执行了“自动筛选”操作，如何用VBA让a赋值为筛选的条件，就是让a赋值为下面语句中的“500”
Selection.AutoFilter Field:=1, Criteria1:="500", Operator:=xlAnd
但是我的 筛选不是在宏里进行的啊…
按ALT+F11，打开VBE编辑器，插入——模块，然后复制粘贴下面的代码，按F5键运行。
Sub 多个条件筛选()
Range("A2:C65536").ClearContents
Sheets("表一").Range("A1:G16").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("E1:F3"), CopyToRange:=Range("表二!A1:C1"), Unique:= _
False
End Sub
思路提示：可以将方法一介绍的高级筛选录制宏操作一遍，然后再适当修改代码得到。
其中：Sheets("表一").Range("A1:G16")：表示查找的范围。
CriteriaRange:=Range("E1:F3")：表示查询条件，包括字段名称。
CopyToRange:=Range("表二!A1:C1")：表示结果的保存范围，包括字段名称。
Sub 多个条件筛选()
Range("A2:C65536").ClearContents
Sheets("表一").Range("A1:G16").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("E1:F3"), CopyToRange:=Range("表二!A1:C1"), Unique:= _
False
End Sub
思路提示：可以将方法一介绍的高级筛选录制宏操作一遍，然后再适当修改代码得到。
其中：Sheets("表一").Range("A1:G16")：表示查找的范围。
CriteriaRange:=Range("E1:F3")：表示查询条件，包括字段名称。
CopyToRange:=Range("表二!A1:C1")：表示结果的保存范围，包括字段名称。
温馨提示：内容为网友见解，仅供参考
第1个回答 2009-09-11
如果楼主只需要得到那个单纯的值过滤条件的话，用ActiveSheet.AutoFilter.Filters(1).Criteria1可以返回串“=500”，你再用字符串处理函数把“=”去掉即可。
不过如果当前应用的过滤条件比较复杂的话，就需要自己去分析Criteria1和Criteria2里面的语句以及“与”、“或”操作符了。本回答被提问者采纳
不过如果当前应用的过滤条件比较复杂的话，就需要自己去分析Criteria1和Criteria2里面的语句以及“与”、“或”操作符了。本回答被提问者采纳
第2个回答 2015-06-19
根据条件，把符合的行取消隐藏，不符合的行隐藏。
第3个回答 2009-09-11
不明白你的意思，不过用vba可以直接编有筛选功能宏！
第4个回答 2009-09-12
a=500
Selection.AutoFilter Field:=1, Criteria1:=a, Operator:=xlAnd
Selection.AutoFilter Field:=1, Criteria1:=a, Operator:=xlAnd
相似回答
