Excelマクロでのデータ全通り組み合わせ出力方法
VBA初心者です。以下の内容につき教えて頂けますと助かります。
添付ファイルの【因子/水準表】データの全組み合わせを【全通り組み合わせ表】に出力したいです。
以下にやりたいことを纏めます。
・【因子/水準表】データ(因子/水準)の全組み合わせを【全通り組み合わせ表】に出力したい。
・【因子/水準表】と【全通り組み合わせ表】は同一シート内で列を合わせたい。
・因子数、水準数は可変としたい。(添付ファイルでは因子数3、水準数の最大は4となっているが、この数が可変となるため、【全通り組み合わせ表】の開始セルも併せて可変となる)
以上、よろしくお願いいたします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんばんは!
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
ご回答ありがとうございます!
なるほど関数でもいけるのですね。ご教授頂いた通りできました。
勉強になります。ありがとうございました。
No.3
- 回答日時:
No1.です。
For ~ Next 文は理解しやすくてよいのですが、因子の数が増減するとプログラムを書き換える必要があり、またその数がヤタラ多いと使えない欠点があります。
なので「理解しにくい」バージョンも作ってみましたので、紹介します。
これだと因子数や水準数が増減してもプログラムを書き換えずにこのままで使えます。
(どちらも最大限32767件までですが、実用上問題ないでしょう)
添付図は実行結果です。
経験の浅い方には何をしてるのか一見して全然ワカランと思いますが、
実は For ~ Next 文と全く同じことをしています。
もしプログラムを書き込む方法をご存じなかったら、http://qa.jiji.com/qa5717655.html などをご覧ください。
' 仮に因子水準表のA列は水準1,水準2等の文字、B2セルは因子1の文字だと
' 仮置きします、違ってたら Const 行加算・列加算 を適宜訂正してください。
' また組合せ表は見出し行、見出し列なしにA1セルから
' いきなりデータを書き込んでいます。
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
No.2
- 回答日時:
既に回答が出ていますが、私の書き方で書いてみました。
解釈というよりも、味付けだけの違いで、考え方は同じです。
'//
Sub CombinationMaking()
Dim x As Long, y As Long, z As Long
Dim a As Range, b As Range, c As Range
j = 10 '書き出し行
'因子に空白行を入れないでください。
Set a = Range("B2", Range("B2").End(xlDown))
Set b = Range("C2", Range("C2").End(xlDown))
Set c = Range("D2", Range("D2").End(xlDown))
Range(Cells(j, 2), Cells(j, 4).End(xlDown)).Resize(, 3).ClearContents
Application.ScreenUpdating = False
For x = 1 To a.Count
For y = 1 To b.Count
For z = 1 To c.Count
Cells(j, 2).Value = a.Cells(x, 1).Value
Cells(j, 3).Value = b.Cells(y, 1).Value
Cells(j, 4).Value = c.Cells(z, 1).Value
j = j + 1
Next
Next
Next
Application.ScreenUpdating = True
End Sub
ご回答ありがとうございます!
No1の方のご回答と合わせて理解することができました。
次は因子数を自動的に判定し、全通りの組み合わせができるよう、
自分なりに検討してみます。ありがとうございました。
No.1
- 回答日時:
因子の数がいくらくらいかによりますが、
また Excel のバージョンにもよると思いますが
少数なら (汗) For ~ Next 文で簡単にできます。
こんな感じです.
For 因子1の水準値 = 1 To 因子1の水準数
For 因子2の水準値 = 1 To 因子2の水準数
For 因子3の水準値 = 1 To 因子3の水準数
~~~~ 以下同形式の繰り返し ~~~~
行 = 行 + 1
出力シート.Cells(行,1) = 因子水準表.Cells(因子1の水準値+頭位置,1)
出力シート.Cells(行,2) = 因子水準表.Cells(因子2の水準値+頭位置,2)
出力シート.Cells(行,3) = 因子水準表.Cells(因子2の水準値+頭位置,3)
~~~~ 以下同形式の繰り返し ~~~~
Next
~~~~ 以下同形式の繰り返し ~~~~
Next
Next
ただし For ~ Next 文を入れ子にするには限度があります。
残念ながら私はその限界数をしりませんので正確なことを言えませんが、
もし因子数が何十何百とあるなら、この方法はつかえません。
その場合は、少しだけ理解しにくい別の手を使います。
ご回答ありがとうございます!
VBA初心者ですがご丁寧な説明で内容を理解することができました。
2点目のご回答も自分なりに勉強してみます!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 統計学 Rを用いた「繰り返しがある直交表実験計画法」の分析方法 8 2023/08/01 17:58
- Excel(エクセル) エクセルの表示形式について教えてください あるセルの「A」という値と、別のセルの「B」という値を組み 4 2023/02/21 21:55
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- 統計学 t検定を繰り返してはいけない理由について教えて下さい。 2 2022/05/15 12:37
- Excel(エクセル) excelの列幅高さが勝手に変わる(特定のPCだけ) 8 2022/07/14 16:51
- 分譲マンション 分譲マンションの管理組合・理事長です。この難しい件はどうすれば良いでしょうか? 9 2022/07/20 01:23
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- Excel(エクセル) Excelの数式についての質問 1 2022/10/31 15:50
- 一戸建て 準耐火構造で、かつ透湿性のある【壁の構造】について質問させてください。 現在、東京都の風致地区で、高 1 2023/07/22 02:56
- 農林水産業・鉱業 水田の水門の修理について 4 2023/04/14 10:49
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで「時間の足し算」はどう...
-
オートフィルのショートカット...
-
エクセルに詳しい方教えて下さ...
-
勤務表をエクセルで作る際、 最...
-
Excel2010で、今の、Ex...
-
UNIQUE関数が使えないバージョ...
-
Excelについて質問です。 表の...
-
Excelについて質問です。 ・デ...
-
Excelのフォントについて
-
Excel表の文字の幅を狭くしたい
-
Excelについて質問です。
-
エクセルのパスワードの一括解...
-
Excel 2019 での上書き保存につ...
-
EXCELで、関数を使って対象の項...
-
VBA
-
Excelで、10000,20000,30000と...
-
FormulaR1C1の 相対参照式のコピー
-
エクセルのソートについて
-
Excel 連番を入力する方法
-
Excelで投入数、加工数、検査待...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル詳しい方教えて下さい
-
ExcelでA列をコピーしたいので...
-
エクセルのセル統合について
-
Excelの関数で起きた現象の原因...
-
Excelファイルが閉じられい!
-
Excelのシート背景に不明な文字...
-
エクセルの枠線
-
Excel 領収書発行
-
エクセル関数の使い方を教えて...
-
C列にF列の担当者(A〜)を順番...
-
ピポットテーブルの参照元を別...
-
EXCEl VBA
-
Excelでの判別方法
-
VBAで、サブフォルダにある複数...
-
"りんご"と"みかん"というシー...
-
マクロについて教えてください。
-
EXCELファイルが読み取り専用で...
-
同一セルに入力規則のリストと...
-
100行50列の表で、1~40列でフ...
-
なぜか「Nextに対応するForがあ...
おすすめ情報