人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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行ぐらいのデータが並ぶかと思います。
そのような処理が可能なマクロや関数等、お教えいただけないでしょうか。
よろしくお願い致します。

●質問者: moon-fondu
●カテゴリ:ウェブ制作 学習・教育
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3
●1200ポイント ベストアンサー

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

moon-fonduさんのコメント
すごいです、うまくC列に合体した文字列が表示されました! ありがとうございます(^^;)
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ