vba:请问怎样把现在公式中的56改成任意值或是任意文字?我要查询的可能是任意值或理文字

显示全部楼层 · 2012-8-21 16:04:54

这样改下：
set r=Range("C2：E1000") ‘你自已改下筛选范围
r1=r.column
r.Select
Selection.AutoFilter
for i=1 to r.columns.count
if cells(1,i+r1-1)“” then Selection.AutoFilter Field:=i, Criteria1:=cells(1,i+r1-1)
next iEnd Sub这样只要你在第一行某列输入了某个数，那么筛选时就会自动把这个结果应用到筛选中去...

千问 · 2012-8-21 16:04:54

该用这几句代码：XX = InputBox("请输入需要查询的内容：", "提示")[C1] = XX[C1].Select[C1].AutoFilter Field:=3, Criteria1:=XX, Operator:=xlAnd...