EXCELで3行を一組にして結合する方法について

質問

かなりの行があるテキストファイルをEXCELに読み込みます。
3行が1組になっているので、別のBというシートにその3行を連結した結果を書き出します。
（3行といっても1行には1セルしかありませんが・・・）
次に4行目～6行目が1組になっているので、上記と同様にBシートの2行目に連結した結果を書き出します。
これは、手で１行づつBシートに
=A1&A2&A3 、次の行に =A4&A5&A6

等と式を記載すれば希望のものが出来るのですが、場合によっては元の行が30,000行ほどあったりするので、それを全て手で入力していくには、根気と時間が必要になります。
この作業は、毎日発生する予定で、他の仕事もやらなくてはならないため、短時間にこれを実現できれば・・・と、思っていますが、何をどうすれば良いのかわからずにいます。

これを解決できる方法がありましたら、是非教えて頂けると助かります。
ちなみにEXCEL XP（OfficeXPに付属）のものです。
例えば、EXCELではなく、＊＊＊というフリーのソフトならできます！というのも歓迎です。
すみませんが、宜しくお願いします。

回答No.5

tom04 · ベストアンサー

こんばんは！
一例です。
画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面がでますので
↓のコードをコピー＆ペーストし、マクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）
Sheet1のデータは1行目からあるとします。

Sub test() 'この行から
Dim i As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1") '←Sheet名（Sheet1の部分）は適宜変更してください。
Set ws2 = Worksheets("sheet2") '←こちらのSheet名も適宜変更
For i = 1 To ws1.Cells(Rows.Count, 1).End(xlUp).Row Step 3
ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = _
ws1.Cells(i, 1) & ws1.Cells(i + 1, 1) & ws1.Cells(i + 2, 1)
Next i
End Sub 'この行まで

お役に立てば良いのですが・・・m(__)m

お礼

自宅のEXCELのVerが違うためか、マクロを実行できるようにするために少し手間取りましたが、希望通りのものが実行できました！
とっても感激です。
本当にありがとうございました！！

回答No.2

neochi_life

参考ページはたくさんありますが

すぐ役立つ　エクセルＶＢＡマクロ集
http://www.asahi-net.or.jp/~zn3y-ngi/

こちらで使い方などを調べて（ＶＢＡマクロというのはオフィスに標準でパッケージされてるのですぐ使えます）

以下のページを参考にマクロを作ればいいのではないでしょうか？
Macro　コピー
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv20009.html
異なるシート間で範囲指定してコピーして貼り付けるには？
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv991.html

7.2 データがある最終行を知る方法
http://www.happy2-island.com/excelsmile/smile03/capter00702.shtml

文字列の結合
http://www.officepro.jp/excelvba/basic/index7.html

このあたりを参考にして

１：元シート（仮にＡとして）の文字列を３行分結合する
２：Ｂシートに１の結果を書き込む
３：Ａシートのデータ行が終わるまで、１～２の動作を繰り返す

こんな感じのものを作れば、ボタン一つで質問主様の意図する動作を行わせることができると思います。

お礼

早速お教え頂きありがとうございます！
今後も色々と使えそうなサイトをご紹介いただき、ありがとうございます。
これらを参考に、試してみます。
本当にありがとうございました！

回答No.1

bin-chan

１）テキストを読み込んだシートを仮に[Sheet1]とします。適宜読み替えてください。
２）シートを追加します。このシートを仮に[Sheet2]とします。
３）sheet2のセルa1に、以下をコピペしてください。
式[=indirect("Sheet1!A"&(row()-1)*3+1)&indirect("Sheet1!A"&(row()-1)*3+2)&indirect("Sheet1!A"&(row()-1)*3+3)]
４）シート２のセルA1の右下（セルA2左下・セルB1の右上・セルB2の左上）に■があるので、マウスで下方向に必要なだけドラッグ。

これでSheet1の列Aが３行単位で連結されてSheet2のセルA1以降に表示されます。

以下必要に応じて。
５）Sheet2の列Aをコピー
６）どこかに、「形式を選択して貼り付け」－「値」で式の結果が値として保存されます。

お礼

早速教えて頂き、ありがとうございます。
自宅のEXCELはVerが異なるのですが、それでも問題なく希望通りのものができました。
休み明けに会社のPCで試してみます。
本当にありがとうございました！！