【VBAリファレンス】Excel VBAで実現する多次元の魔法：ジャグ配列から順列を生成する高度なアルゴリズム技術

概要

Excel VBAを用いた業務自動化において、データの組み合わせを網羅的に扱う「順列（Permutation）」の生成は、極めて難易度が高く、かつ強力な武器となります。特に、Twitter（現X）のようなSNS上のクイズやパズルで出題される「条件付きの組み合わせ問題」を解く際、固定された二次元配列では対応できないケースが多々あります。そこで鍵となるのが「ジャグ配列（Jagged Array）」です。ジャグ配列とは、配列の中にさらに配列を格納する、いわゆる「配列の配列」のことです。本稿では、このジャグ配列を駆使して、不規則な要素数を持つ集合から効率的に順列を生成するアルゴリズムを解説します。

詳細解説

順列とは、異なる複数の要素からいくつかを取り出して一列に並べることを指します。通常、プログラミングの教科書では「固定長の二次元配列」を想定したアルゴリズムが紹介されますが、実務では「グループAから1つ、グループBから2つ…」といった、グループごとに要素数が異なるケースが頻発します。

ジャグ配列を利用することで、各グループの要素数を動的に保持したまま、再帰呼び出し（Recursive Call）による探索が可能になります。再帰処理の本質は「現在の段階で選んだ要素」をスタックに積み、次のグループへと処理をバトンタッチすることにあります。このとき、ジャグ配列の各要素にアクセスするインデックス管理を徹底することで、無駄なループを排除し、計算量を最適化できます。

再帰関数を設計する際、最も重要なのは「終了条件」と「状態の保持」です。ジャグ配列の階層を深さとして捉え、すべての階層を掘り下げた段階で結果をワークシートに出力する、というロジックを構築します。これにより、膨大な組み合わせの中から特定の条件を満たすものだけを抽出するフィルタリングも容易になります。

サンプルコード

以下に、3つの異なるグループから要素を1つずつ選び出し、すべての順列を生成する汎用的なコードを示します。このコードはジャグ配列を引数として受け取り、順列を再帰的に生成します。

Option Explicit

' メインプロシージャ
Sub GeneratePermutations()
    Dim groups(0 To 2) As Variant
    groups(0) = Array("A1", "A2")
    groups(1) = Array("B1", "B2", "B3")
    groups(2) = Array("C1", "C2")
    
    Dim result As Collection
    Set result = New Collection
    
    ' 再帰処理の開始
    Call PermuteRecursive(groups, 0, "", result)
    
    ' 結果の出力
    Dim i As Long
    For i = 1 To result.Count
        Cells(i, 1).Value = result(i)
    Next i
End Sub

' 再帰関数
Sub PermuteRecursive(ByRef groups As Variant, ByVal depth As Integer, _
                     ByVal currentStr As String, ByRef result As Collection)
    ' 終了条件：すべてのグループを走査し終えたらコレクションに格納
    If depth > UBound(groups) Then
        result.Add currentStr
        Exit Sub
    End If
    
    ' 現在のグループの要素をループ
    Dim i As Long
    For i = LBound(groups(depth)) To UBound(groups(depth))
        Dim nextStr As String
        If currentStr = "" Then
            nextStr = groups(depth)(i)
        Else
            nextStr = currentStr & "," & groups(depth)(i)
        End If
        
        ' 次の階層へ
        Call PermuteRecursive(groups, depth + 1, nextStr, result)
    Next i
End Sub

実務アドバイス

ジャグ配列と再帰処理を組み合わせる際、実務で直面する最大の壁は「メモリ消費量」と「実行速度」です。組み合わせの数が数万、数十万と増えると、再帰の深さやオブジェクトの生成がボトルネックとなります。

1. コレクションの最適化：結果を格納する際に`Collection`や`ArrayList`を使用しますが、要素数が数百万を超える場合は、あらかじめ配列のサイズを計算し、`ReDim`で動的にメモリを確保する手法の方が遥かに高速です。
2. 早期リターン（枝刈り）：もし条件が「合計値が100以下」といった特定の制約を持つ場合、再帰の途中でその条件を満たさないことが確定した時点で処理を打ち切る「枝刈り」を実装してください。これにより、計算時間を指数関数的に短縮できます。
3. デバッグの工夫：再帰処理はステップ実行が難しいため、`Debug.Print`を用いて「現在どの深さにいるか」「どの要素を選択したか」をイミディエイトウィンドウに出力する習慣をつけましょう。

また、Twitter出題のようなパズル系問題では、回答の妥当性を検証する関数を別に用意し、順列生成のループ内で呼び出す設計にすると、プログラムの保守性が格段に向上します。

まとめ

ジャグ配列を用いた順列生成は、一見すると複雑なテクニックに思えるかもしれません。しかし、一度この再帰的な構造を理解してしまえば、Excel VBAによるデータ分析の幅は劇的に広がります。固定されたセル範囲に依存せず、プログラム自身がデータの構造を解釈して組み合わせを導き出す様子は、まさにプロフェッショナルなVBA開発の醍醐味と言えるでしょう。

本稿で紹介したアルゴリズムは、パズル解決だけでなく、在庫管理の組み合わせ最適化や、複雑な価格設定のシミュレーションなど、実務の現場でも即座に応用可能です。ぜひ、このコードをベースに、ご自身の業務環境に合わせてカスタマイズを重ねてみてください。VBAという古くからある言語であっても、アルゴリズムの工夫次第で、現代的なデータ処理を鮮やかにこなすことができるのです。挑戦を止めることなく、より効率的で美しいコードを目指してください。