ナンバーズ３、４の重複しないシングルの組み合わせ

質問

どなたかご存じでしたら回答をお願いします。
数字選択式宝くじのナンバーズ4の組み合わせは、
0000～9999までの10000通りあります。
この中で、全ての数字が異なる組み合わせは
5040通り（10×9×8×7）あると思います。
これを、「重複しないシングル組み合わせ」は
210通り（5040÷（4×3×２×１））になるかと思います。
この210通りの全ての組み合わせをエクセルで作りたいのですが、
作り方が分かりません。
同様に、ナンバーズ３については、000～999までの1000通りの
組み合わせの中から、全ての数字が異なる組み合わせは
720通り（10×9×8）あると思います。
これを、「重複しないシングル組み合わせ」は
120通り（720÷（3×2×1））の全て組み合わせをエクセルで作りたいのですが、
作り方が分かりません。

120 通りと240通りなのでエクセル又はエクセルＶＢＡでの作り方を教えてください。

よろしくお願いします。

回答No.2

nag0720 · ベストアンサー

エクセルＶＢＡ
ナンバーズ３の場合です。

n = 0
For i = 0 To 9
　For j = i + 1 To 9
　　For k = j + 1 To 9
　　　n = n + 1
　　　Cells(n, 1) = i
　　　Cells(n, 2) = j
　　　Cells(n, 3) = k
　　Next
　Next
Next

お礼

ありがとうございます。
早速試してみます。

回答No.1

edomin7777

「重複しないシングル組み合わせ」って具体的にどういうもの？

補足

説明不足で申し訳ありません。
具体的に言いますと、
「０１２３」という１つの番号があった場合、
この数字を並び変えることにより
下記の２４個のシングルの番号ができあがります。
これらは「０１２３」の派生ですので、
結局「０１２３」が「重複しないシングル組み合わせ２１０通りの１つ」であり、
あと、２０９個の数字の組み合わせが知りたいところです。

０１２３、０１３２、０２１３、０２３１、０３１２、０３２１、１０２３、１０３２
１２０３、１２３０、１３０２、１３２０、２０１３、２０３１、２１０３、２１３０
２３０１、２３１０、３０１２、３０２１、３１０２、３１２０、３２０１、３２１０

数学的に言えば、

◎相異なるｎ個のもののｒ組合せの総数　：ｎＣｒ=ｎ！／ｒ！（ｎ－ｒ）！

で、n=10,r=4にして計算すれば２１０という答えが出ると思いますが、
知りたいのは、２１０通りという全組み合わせをエクセルに出力する方法（又は
出力した結果）が知りたい事です。

よろしくお願いします。