【ExcelVBA】ピボットテーブルのフィルタ解除（クリア）

ExcelVBA,ピボットテーブルの操作


ピボットテーブルのフィルタ解除（クリア）

Sub Sample()

  ThisWorkbook.ActiveSheet.PivotTables(1).ClearAllFilters

End Sub
※ワークシート内にピボットテーブルが存在しない状態で、上記のマクロを実行するとエラーになります。

ブック内にある全ピボットテーブルのフィルタ解除（クリア）

Sub Sample()
  
  Dim WS As Worksheet
  Dim PVT As PivotTable
  
  For Each WS In ThisWorkbook.Worksheets
    
    Debug.Print "ワークシート名: " & WS.Name & " ピボットテーブル数: " & WS.PivotTables.Count
    
    For Each PVT In WS.PivotTables
        'ピボットテーブルのフィルタ解除
        PVT.ClearAllFilters
        
        'ピボットテーブルの名前
        Debug.Print PVT.Name & " 解除しました！"
    Next
  
  Next

End Sub