撤销高级筛选

Public Sub 技巧10_024()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.ActiveSheet
    With ws
        If .FilterMode Then
            .ShowAllData
        End If
    End With
    Set ws = Nothing
End Sub