Excel VBA 小計を非表示にしてピボットテーブルレイアウトを簡潔にする

以下のようなシーンで利用されます。

1.小計が不要な場合、特定の分析に集中したい。

2.ピボットテーブルの見た目をシンプルにして、報告書やプレゼン資料で見やすくしたい。

Option Explicit

Sub HidePivotTableSubtotals()
    Dim ws As Worksheet
    Dim pt As pivotTable
    Dim pf As pivotField

    ' ピボットテーブルがあるシートを指定
    Set ws = ThisWorkbook.Sheets("ピボットシート")
    ' ピボットテーブルを指定
    Set pt = ws.PivotTables("SamplePivotTable")

    ' 行ラベルのすべてのフィールドについて小計をオフにする
    For Each pf In pt.RowFields
        pf.Subtotals(1) = False ' 小計を非表示に設定
    Next pf

    MsgBox "小計を非表示にしました。"
End Sub

小計の設定 小計の非表示は Subtotals プロパティを使って設定します。 Subtotals(1) = False にすることで、デフォルトの小計がオフになります。カスタマイズ 必要に応じて特定のフィールドだけ小計をオフにすることも可能です。その場合は、フィールド名を指定して処理します。

このコードを使用すると、ピボットテーブルの小計を簡単に非表示にすることができ、シンプルなデータ分析を実現できます。