エクセルで順列の列挙

例えば
１　と　２　という２個の数字(文字)がある場合，

　A列　B列
　 １　　 ２
　 ２　　 １

１　２　３　という３個の数字(文字)がある場合，

　A列　B列　C列
　 １　　 ２　　　３
　 １　　 ３　　　２
　 ２　　 １　　　３
　 ２　　 ３　　　１
　 ３　　 １　　　２
　 ３　　 ２　　　１

１　２　３　４　という４個の数字(文字)がある場合，

　A列　B列　C列　D列
　 １　　 ２　　　３　　 ４
　 １　　 ２　　　４　　 ３
　　　～　省略　～
　 ４　　 ３　　　２　　 １

という具合に ｎ 個の数字(文字)がある場合，過不足無く列挙させるマクロ(VBA)を教えてください。
Excelの仕様上65,536行までしかないので，「８個の場合」とかいう限定された個数でもかまいません。
また，123，132，213，…,321　という具合に数値として１列に並べる方法でもかまいません。
また昇り順でなくてもかまいません。　よろしくおねがいします。

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2005/09/08 09:04

こんにちは。

学校の宿題とかではありませんよね。
以下は、再帰を使った、順列生成のアルゴリズムです。
たぶん、大丈夫だと思います。後は、65536を超えないようにしてください。

Const N As Integer = 3 '生成する順列数
Dim k As Long
Dim p(1 To N)
Sub perm_test()
　Dim i As Long
　ActiveSheet.Cells.ClearContents
　k = 0
　For i = 1 To N
　　p(i) = i
　Next i
　perm 1
End Sub
Private Sub perm(i As Long)
　Dim j As Long, t As Long
　If i < N Then
　 For j = i To N
　　 t = p(i): p(i) = p(j): p(j) = t
　　 perm i + 1
　　 t = p(i): p(i) = p(j): p(j) = t
　 Next j
　Else
　　 For j = 1 To N
　　　 Cells(k + 1, j).Value = p(j)
　　 Next j
　　 k = k + 1
　End If
End Sub

この回答へのお礼

えっ，し・し・し…宿題…　バレたか…
というような歳ではないのですよ，残念ながら。
宿題はイヤですけど，２～３日くらいなら宿題があったころにもどってみたい気もします。

回答ありがとうございました！
８桁までならハングアップすることもなかったです。完璧です。すごい。

お礼日時：2005/09/08 17:37

No.2 回答者： BLUEPIXY 回答日時： 2005/09/08 11:21

過去に似たような質問がありました

（セルを分けていませんが）
http://okweb.jp/kotaeru.php3?qid=1126322
http://okweb.jp/kotaeru.php3?qid=1128457

この回答へのお礼

回答ありがとうございました。
実際に２つとも実験させていただきました。
特に「質問：ＥＸＣＥＬのマクロ　：再帰的式を使って書き換える」は参考になりました。
JavaScriptの方ではよくお名前を拝見しておりましたが，実は何でもプログラムできる方だったのですね。
今後ともよろしくおねがいします。

お礼日時：2005/09/08 17:36