ＥＸＣＥＬ シートの値を求める

質問

こんにちは。こちらではいつもお世話になっています。
以下のような場合、どのような方法があるのかを教えてください。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
・１つのブックに複数毎のシート（例：シートＡ・シートＢ・シートＣ）があります。
・それらシートの同じ箇所のセルの値（例：Ａ１）を別シート（例：シートＤ）のＡ１から下に順番に入れたいと思っています。
・シート枚数が増えても対応できるような方法であれば助かります。

【シートＤ】
　　Ａ　　　　　　　　　　　　　　　　　　Ｂ
１　シートＡのＡ１のセルの値
２　シートＢのＡ１のセルの値
３　シートＣのＡ１のセルの値
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

説明が不十分であれば、申し訳ございません。
宜しくお願いします。

回答No.4

mt2008

マクロで行うのでしたらこんな感じになるかと思います。
ご参考までに……。

Sub Sample()
　Dim sMainSheet As String '<--値を貼り付けるシート名用変数
　Dim nLoop As Long
　Dim nPasteY As Long '<--貼り付ける行位置

　sMainSheet = "シートＤ" '<--値を貼り付けるシート名
　nPasteY = 1
　For nLoop = 1 To Worksheets.Count '<--シート数分ループを回す
　　If Worksheets(nLoop).Name <> sMainSheet Then '<--値を貼り付けるシートを対象外に
　　'各シートのA1セルの値を値を貼り付けシートに代入
　　　Worksheets(sMainSheet).Range("A" & nPasteY) = Worksheets(nLoop).Range("A1")
　　　nPasteY = nPasteY + 1 '<--貼り付ける行位置を１つ下に
　　End If
　Next nLoop
End Sub

回答No.3

web2525

>・シート枚数が増えても対応できるような方法
シートに名前をつけないのであれば関数でも対応は可能かと思いますが、
シートD（Sheet4）に集計するとするとA4セルの値がそのシートのA1セルの値(Sheet1！A1)が入ってしまいますよね。

シートに名前をつけた場合、などを考えるとマクロの利用のほうが確実かと思います。

回答No.2

noname#99913

A列に
=INDIRECT("Sheet"&B1&"!A1")
(下へ必要なだけコピー)

B列にシート番号
1
2
3
・
・
(必要なだけ)

回答No.1

gyouda1114

SheetA、B、C、Dの「A1」に同じ値を入れるということですか
それであれば4つのシートを作業グループとすれば同時に同じ値が入りますが
違ってますか

複数シートへの一括操作－作業グループ
http://www.relief.jp/itnote/archives/000144.php