詳細は割愛するが、仕事で3つの装置の部品を組み合わせて何某か評価することとなった。評価するための組合せ表が必要となったので、作ってみた。 エッセンスのみ、一部だけ表すと、こんな感じだ。 これをマクロで作成するなら、例えばこんな感じだろうか。 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) = "…