EXCELで、別シートの同位置のセルをまとめて表示させたい

質問

EXCELで、SHEETごとに同じ内容のデータがあります。
データの入っているSHEETは、50としまう。
必要な同じ位置（たとえばA1ならA1だけ、A2ならA2だけ）のデータを、SHEET51に、１行ごとに表示させたいと思っております。SHEET１のA1のデータをSHEET51のA1、SHEET2のA1のデータをSHEET51のA2に。
方法は、ないでしょうか？

別件の質問が別にありますので、こちらもよろしくお願いします。
色の付いたセルだけをカウントしたい。
http://oshiete1.goo.ne.jp/qa2538192.html

回答No.1

neKo_deux · ベストアンサー

A列にシート名が入っているとして、

A1:Sheet1
A2:Sheet2
A3:Sheet3

B1:=INDIRECT(A1&"!A2")
B2:=INDIRECT(A2&"!A2")
B3:=INDIRECT(A3&"!A2")

とか。

お礼

ありがとうございました。簡単な方法なので、助かりました。

回答No.2

ham_kamo

関数でも簡単にできそうですが、あえてマクロにしてみました。
どのシートでもいいから、一覧表示させたいセルを選んで、以下のマクロを実行すると、一番最後のシートのＡ列に一覧表示されます。

Sub 特定のセル一覧()
　　Dim Cell_Address As String
　　Dim i As Integer

　　Cell_Address = Selection.Cells(1, 1).Address
　　Worksheets(Worksheets.Count).Cells.ClearContents

　　For i = 1 To Worksheets.Count - 1
　　　　Worksheets(Worksheets.Count).Cells(i, 1) = Worksheets(i).Range(Cell_Address)
　　Next
　　Worksheets(Worksheets.Count).Activate

End Sub