ユーザー設定リスト順に並べるコード

ピボットテーブルの並び替えで「ユーザー設定リスト」を使いたいのに、思った順にならないことってありませんか？私は「曜日順」「1〜12月」「勘定科目（例：備消品費→…）」みたいに“会社のルール順”で並べたい場面が多くて、結局ユーザー設定リストに頼ることが多いです。 まず大事なのは、ピボット側の並び替えは「ユーザー設定リスト（カスタムリスト）」の影響を受ける、という点。なのでピボットで理想の順にしたいときは、先にExcel本体にカスタムリストを登録しておくのが近道です。 【ユーザー設定リストの場所】 ファイル → オプション → 詳細設定 →（下の方）全般 →「ユーザー設定リストの編集」 ここで「月」「曜日」以外に、自分の並び（例：売上高, 売上原価, 粗利…）を登録できます。私はここを知らなくて、ずっと手で並べ替えてました…。 【VBAで“ユーザー設定リスト順”に並べ替えるコツ】 記事内のように、ソートの CustomOrder（カスタムオーダー）を指定して並べ替えると、データ側は一発で狙い通りになります。ポイントは3つです。 1) SortFields を一度 Clear してから条件を入れる（前の条件が残るのを防ぐ） 2) Key（キー）を明確にする：例だと A1 を基点に列全体を対象にするイメージ 3) CustomOrder に「備消品費,旅費交通費,…」のような順番文字列を入れる 【ピボットで反映されないときのチェック】 ・並べ替え対象が「ラベル」なのか「値」なのか（値の並べ替えだと意図とズレやすい） ・同じ項目名の表記ゆれ（全角半角、スペース） ・キャッシュ更新が必要な場合：ピボットの更新（右クリック→更新） 最後に注意点。VBAで一時的に並べ替えを実行できても、Excelのユーザー設定リスト自体を“恒久的に登録したい”なら、やっぱりExcelのオプション画面から登録するのが確実です（環境移行や他PCで再現したいときもここが大事）。私も、まずはExcel側で登録→必要に応じてVBAで自動化、の流れに落ち着きました。