Excelでの全通りの組み合わせ出力方法（文字列）

A列B列は１行目からデータがあるものとします。 C列に転記するものとします。 以下の手順をおためしください。 1.Altキー+F11キーでVisualBasicEditorを呼び出します。 2.メニューから挿入、標準モジュールで出てきたコードウィンド（右側の白い広い部分）に以下のコードをコピペします。 Sub test01() a = Cells(Rows.Count, "A").End(xlUp).Row 'A列最終行取得 b = Cells(Rows.Count, "B").End(xlUp).Row 'B列最終行取得 For i = 1 To a '１行からA列最終行まで繰り返し For n = 1 To b '１行からB列最終行まで繰り返し x = x + 1 Cells(x, "C") = Cells(i, "A") & " " & Cells(n, "B") 'C列に結合して転

[wedoit]

http://superdbtool.com/blog/archives/40 これは一番簡単です。