Sub ピボットテーブルを更新する() '"ピボットテーブル1"はピボットテーブル名 ActiveSheet.PivotTables("ピボットテーブル1").PivotCache.Refresh End Sub