用VBA进行自动筛选，筛选条件如何改成变量？

中华龙卷风

请教各位高手，
Sub Macro1()
'
' Macro1 Macro
' 宏由 tongwen 录制，时间: 2011-8-31
'
'
    Columns("A:A").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">=10", Operator:=xlAnd, _
        Criteria1:="<=50",   
  Range("A1:A17").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    Range("C7").Select
End Sub

想把上述代码中Criteria1:=">=10",  Criteria1:="<=50",  中的10和50改成变量的形式可不可以？

mineshine

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' 宏由 tongwen 录制，时间: 2011-8-31
   
5. '
   
6. '
   
7.     st1 = ">=10"
   
8.     st2 = "<=50"
   
9.     Columns("A:A").Select
   
10.     Selection.AutoFilter
    
11.     Selection.AutoFilter Field:=1, Criteria1:=" & st1 & ", Operator:=xlAnd, _
    
12.         Criteria1:=" & st2 & "
    
13.   Range("A1:A17").Select
    
14.     Selection.Copy
    
15.     Sheets("Sheet2").Select
    
16.     ActiveSheet.Paste
    
17.     Range("C7").Select
    
18. End Sub

复制代码

中华龙卷风

感谢mineshine的回答，但是我想要条件是两个变量，能通过循环或赋值的形式给值，设置a,b为控制条件，
如for i=1 to 100
a= cells(i,1)   b=cells(i,2)

    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">=a", Operator:=xlAnd, _
        Criteria1:="<=a+b",   ‘只是举个例子，这个是不对的，
next i
类似要完成这样的工作，再次请教该怎么完成？

yaozong

Selection.AutoFilter Field:=1, Criteria1:=">=" &a, Operator:=xlAnd, _
        Criteria1:="<=" &a+b,   ‘只是举个例子...

ly

中华龙卷风 发表于 2011-8-31 16:06
感谢mineshine的回答，但是我想要条件是两个变量，能通过循环或赋值的形式给值，设置a,b为控制条件，
如fo ...

For i = 1 To 2
strW1 = ">=" & Cells(i, 9) & ""
strW2 = "<=" & Cells(i, 10) & ""
     Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=1, Criteria1:=strW1, Operator:=xlAnd, Criteria2:=strW2
Next i
....

中华龙卷风

谢谢，明白了。

lishug

非常感谢。明白了。