[已解决]帮我看一下这段代码有啥问题，谢谢！

王永峰

Private Sub CommandButton1_Click()
Dim x As Integer
Dim sr
    sr = TextBox1.Value
    MsgBox sr
    x = Sheets("操作界面").Range("a65536").End(xlUp).Row
    ActiveSheet.Range("$A$1:$F$" & x).AutoFilter Field:=2, Criteria1:="sr"
End Sub
这是个筛选的，这个区域变量x，和sr对吗？为啥一点就是筛选出空行

最佳答案

月排行榜 / 总排行榜

zjdh

2012-11-1 17:52

Private Sub CommandButton1_Click()
Dim x As Integer
Dim sr
    sr = TextBox1.Value
    MsgBox sr
    x = Sheets("操作界面").Range("a65536").End(xlUp).Row
    ActiveSheet.Range("$A$1:$F$" & x).AutoFilter Field:=2, Criteria1:=sr
End Sub

跳转到最佳答案楼层

zjdh

Private Sub CommandButton1_Click()
Dim x As Integer
Dim sr
    sr = TextBox1.Value
    MsgBox sr
    x = Sheets("操作界面").Range("a65536").End(xlUp).Row
    ActiveSheet.Range("$A$1:$F$" & x).AutoFilter Field:=2, Criteria1:=sr
End Sub