組合せ表を作る　１．すべての組合せを考える - Infomentのブログ～Excel VBA奮闘記～

詳細は割愛するが、仕事で３つの装置の部品を組み合わせて何某か評価することとなった。評価するための組合せ表が必要となったので、作ってみた。
エッセンスのみ、一部だけ表すと、こんな感じだ。

これをマクロで作成するなら、例えばこんな感じだろうか。

Sub Sample()
    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim l As Long
    Dim arr(0 To 3 ^ 4, 1 To 5)
    Dim counter As Long
    
        ' ラベル行データ作成。
        arr(0, 1) = "No."
        arr(0, 2) = "部品1"
        arr(0, 3) = "部品2"
        arr(0, 4) = "部品3"
        arr(0, 5) = "部品4"
        
        ' ボディ部のデータ作成。
        ' "A"が、Chr関数でChr(65)であることを利用している。
        For i = 1 To 3
            For j = 1 To 3
                For k = 1 To 3
                    For l = 1 To 3
                        counter = counter + 1
                        arr(counter, 1) = counter
                        arr(counter, 2) = Chr(i + 64)
                        arr(counter, 3) = Chr(j + 64)
                        arr(counter, 4) = Chr(k + 64)
                        arr(counter, 5) = Chr(l + 64)
        Next l, k, j, i
        
        ' 値貼り付け。
        Range("A1").Resize(3 ^ 4 + 1, 5) = arr
End Sub