Excelマクロでのデータ全通り組み合わせ出力方法

質問

Excelマクロでのデータ全通り組み合わせ出力方法
VBA初心者です。以下の内容につき教えて頂けますと助かります。

添付ファイルの【因子/水準表】データの全組み合わせを【全通り組み合わせ表】に出力したいです。
以下にやりたいことを纏めます。

・【因子/水準表】データ(因子/水準)の全組み合わせを【全通り組み合わせ表】に出力したい。
・【因子/水準表】と【全通り組み合わせ表】は同一シート内で列を合わせたい。
・因子数、水準数は可変としたい。(添付ファイルでは因子数3、水準数の最大は4となっているが、この数が可変となるため、【全通り組み合わせ表】の開始セルも併せて可変となる)

以上、よろしくお願いいたします。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.4

tom04

こんばんは！
VBAでないので、参考にならなかったら無視してください。

↓の画像でA列～C列のデータをE列～G列に表示しています。

E2セルは
=IF(COUNTA($A$2:$A$100)*COUNTA($B$2:$B$100)*COUNTA($C$2:$C$100)<ROW(A1),"",INDEX($A$2:$A$100,INT((ROW(A1)-1+COUNTA($B$2:$B$100)*COUNTA($C$2:$C$100))/(COUNTA($B$2:$B$100)*COUNTA($C$2:$C$100)))))

F2セルは
=IF(E2="","",INDEX($B$2:$B$100,IF(MOD(INT((ROW(A1)-1)/COUNTA($C$2:$C$100))+1,COUNTA($B$2:$B$100))=0,COUNTA($B$2:$B$100),MOD(INT((ROW(A1)-1)/COUNTA($C$2:$C$100))+1,COUNTA($B$2:$B$100)))))

G2セルは
=IF(E2="","",INDEX($C$2:$C$100,IF(MOD(ROW(A1),COUNTA($C$2:$C$100))=0,COUNTA($C$2:$C$100),MOD(ROW(A1),COUNTA($C$2:$C$100)))))

という数式を入れ、E2～G2セルを範囲指定し、G2セルのフィルハンドルで下へずぃ～～～！っと
コピーすると画像のような感じになります。

以上、無理矢理って感じの方法ですが
最初に書いたように参考にならなかったら読み流してくださいね。m(__)m

お礼

ご回答ありがとうございます！
なるほど関数でもいけるのですね。ご教授頂いた通りできました。
勉強になります。ありがとうございました。