組み合わせパターンを作りたいのですが、どのようにすれば効率的ですか？

質問

こんにちは。

現在、以下のアンケートがあります。

　　　　　　　　　選択肢（Aはよい、Bはふつう、Cは悪い）
問１　×××　A　B　C
問２　×××　A　B　C
問３　×××　A　B　C
・
・
・
問11　×××　A　B　C

ここで、問１～問11までの設問全体の組み合わせのパターンがどれだけどんなものがあるのか一気に出したいのですが、どのような方法がありますでしょうか？もし、ソフトがあればご紹介して頂ければ幸いです。

例えば、
パターン１としては、問１～問11までが全てAというパターン、
パターン２としては、問１～問11までが全てBというパターン、
パターン３としては、問１～問11までが全てCというパターン、
パターン４としては、問１～問10まではAで問11だけがBというパターン
・
・
・
など、3の11乗パターン存在すると思ってます。
こうしたパターンの一覧表を一気に作りたいのですが、どのようにすればよろしいでしょうか。

ご教示頂ければ幸いです。宜しくお願い申し上げます。

回答No.6

pori_boy

こんにちは

エクセル＋関数のみを使う方法の一例です
＃エクセルでは最大行数に65536 という制約があり
　そのために少し変なことしてるかもしれません。

0. B列からV列の列幅を3に,X列からZ列の列幅を15に
　(見易さのためです)

1. A列にオートフィルを使って0から59048まで入力
(A1からA59049までが埋まると思います)

2. B1からK1まで以下の関数を入力
B1: =MOD(INT(A1/power(3,9)),3)
C1: =MOD(INT(A1/power(3,8)),3)
D1: =MOD(INT(A1/power(3,7)),3)
E1: =MOD(INT(A1/power(3,6)),3)
F1: =MOD(INT(A1/power(3,5)),3)
G1: =MOD(INT(A1/power(3,4)),3)
H1: =MOD(INT(A1/power(3,3)),3)
I1: =MOD(INT(A1/power(3,2)),3)
J1: =MOD(INT(A1/power(3,1)),3)
K1: =MOD(INT(A1/power(3,0)),3)

3. B1からK1までを59049行目までコピー

4. M1に以下の関数を入力
M1: =IF(B1=0,"A",IF(B1=1,"B","C"))

5. M1をM1からV59049まで全部にコピー

6 X1からZ1まで以下の関数を入力
X1: =CONCATENATE("A",M1,N1,O1,P1,Q1,R1,S1,T1,U1,V1)
Y1: =CONCATENATE("B",M1,N1,O1,P1,Q1,R1,S1,T1,U1,V1)
Z1: =CONCATENATE("C",M1,N1,O1,P1,Q1,R1,S1,T1,U1,V1)

7. X1からZ1までを59049行目までコピー

とすると、X1からZ59049のセルに一覧がでます。

----
VBAがわかるのであればそちらがおすすめですが
このために覚える必要もないですね。