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
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