循环遍历每个工作表并取消过滤所有表格的宏

Question

我编写了一些非常简单的代码，它只是循环遍历工作簿中的每个工作表，然后使用 ActiveSheet.ShowAllData 删除过滤（如果已激活）。

这是（更新的）代码：

 Sub removeFilters()
'This macro removes any filtering in
'order to display all of the data but it does not remove the filter arrows
On Error GoTo Errorcatch

For i = 1 To ActiveWorkbook.Worksheets.Count
If ActiveSheet.Visible = True Then
ActiveSheet.ShowAllData
End If
Next i

Exit Sub

Errorcatch:
MsgBox Err.Description

End Sub

该代码似乎工作正常，但以错误结束，然后显示 MsgBox。 这是 MsgBox 的屏幕截图：

工作簿有一些隐藏的工作表，我想完全跳过它们，这就是我添加If语句的原因。

Answer 1

如果未激活自动过滤器，则 ShowAllData 会引发错误，因此：

Dim ws As Worksheet

On Error Resume Next
For Each ws In ThisWorkbook.Worksheets
    If ws.Visible Then ws.ShowAllData
Next ws
on error goto 0     'or to hell or whatever

Answer 2

如果您正在处理表格：

Sub removeFilters()
    Dim ws As Worksheet
    Dim oList As ListObject
'This macro removes any Table filtering in
'order to display all of the data but it does not remove the filter arrows

    For Each ws In ActiveWorkbook.Worksheets
        For Each oList In ws.ListObjects
            oList.AutoFilter.ShowAllData
        Next oList
    Next ws

End Sub

Answer 3

这对我来说非常有效。

    Sub resetFilter()


    Dim xWs As Worksheet
    For Each Wks In ThisWorkbook.Worksheets
    On Error Resume Next
    If Wks.AutoFilterMode Then
        Wks.AutoFilter.ShowAllData
    End If
    Next Wks
End Sub