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

質問

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

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

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

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

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

回答No.2

keithin · ベストアンサー

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

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

お礼

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

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

回答No.3

imogasi

（１）統合というエクセルの機能を試しましたか
（２）またＶＢＡを勉強すれば、１０行ぐらいのプログラムで、実現すると思います。
処理ロジック（アイデア）は奇抜なものは使わなくて良い。
（３）関数で処理するのは適してないと思う。
一種の「表の組み換え」問題だが、表の組み換えは関数では不可能といって良いぐらい複雑になる。
ーーー
（２）の一例
集積用シートはＳｈｅｅｔ４とする。
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

お礼

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

回答No.1

mu2011

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

お礼

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