組み合わせの表を作成したいのですが・・・

質問

画像のように9×3の組み合わせをEXCELの表で作成したいと思っています。
組み合わせの数は、3^9通り、即ち19,683通りあります。
途中までは作成したのですが、合っているのか合っていないのか分かりません。
もっと簡単に組み合わせの表が出来ないか、考えています。

エクセルの関数若しくはVBAで計算できる方法があれば教えて頂けると幸いです。

どうかよろしくお願いいたします。

回答No.1

excelist · ベストアンサー

下記コードを新規ブックに挿入して実行してみてください。

Sub sample()
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
Dim i4 As Integer
Dim i5 As Integer
Dim i6 As Integer
Dim i7 As Integer
Dim i8 As Integer
Dim i9 As Integer

Dim o As Long

o = 2

For i1 = 1 To 3
For i2 = 1 To 3
For i3 = 1 To 3
For i4 = 1 To 3
For i5 = 1 To 3
For i6 = 1 To 3
For i7 = 1 To 3
For i8 = 1 To 3
For i9 = 1 To 3
Cells(o, 1) = i1
Cells(o, 2) = i2
Cells(o, 3) = i3
Cells(o, 4) = i4
Cells(o, 5) = i5
Cells(o, 6) = i6
Cells(o, 7) = i7
Cells(o, 8) = i8
Cells(o, 9) = i9
o = o + 1
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

お礼

ありがとうございました。
完成しました。

とても助かりました。
本当にありがとうございました。