エクセルの複数ワークシートの列を縦に並べる方法

エクセルの１ファイル中にある複数のワークシートの列（項目は同じ）を
新しいワークシート列に統合する機能はありますか？

ワークシート(1)　列Ａ－１　列Ｂ－１　列Ｃ－１
ワークシート(2)　列Ａ－２　列Ｂ－２　列Ｃ－２
ワークシート(3)　列Ａ－３　列Ｂ－２　列Ｃ－３

新ワークシート　列Ａ－１　列Ｂ－１　列Ｃ－１
　　　　　　　　　　列Ａ－２　列Ｂ－２　列Ｃ－２
　　　　　　　　　　列Ａ－３　列Ｂ－３　列Ｃ－３

と、いう具合です。コピーすればいいのですが、
一括でできる方法があれば、教えてください。

よろしくお願いいたします。



　　　　　　　　　　　　　　　　　　　

No.2 ベストアンサー 回答者： keithin 回答日時： 2011/01/12 18:36

実際にあなたの手にあるエクセルの具体的な正しい姿と内容を，目に見えるように手抜きせずご相談に書いてみると，たとえば統合や串刺しの計算でひとまとめに出来る可能性はあります。

説明が出来ないのなら，ごくありきたりの方法で
シート４のA1:
=Sheet1!A1&Sheet2!A1&Sheet3!A1
と記入し，A1をA1からC3までコピーするとご相談に書かれた事が実現できます。

この回答へのお礼

お礼が遅れて申し訳ありませんでした。
ご回答ありがとうございました。
参考にさせていただきます。

エクセルはあまり得意ではないので、精進いたします。

お礼日時：2011/01/22 17:30

No.3 回答者： imogasi 回答日時： 2011/01/12 21:13

（１）統合というエクセルの機能を試しましたか

（２）またＶＢＡを勉強すれば、１０行ぐらいのプログラムで、実現すると思います。
処理ロジック（アイデア）は奇抜なものは使わなくて良い。
（３）関数で処理するのは適してないと思う。
一種の「表の組み換え」問題だが、表の組み換えは関数では不可能といって良いぐらい複雑になる。
ーーー
（２）の一例
集積用シートはＳｈｅｅｔ４とする。
Sub test01()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name = "Sheet4" Then
Else
d1 = sh.Range("A65536").End(xlUp).Row
MsgBox d1
d2 = Worksheets("Sheet4").Range("A65536").End(xlUp).Row
MsgBox d2
Range(sh.Cells(2, "A"), sh.Cells(d1, "C")).Copy Worksheets("Sheet4").Cells(d2 + 1, "A")
End If
Next
End Sub

この回答へのお礼

お礼が遅れて申し訳ありませんでした。
ご回答ありがとうございました。
参考にさせていただきます。

お礼日時：2011/01/22 17:29

No.1 回答者： mu2011 回答日時： 2011/01/12 18:19

一例です。

（１）新ワークシートのA1に=OFFSET(INDIRECT("'ワークシート("&ROW(A1)&")'!A1"),ROW(A1)-1,COLUMN(A1)-1)を設定、縦横にコピー
（２）数式コピー範囲をコピー→形式を選択して貼り付け→値を選択→ＯＫ

この回答へのお礼

お礼が遅れて申し訳ありませんでした。
ご回答ありがとうございました。
参考にさせていただきます。

お礼日時：2011/01/22 17:30