Sub ピボットテーブルを降順処理する() With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("会社名") .AutoSort xlDescending, "合計 / 販売数" End With End Sub