Excel Tips： ピボットのゴミを削除

Excel ピボットテーブルで、元データから削除した、存在しないアイテムが表示されることがある。これを、スッキリ消してくれます。

個人用マクロブックに必須でしょう。

-






















































Option Explicit
 
Public Sub PivotItems_Delete()    
    On Error Resume Next
    
    Dim ws As Excel.Worksheet
    Dim pvtTable As Excel.PivotTable
    Dim pvtField As Excel.PivotField
    Dim pvtItem As Excel.PivotItem
     
    For Each ws In ThisWorkbook.Worksheets
        For Each pvtTable In ws.PivotTables
            pvtTable.RefreshTable
            For Each pvtField In pvtTable.PivotFields
                For Each pvtItem In pvtField.PivotItems
                    pvtItem.Delete
                Next
            Next
        Next
    Next

End Sub













































































































-

.