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

我们在使用Excel制作数据透视表后，由于数据源使用较久，有时候内容更新后某些字段已经不存在，但是在数据透视表某字段选项里仍能看到历史记录的字段，除了手动选择外，我们还可以利用VBA进行全部清除这些无效的内容。

在Excel内执行以下代码后，对于当前工作簿所有数据透视表有效。

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