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