求助：如何根据文本内容筛选所有

517321174

如图，2个问题，菜鸟求解。。。好难。。
问题1：根据G1单元格输入内容，当点击按钮1时对A列进行筛选，求怎么实现
问题2：当点击按钮2时，对当前选择的A列的单元格内容比如A8里的王3进行筛选。再次点击按钮2时，筛选下一个A列内容




测试3.zip (10.94 KB, 下载次数: 0)

2017-6-18 00:02 上传

点击文件名下载附件

517321174

求大神解答下~~~

lss001

sub Button1()
     x = cells(rows.count, 1).end(xlup).row
     activesheet.range("$a$1:$e$" & x).autofilter field:=1, criterial:=cells(1, "g")
end sub

sub Button2()
     x = cells(rows.count, 1).end(xlup).row
     activesheet.range("$a$1:$e$" & x).autofilter field:=1, criterial:=selection
end sub

如果要循环筛选单元格，建议增加第三个按钮
代码如下
sub Button3()
     x = cells(rows.count, 1).end(xlup).row
     selection.offset(1).select
     if selection.offset(1) = "" then cells(1, 1).select
     activesheet.range("$a$1:$e$" & x).autofilter field:=1, criterial:=selection
end sub