[已解决]求助一个有关筛选的代码.

zhouxingyu

sunjing-zxl 发表于 2012-1-30 08:52
for i=0 to 99
if i

多谢老师,应该是差不多了,就是还有点小问题.
照着你的代码,从000-999步进一筛选.
for i=0 to 99
if i<10 then
s="00" & i  ' 我在这里加了一个0
else
s="" & i
end if
ActiveSheet.Range("$A$1:$F$1536").AutoFilter Field:=6, Criteria1:=s
next i
结果只筛选出000-009,009之后筛出的是空值.是哪里我没写对呢?

zhouxingyu

上清宫主 发表于 2012-1-30 09:19
不要if，直接
ActiveSheet.Range("$A$1:$F$1536").AutoFilter Field:=6, Criteria1:=right(string(n,"0")  ...

代码我测试了,也很好用.
不过,不要if的话是不是只能实现一条数据的筛选,我想实现的是从00-99全部值的批量筛选.
多谢你,很实用的代码,收藏学习了.