Sub ピボットテーブルのフィルターを解除する()

    '"ピボットテーブル1"はピボットテーブル名、"会社名"は列の項目名
    With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("会社名")
        .ClearAllFilters
    End With

End Sub