Excel VBA 如何编写代码检查表是否设置筛选并执行对应操作

你现有代码仅覆盖了「已开启筛选且处于筛选状态下取消筛选显示全部」的场景，未处理未开启筛选时添加筛选的需求，完整实现逻辑如下：

核心属性说明 #

• AutoFilterMode：判断工作表是否开启了筛选功能（即表头是否显示筛选箭头），返回布尔值
• FilterMode：判断工作表在已开启筛选的前提下，是否执行了筛选操作（有数据被隐藏），返回布尔值

完整代码 #

Sub HandleFilterStatus()
    ' 可修改为你需要操作的工作表名称
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    With ws
        ' 情况1：未开启筛选，添加筛选
        If Not .AutoFilterMode Then
            ' 对当前已使用的区域添加筛选，也可替换为指定单元格区域如Range("A1:G100")
            .UsedRange.AutoFilter
        ' 情况2：已开启筛选且处于已筛选状态，显示全部数据
        ElseIf .FilterMode Then
            .ShowAllData
        End If
        ' 情况3：已开启筛选但未执行筛选操作，无动作，无需额外代码
    End With
End Sub

注意事项 #

• 如果需要操作的是指定表格对象（ListObject）而非整个工作表的筛选，可将.AutoFilterMode、.UsedRange.AutoFilter替换为对应表格对象的属性与方法，例如ws.ListObjects("表1").ShowAutoFilter、ws.ListObjects("表1").Range.AutoFilter
• 调用ShowAllData前必须确认工作表处于筛选状态，否则会抛出运行时错误，代码中已通过ElseIf .FilterMode的判断规避该问题

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