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

質問

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

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

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

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

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

回答No.3

mimeu

Ｎｏ１．です。

Ｆｏｒ ～ Ｎｅｘｔ 文は理解しやすくてよいのですが、因子の数が増減するとプログラムを書き換える必要があり、またその数がヤタラ多いと使えない欠点があります。
なので「理解しにくい」バージョンも作ってみましたので、紹介します。
これだと因子数や水準数が増減してもプログラムを書き換えずにこのままで使えます。
（どちらも最大限３２７６７件までですが、実用上問題ないでしょう）
添付図は実行結果です。

経験の浅い方には何をしてるのか一見して全然ワカランと思いますが、
実は　Ｆｏｒ ～ Ｎｅｘｔ 文と全く同じことをしています。
もしプログラムを書き込む方法をご存じなかったら、http://qa.jiji.com/qa5717655.html などをご覧ください。

' 仮に因子水準表のＡ列は水準１，水準２等の文字、Ｂ２セルは因子１の文字だと
' 仮置きします、違ってたら Const 行加算・列加算 を適宜訂正してください。
' また組合せ表は見出し行、見出し列なしにＡ１セルから
' いきなりデータを書き込んでいます。

Option Explicit
Option Base 1

Sub Try()
　　Const 行加算 = 2
　　Const 列加算 = 1
　　Dim 因子数行 As Integer, 因子数 As Integer, 水準値配列() As Integer, 因子数配列() As Integer
　　Dim 因子水準表 As Worksheet, 組合せ表 As Worksheet
　　Dim 行 As Long, 列 As Long
　　' 作業準備
　　Set 因子水準表 = Worksheets("水準表") ' 適当な名前に直してね
　　Set 組合せ表 = Worksheets("組合せ")　　 ' 適当な名前に直してね
　　因子数行 = 因子水準表.Range("A" & 因子水準表.Rows.Count).End(xlUp).Row
　　因子数 = 因子水準表.Range("B2").End(xlToRight).Column - 列加算
　　ReDim 水準値配列(因子数)
　　ReDim 因子数配列(因子数)
　　For 列 = 1 To 因子数
　　　　因子数配列(列) = 因子水準表.Cells(因子数行, 列 + 列加算)
　　Next 列
　　組合せ表.UsedRange.Clear
　　行 = 1
　　列 = 1
　　Application.ScreenUpdating = False

組合せ表出力:
　　水準値配列(列) = 水準値配列(列) + 1
　　If 水準値配列(列) > 因子数配列(列) Then
　　　　If 列 = 1 Then
　　　　　　Application.ScreenUpdating = True
　　　　　　End
　　　　End If
　　　　水準値配列(列) = 0
　　　　列 = 列 - 1
　　　　GoTo 組合せ表出力
　　End If
　　If 列 < 因子数 Then
　　　　列 = 列 + 1
　　　　GoTo 組合せ表出力
　　End If
　　For 列 = 1 To 因子数
　　　　組合せ表.Cells(行, 列) = 因子水準表.Cells(水準値配列(列) + 行加算, 列 + 列加算)
　　Next 列
　　列 = 因子数
　　行 = 行 + 1
　　GoTo 組合せ表出力
End Sub

お礼

ご回答ありがとうございます！
現在ご教授頂いた内容を勉強中です。後日再コメントさせて頂きます！