vba中的自动筛选(atuo filter) 实现（realize）

Private Sub CommandButton1_Click()
    'AutoFilter A+
    Range("C1:H53").Select
    ActiveWindow.SmallScroll Down:=-48
    Selection.AutoFilter
    ActiveSheet.Range("$C$1:$H$54").AutoFilter 
    ActiveSheet.Range("$C$1:$C$54").AutoFilter Field:=1, Criteria1:="=T*", Operator:=xlAnd
    

End Sub

在上面的代码中， Range("C1:H53").Select负责选中数据区域。

Selection.AutoFilter 开始自动筛选。

ActiveSheet.Range("$C$1:$H$54").AutoFilter 不加条件的筛选，其实就是实现了还原所有可能已经存在的筛选条件。

 ActiveSheet.Range("$C$1:$C$54").AutoFilter Field:=1, Criteria1:="=T*", Operator:=xlAnd

field:=1 指的是在c1:c54中的第一列，Criteria1:="=T*"指筛选条件是第一个字符是T,Operator:=xlAnd筛选条件之间是“与”的关系。