网站首页 美食营养 游戏数码 手工爱好 生活家居 健康养生 运动户外 职场理财 情感交际 母婴教育 时尚美容

清除数据透视表下拉列表里显示无用的数据项

时间:2024-10-13 22:31:15

方法:

1、首先按下Alt+F11键,出现如何窗口

清除数据透视表下拉列表里显示无用的数据项

2、点击插入,再点击模块,出现如下窗口:

清除数据透视表下拉列表里显示无用的数据项3、将以下代码复制并粘贴进去,按下F5键运行即可清除。

Sub ClearMissingItems()

'清除数据透视表下拉列表里显示无用的数据项

Dim pvt As PivotTable, pvtcache As PivotCache

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

For Each pvt In sht.PivotTables

pvt.PivotCache.MissingItemsLimit = xlMissingItemsNone

Next pvt

Next sht

On Error Resume Next

For Each pvtcache In ActiveWorkbook.PivotCaches

pvtcache.Refresh

Next pvtcache

On Error GoTo 0

End Sub

© 2025 小知经验
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com