概要：なぜ今、VBAによるシート並べ替えが必要なのか
業務効率化を突き詰めると、避けて通れないのが「シート管理の煩雑さ」です。プロジェクトが進むにつれ、Excelファイル内のシートは増え続け、いつの間にか目的のシートを探すだけで時間を浪費するようになります。特に、月次レポートや部署ごとの集計表など、定型的なシートが大量に生成される環境では、手作業での並べ替えはミスを誘発し、精神的にも大きなストレスとなります。
本稿では、生成AI「Gemini」を技術パートナーとして活用し、VBAを用いたシート並べ替えの自動化を徹底解説します。単なるコードの紹介にとどまらず、実務で直面する「昇順・降順の制御」「特定のシートを先頭に固定する」「特定文字を含むシートを最後尾に寄せる」といった高度な要件を、AIとの対話を通じて解決するプロセスを学びます。
詳細解説：シート並べ替えアルゴリズムの核心
Excelのシート並べ替えにおいて、最も重要なのは「バブルソート」の考え方です。VBAには標準の並べ替え関数が存在しないため、シートの「名前」や「インデックス」をキーとして、隣り合う要素を比較し、入れ替えるという基本アルゴリズムを実装する必要があります。
ここで重要となるのが「Moveメソッド」の正しい使い方です。
Worksheets(i).Move Before:=Worksheets(j)
この構文を駆使することで、物理的にシートの配置を変更することが可能です。しかし、単に名前順にするだけでは不十分なケースがほとんどです。「マスタシートは常に先頭にしたい」「履歴シートは常に最後尾にしたい」というビジネス上の制約をどうコードに落とし込むか。これがプロのエンジニアとしての腕の見せ所です。
サンプルコード：Geminiと共に洗練させた並べ替えスクリプト
以下は、Geminiとの対話を通じて最適化された、汎用性の高いシート並べ替え用コードです。
Sub SortWorksheetsByName()
' シートを名前順（昇順）に並べ替えるプロシージャ
Dim i As Long, j As Long
Dim wsCount As Long
wsCount = ThisWorkbook.Worksheets.Count
' バブルソートによる名前の比較と並べ替え
For i = 1 To wsCount - 1
For j = i + 1 To wsCount
' StrComp関数で大文字小文字を区別せず比較
If StrComp(Worksheets(i).Name, Worksheets(j).Name, vbTextCompare) > 0 Then
' シートを移動（jをiの前に配置）
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
MsgBox "シートの並べ替えが完了しました。", vbInformation
End Sub
' 応用編：特定のシートを先頭に固定して並べ替えるロジック
Sub SortWorksheetsWithAnchor()
Dim i As Long, j As Long
Dim anchorName As String
anchorName = "MENU" ' 先頭に固定したいシート名
' アンカーシートを強制的に先頭へ
On Error Resume Next
Worksheets(anchorName).Move Before:=Worksheets(1)
On Error GoTo 0
' 2番目以降のシートを並べ替え
For i = 2 To Worksheets.Count - 1
For j = i + 1 To Worksheets.Count
If StrComp(Worksheets(i).Name, Worksheets(j).Name, vbTextCompare) > 0 Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
End Sub
実務アドバイス：Geminiを「コードレビューアー」として使う
このコードをそのまま使うのも良いですが、真のベテランは「AIを自分のコーディング能力を磨くための壁打ち相手」として活用します。
1. プロンプトの工夫：単に「シートを並べ替えるコードを書いて」と命じるのではなく、「シート名に特定の文字列（例：’月次’）が含まれる場合は、アルファベット順ではなく、日付順（シート名に含まれる数値）で並べ替えたい。そのためのロジックを提示してほしい」といった具体的な制約を提示してください。
2. エラーハンドリングの強化：Geminiが生成したコードに対し、「シート名が重複した場合や、保護されているシートがある場合の挙動はどうなるか？」と問いかけ、コードに`On Error Resume Next`や`If ws.ProtectContents Then`といった防衛策を追記させる習慣をつけてください。
3. 可読性の追求：コードのコメントアウトをGeminiに自動生成させることで、将来の自分がメンテナンスしやすい資産へと昇華させましょう。
実務においては、単に動けば良いというレベルを超え、エラーが発生した際に「なぜ止まったか」を即座に特定できる構造を作ることが、プロフェッショナルの条件です。
まとめ：自動化の先に見える生産性向上
シートの並べ替えという、一見些細な作業を自動化することには、大きな意味があります。それは「Excelの操作に意識を向けず、本来の思考（分析や改善）に集中できる環境」を自ら作り出すことだからです。
今回紹介したコードは、Geminiという強力なAIを味方につけることで、さらに高度なロジックへと拡張可能です。例えば、シート名を解析して「四半期ごと」や「部署コードごと」にグループ化して並べるなど、アイデア次第で可能性は無限に広がります。
VBAと生成AI。この二つのツールを組み合わせることで、あなたのExcel業務は劇的に変わります。今日から「手作業でシートをドラッグする」という行為を卒業し、コードによる論理的なシート管理へとシフトしてください。技術は常に進化しています。その進化を使いこなす側になるか、使われる側になるか。選択権は常にあなた自身の手の中にあります。
次回の100本ノックでは、さらに一歩進んだ「シートの動的な集約とPDF出力」について解説します。VBAの世界を深掘りし、真の自動化エンジニアを目指しましょう。
