删除工作簿中每个数据透视表的筛选器 [英] 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屋!
查看全文