Excelで組み合わせ

質問

Excel2007で記号の組み合わせの計算がしたいです。パターンの出力と言うんですかね？ちょっとその辺の単語力に乏しいのですが…。
質問させていただきます。

A列、B列、C列、D列の10行目までにアイウエオカキクケコのいずれかがが各セルに入ってます。A列×B列×C列×D列
4個×5個×3個×6個=360通り

何通りでもいいのですが
できたパターンをF列に一通りずつ(できるならまとめて一発ででもいいのですが)上から入れていきたいです。全部4文字固定です

ご協力お願いします。

回答No.3

mt2015 · ベストアンサー

ANo.2です。

タイプミスが有ったので訂正(^^;

Sub Sample()
　　Dim nLast(4) As Long
　　For i = 1 To 4
　　　　nLast(i) = Cells(Rows.Count, i).End(xlUp).Row
　　Next i

　　For j = 1 To nLast(1)
　　　　For k = 1 To nLast(2)
　　　　　　For l = 1 To nLast(3)
　　　　　　　　For m = 1 To nLast(4)
　　　　　　　　　　nRow = nRow + 1
　　　　　　　　　　Cells(nRow, 6) = Cells(j, 1) & Cells(k, 2) & Cells(l, 3) & Cells(m, 4)
　　　　　　　　Next m
　　　　　　Next l
　　　　Next k
　　Next j
End Sub

お礼

ありがとうございます(^o^)v

助かりましたmt2015さん。

回答No.2

mt2015

前の回答のベストアンサーのマクロに少し手を入れれば良いだけですよ。
https://okwave.jp/qa/q9565242.html

Sub Sample()
　　Dim nLast(4) As Long
　　For i = 1 To 4
　　　　nLast(i) = Cells(Rows.Count, i).End(xlUp).Row
　　Next i

　　For j = 1 To nLast(1)
　　　　For k = 1 To nLast(2)
　　　　　　For l = 1 To nLast(3)
　　　　　　　　For m = 1 To nLast(4)
　　　　　　　　　　nRow = nRow + 1
　　　　　　　　　　Cells(nRow, 6) = Cells(j, 1) & Cells(k, 2) & Cells(l, 2) & Cells(m, 2)
　　　　　　　　Next m
　　　　　　Next l
　　　　Next k
　　Next j
End Sub

お礼

ありがとうございました。

回答No.1

中京区 桑原町（@l4330）

=A1&B1&C1&D1
この関数をF1に入力し後は下方向にコピーすればよい

お礼

ありがとうございました。