excel vba 进行循环筛选的问题请教

Question

Selection.AutoFilterActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=3, Criteria1:="AAA" 现在我用vba筛选出了该列为AAA的数据，然后再用一些vba代码将筛选结果保存成一张新建的sheet2中。然后，我还需要同样在原表里删选出BBB、CCC、...、GGG，也同样要保存到新建的sheet3、4。。。里，请问要怎么写循环语句？ 

Answer 1

既然要用VBA代码，就没必要再用筛选了，VBA代码可以根据你的要求，将("$A$1:$H$100").的内容分类填充到各个指定的表中！只是你的要求不是很具体，我暂不去猜想！请你把要求的条件尽量具体化，别人清楚了，才好帮助你！

Answer 2

dim aa
亲，天天用的东西，还是要熟悉点才好！
for i= 1 to n(自己设定几次)
select case aa
case 1
aa="AAA"
CASE 2
aa="BBB"
......
end select
Selection.AutoFilterActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=3, Criteria1:=aa本回答被网友采纳

Answer 3

dim
s()
as
string,
i
as
long
s=split("AAA|BBB|CCC|DDD|EEE|FFF|GGG","|")
Selection.AutoFilter
for
i=0
to
ubound(s)

ActiveSheet.Range("$A$1:$H$100").AutoFilter
Field:=3,
Criteria1:=s(i)

……
'保存筛选结果的语句，可以用i来区分保存的sheet
next