出现这个错误的原因是因为 AutFilter 对象所在的工作表已经被关闭或被切换到其他工作表。要解决这个问题,可以检查一下代码中的 Autofilter 对象所在的工作表是否仍然存在,或者是否已经切换到其他工作表。
示例代码:
Sub FilterData() Dim ws As Worksheet Dim rng As Range
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set rng = ws.Range("A1:E10")
'检查工作表是否存在
If Not ws Is Nothing Then
'设置 Autofilter
rng.AutoFilter
'其他代码...
Else
MsgBox "工作表不存在!"
End If
End Sub
上一篇:AutoFilter.Sort.SortFields.Clear不能清除排序字段问题。
下一篇:Autofilterdatain"Tab2"from"Tab1"usingaVBAfunction