複数シートのデータを行列を入れ替えて統合したい

現在1ブックに30シートが入っています。
30シートすべて同じフォーマットで
Ａ　　　　　　Ｂ
項目名１　データ１
項目名２　データ２
…

のように複数行2列の内容です。
この30シート分のデータを行列を入れ替えて１シートに統合し
Ａ項目名１　　　　　　　Ｂ項目名２　　　　　　　Ｃ項目名３
シート１のデータ１　　シート１データ２　　シート１のデータ３
シート２のデータ１　　シート２データ２　　シート２のデータ３
…
シート30のデータ１　　シート30データ２　　シート30のデータ３

のようにしたいのです。何ブックもあり、手動では時間がかかるため
VBAで処理できたらと思います。
どのようにすればよいか教えていただければ助かります。

No.2 回答者： noname#79209 回答日時： 2008/04/07 01:57

データは２５６行でおさまっているのでしょうか？

ちょっとめんどくさいですが、

１．シート１の項目名列のでーたを選択して、コピー
２．纏めるシートを開いて、「機能を選択して貼り付け」から、「行列を入れ替えで貼り付け」をクリック。
これを３０シート分繰り返す。

或いは、
纏めるシートのA1に
=INDEX(Sheet1!$A:$A,COLUMN(),1)
として横にコピー
纏めるシートのA2に
=INDEX(Sheet1!$B:$B,COLUMN(),1)
あとはこれの繰り返しでシート名を変更していく。

シート名がSheet1～Sheet30なら、
=INDIRECT("Sheet"&ROW()&"!B"&COLUMN())
でもいけます。

No.1 回答者： zawax 回答日時： 2008/04/06 20:27

行列入れ替えはPasteで、TransposeオプションつければOKですね。

あとは全シートを舐めるループの中で、Copy、Pasteを繰り返せば
よいでしょう。
項目数が可変の場合は、最大行はどこかを書いておくか、
Selection.Endで取ってくるなり工夫しましょう。

この回答への補足

早速の回答ありがとうございます。項目数は固定です。
お構いなければソース全体を記述していただけないでしょうか。

補足日時：2008/04/06 21:00