Sub ピボットテーブルのフィルターを設定選択する()

    '"ピボットテーブル1"はピボットテーブル名"会社名"は列
    With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("会社名")
        .ClearAllFilters '毎回まずリセットする
        .PivotFilters.Add Type:=xlCaptionEquals, Value1:="B社"
    End With

End Sub