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

質問

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

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

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

回答No.2

noname#79209

データは２５６行でおさまっているのでしょうか？
ちょっとめんどくさいですが、

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

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

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

回答No.1

zawax

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

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

補足

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