ExcelVBA データを要約して見やすく整理するピボットテーブルを自動作成する

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

1.毎月の売上データを部門ごとに自動集計する

2.顧客データを地域や年齢層別に分析する

3.在庫データをカテゴリ別に要約する

Option Explicit

Sub CreatePivotTable()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim pivotWs As Worksheet
    Dim pivotCache As pivotCache
    Dim pivotTable As pivotTable

    ' ソースデータがあるシートと範囲を指定
    Set ws = ThisWorkbook.Sheets("データシート")
    Set dataRange = ws.Range("A1").CurrentRegion

    ' ピボットテーブルを作成するシートを指定
    Set pivotWs = ThisWorkbook.Sheets.Add
    pivotWs.Name = "ピボット集計"

    ' ピボットキャッシュの作成
    Set pivotCache = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=dataRange)

    ' ピボットテーブルを作成
    Set pivotTable = pivotCache.CreatePivotTable( _
        TableDestination:=pivotWs.Range("A1"), _
        TableName:="SamplePivotTable")

    ' ピボットテーブルにフィールドを追加
    With pivotTable
        .PivotFields("年月").Orientation = xlRowField
        .PivotFields("商品").Orientation = xlColumnField
        .PivotFields("売上金額").Orientation = xlDataField
    End With

    MsgBox "ピボットテーブルを作成しました！"
End Sub

このコードを実行すると、指定したデータ範囲を基に自動でピボットテーブルが作成されます。フィールド設定は分析したい項目に応じて変更してください。

ピボットテーブルを使用すると、複雑なデータを簡単に要約できます。