【時短120%】Excelピボットテーブル作成・更新をVBAで自動化！初心者でもコピペで毎日10分の時間を生み出す方法

Sub AutoPivotTable()
    ' --- 変数の定義（使う道具の名前を決める） ---
    Dim wsData As Worksheet    ' 元データが入っているシート
    Dim wsPivot As Worksheet   ' ピボットを作る先のシート
    Dim pc As PivotCache       ' データの記憶場所
    Dim pt As PivotTable       ' ピボットテーブル本体
    Dim lastRow As Long        ' データの最終行

    ' 1. シートの設定（ご自身のシート名に変えてください）
    Set wsData = ThisWorkbook.Worksheets("データ")
   
    ' もし「集計」シートがすでにある場合は、一旦消して新しく作ります
    On Error Resume Next
    Application.DisplayAlerts = False
    Worksheets("集計").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    Set wsPivot = Worksheets.Add
    wsPivot.Name = "集計"

    ' 2. データの最終行を自動で見つける
    lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row

    ' 3. ピボットキャッシュの作成
    ' SourceDataには「データ」シートのA1から右下の端っこまでを指定
    Set pc = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=wsData.Name & "!R1C1:R" & lastRow & "C5") ' C5はE列という意味

    ' 4. ピボットテーブルの作成
    Set pt = pc.CreatePivotTable( _
        TableDestination:=wsPivot.Name & "!R3C1", _
        TableName:="売上集計表")

    ' 5. フィールドの設定（どの項目を縦・横・値にするか決める）
    With pt
        ' 行（縦軸）に「担当者」を入れる
        .PivotFields("担当者").Orientation = xlRowField
        ' 値に「売上金額」を入れて、合計を計算する
        With .PivotFields("売上金額")
            .Orientation = xlDataField
            .Function = xlSum
            .NumberFormat = "#,##0" ' カンマ区切りで見やすくする
        End With
    End With

    MsgBox "ピボットテーブルの作成が完了しました！"
End Sub