撤销自动筛选

Public Sub 技巧10_021()
    Dim ws  As Worksheet
    Dim myAutoFilter As AutoFilter
    Dim myRange  As Range
    Set ws = ActiveSheet
    Set myAutoFilter = ws.AutoFilter
    If Not myAutoFilter Is Nothing Then
        myAutoFilter.Range.AutoFilter
    Else
        MsgBox "没有自动筛选"
    End If
    Set myRange = Nothing
    Set myAutoFilter = Nothing
    Set ws = Nothing
End Sub