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

• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • -

.