2列間の文字列を組み合わせた文字列を、新たな列に記載したいです

今、A列に以下のようなデータがあります。

※(行目)|文字列

1|あいうえお
2|かきくけこ
3|さしすせそ
4|たちつてと


50行ぐらいあります。
同じくB列にも50行ぐらい、以下のようなデータが入っています。

1|AB
2|ABCD
3|EFG
4|HIJK
5|LM



この状況におきまして。
C列に「A列とB列を合体させた全ての組み合わせの文字列を列挙」するようにしたいのです。
具体的に申し上げますと、


1|あいうえお AB
2|あいうえお ABCD
3|あいうえお EFG
4|あいうえお HIJK
5|あいうえお LM
6|かきくけこ AB



といった感じです。
組み合わせたA列とB列の間には「 」(半角スペース)を可能であれば入れたいです。
この例だと、C列には2500行ぐらいのデータが並ぶかと思います。
そのような処理が可能なマクロや関数等、お教えいただけないでしょうか。
よろしくお願い致します。

回答の条件
  • 1人5回まで
  • 登録:2016/05/21 19:28:10
  • 終了:2016/05/23 02:35:29

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4325ベストアンサー獲得回数17732016/05/21 21:45:17

ポイント1200pt

VBA を使います。
以下のコードを標準モジュールに貼り付けて、combine_a_b サブルーチンを実行してください。

Sub combine_a_b()

    last_row_1 = Cells(Rows.Count, 1).End(xlUp).Row
    last_row_2 = Cells(Rows.Count, 2).End(xlUp).Row

    dest_row = 1

    For r1 = 1 To last_row_1
        For r2 = 1 To last_row_2
            Cells(dest_row, 3).Value = Cells(r1, 1).Value & " " & Cells(r2, 2).Value
            dest_row = dest_row + 1
            DoEvents
        Next
    Next

End Sub
id:moon-fondu

すごいです、うまくC列に合体した文字列が表示されました!
ありがとうございます(^^;)

2016/05/23 02:35:15

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません