使用AutoFilter.ShowAllData出现“Object Required”及1004错误的技术问询

咱们来一步步拆解你碰到的两个问题，找到根源再给出靠谱的解决方案：

第一个错误：Object Required（对象必需） #

先看你这段代码：

Sub FilterAll() 
    Worksheets("Report").Range("A1:D1").AutoFilter.ShowAllData 
End Sub

问题出在两个地方：

1. 调用对象错误：ShowAllData 是Worksheet对象的专属方法，不是Range的AutoFilter对象的方法，你找错了调用主体；
2. 空对象风险：如果指定的Range（A1:D1）当前没有启用自动筛选，Range.AutoFilter 会返回Nothing（空对象），这时候强行调用它的方法自然会触发“Object Required”错误。

第二个错误：Error 1004（ShowAllData方法失败） #

再看这段代码：

Sub ShowAll() 
    Worksheets("Report").ShowAllData 
End Sub

1004错误的原因很直白：当工作表上没有任何自动筛选被启用时，ShowAllData 没有可操作的筛选内容，Excel就会报错——毕竟它不知道该“显示全部”什么呀。

正确的安全写法：先判断再执行 #

核心思路就是先确认筛选是否存在，再执行ShowAllData，彻底避免两种错误。这里给你两种实用的写法：

写法1：全局检查工作表的筛选状态 #

适合需要重置整个工作表所有筛选的场景：

Sub SafeShowAllData()
    Dim ws As Worksheet
    Set ws = Worksheets("Report")
    
    ' 先判断工作表是否有激活的筛选
    If ws.AutoFilterMode Then
        ws.ShowAllData
    End If
End Sub

写法2：针对特定区域的筛选检查 #

如果你只想操作A1:D1区域的筛选，避免误碰其他区域的筛选：

Sub SafeShowAllForTargetRange()
    Dim ws As Worksheet
    Dim targetRange As Range
    
    Set ws = Worksheets("Report")
    Set targetRange = ws.Range("A1:D1")
    
    ' 检查目标区域是否启用了AutoFilter
    If Not targetRange.AutoFilter Is Nothing Then
        ws.ShowAllData
    End If
End Sub

补充说明：你之前的Show1B子程序是给第4列设置筛选，执行后工作表的AutoFilterMode会变为True，这时候调用上面的安全方法就完全不会报错啦。

内容的提问来源于stack exchange，提问作者user4333011