ExcelVBA ピボットテーブルの「行ラベル」に複数フィールドを追加する方法

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

1.部署別、年別、月別などの階層的なデータを分析したい。

2.複数のカテゴリで集計したデータを簡単に表示したい。

3.定期的に複数の行ラベルを追加する必要があるときに、自動化したい。

Excel VBA ピボットテーブル「行ラベル」に複数フィールドを追加｜使い方とポイント

Option Explicit

Sub AddMultipleRowLabels()
    Dim ws As Worksheet
    Dim pivotTable As pivotTable

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

    ' ピボットテーブル初期化
    pivotTable.ClearTable

    ' 行ラベルに複数のフィールドを追加
    pivotTable.PivotFields("年月").Orientation = xlRowField
    pivotTable.PivotFields("商品").Orientation = xlRowField

    MsgBox "複数の行ラベルが追加されました！"
End Sub

フィールドの追加順序によって、ピボットテーブルの階層が決まります。例えば、「部門」→「年」→「月」の順に追加すると、部門別に年と月が表示される階層構造になります。フィールド名は、必ず正しい列名を指定するようにしましょう。間違った名前を指定するとエラーが発生します。