删除工作簿中每个数据透视表的筛选器 [英] Removing Filters for Each Pivot Table in a Workbook

问题描述

我正在尝试对活动工作簿中每个工作表中的每个表进行排序，并重置所有过滤器.

I'm trying to sort through each table within each worksheet in an active workbook and reset all the filters.

请注意，每个表都是数据透视表.

Note that each table is a pivot table.

Sub ResetFilters()
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim listObj  As ListObjects

    For Each ws In ActiveWorkbook.Worksheets
        For Each listObj In ws
            With ActiveSheet.listObj.Sort.SortFields.Clear
        End With
        Next listObj
    Next ws
    End Sub

在第7行收到错误:对象不支持此属性或方法".

Error received: "Object doesn't suppor this property or method" on Line 7.

推荐答案

假设您的意思是清除过滤条件并删除排序，则可以使用:

Assuming you mean clear filters and remove sorting, you can use:

Sub ResetFilters()
    Dim ws                    As Worksheet
    Dim wb                    As Workbook
    Dim listObj               As ListObject

    For Each ws In ActiveWorkbook.Worksheets
        For Each listObj In ws.ListObjects
            If listObj.ShowHeaders Then
                listObj.AutoFilter.ShowAllData
                listObj.Sort.SortFields.Clear
            End If
        Next listObj
    Next ws
End Sub

这篇关于删除工作簿中每个数据透视表的筛选器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！