【VBAリファレンス】生成AI活用研究Geminiと100本ノック 15本目：VBAで実現するシート並べ替えの完全自動化術

概要：なぜ今、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の世界を深掘りし、真の自動化エンジニアを目指しましょう。