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.3 回答者： bin-chan 回答日時： 2011/03/18 22:04

もうひとつの方法

１）読み込んだシートを仮に[Sheet1]とします。
２）セルB1に値[1]を入力、セルB2に値[2]を入力。
３）セルB1：セルB2を選択し、選択領域右下の■をダブルクリック（これで全行に行番号が振られます）
４）セルC1に式[=A1&A2&A3]を入力。
５）セルC1：セルC3を選択し、選択領域右下の■をダブルクリック（これで3行単位に式がコピーされます）
３行単位で、１行目にデータ、２行目・３行目が空白が繰り返しになります。


６）列B:列Cを選択してコピー。
７）どこか別シートで、形式を選択して貼り付け-値
８）列B(元の列Cである３行連結部分）から列A（元の列Aである連番）を選択。
９）メニューorリボンのデータ>並べ替えを実行（キーは列B)
これで列Bの値がある行がひとかたまりになります。

１０）列Aで、列Bに値がない部分の「行全体」を削除。
１１）メニューorリボンのデータ>並べ替えを実行（キーは列A)
これで３行連結部のみが残ります。

この回答へのお礼

早速、お教え頂き、ありがとうございます。
自宅のPCで試したところ、希望通りのものが出来上がりました。
休み明けにでも会社のPCで同様に試してみます！
本当にありがとうございました！！

お礼日時：2011/03/19 11:52

No.2 回答者： neochi_life 回答日時： 2011/03/18 21:52

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

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

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

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

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

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

このあたりを参考にして

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

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

この回答へのお礼

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

お礼日時：2011/03/19 11:55

No.1 回答者： bin-chan 回答日時： 2011/03/18 21:52

１）テキストを読み込んだシートを仮に[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で試してみます。
本当にありがとうございました！！

お礼日時：2011/03/19 21:57