エクセルデータのコピー（？）に関しまして

質問

例えば・・・
sheet1
sheet2
sheet3

それぞれのシートの同じ箇所にあるデータを
sheet4へコピーする場合の早い方法は
ありませんでしょうか？

現在は、それぞれのページを開いて
「コピー / 貼り付け」を行っています。

何か早い方法をご存知の方がいらっしゃれば
教えて頂けると非常に助かります。

回答No.2

noname#204879 · ベストアンサー

Sheet4 のセル A1 に式 =INDIRECT("Sheet"&ROW(1:1)&"!A1") を入力して、此れをセル A2、A3 にコピーすれば、Sheet1、Sheet2、Sheet3 のセル A1 にあるデータを表示することができますけど・・・

--
Mike

回答No.3

imogasi

VBAで考えてみました。組むのは面倒だが、実行は瞬時になります。
ボタンなどのクリック・イベント・プロにすれば便利かも。
書式も含めてコピーします。
●Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
の（）内を増減およびシートの名前を入れる。
●sh.Range("A6").CopyのA6を適当に返る。
Sub test02()
Dim sh As Worksheet
For Each sh In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
sh.Range("a6").Copy
Worksheets("Sheet4").Activate
Worksheets("Sheet4").Cells(sh.Index, "A").Select
ActiveSheet.Paste
Next
End Sub

回答No.1

dr2006

sheet2、3、4にて=sheet1!A1のようにシート名!セルで指定を
すれば同じ箇所になくても値を参照することが可能です。

そういうやり方とは別にコピーしたいということでしょうか？