Excel VBA ピボットテーブル自動生成や更新で効率よく分析するやり方

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

1.大量のデータを素早く集計・分析し、定期的にピボットテーブルを作成・更新する必要がある。
2.レポート作成の自動化で作業効率を向上させたい。

Option Explicit

Sub CreateAndManipulatePivotTable()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim pivotSheet As Worksheet
    Dim pivotCache As pivotCache
    Dim pivotTable As pivotTable

    ' データがあるシートと範囲を設定
    Set ws = ThisWorkbook.Sheets("ピボットシート")
    Set dataRange = ws.Range("A1").CurrentRegion

    ' ピボットテーブルを挿入するシートを指定
    Set pivotSheet = ThisWorkbook.Sheets("Sheet1")
    pivotSheet.Cells.Clear ' シートをクリア

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

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

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

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

ピボットテーブル操作を自動化することで、大量のデータを効率よく集計でき、手作業のミスを減らせます。データ範囲やフィールドの設定は変更が可能なので、用途に合わせてカスタマイズしてください。

このコードを使えば、簡単にピボットテーブルを作成し、自動でフィールドを設定することができ、作業の自動化に役立ちます。