エクセル 複数ワークシート セルのコピー

質問

お世話になります。

複数のワークシート上に同じ表があり、その表のある特定のセル（例えば、A1セル）の数字を、新たに作成した特定のワークシートのどこでもいいので一度にCOPYしたいです。　ワークシートからワークシートへ毎回COPYという手間を省きたいと思っています。

マクロを使ってでもいいですし、何かいい方法があればご教授よろしくお願いします。

回答No.2

masnoske

既存シートのA1を新規シートのA1に横方向または縦方向にコピー

Sub Test()
Dim shcnt As Long
Dim i As Long
shcnt = Worksheets.Count
Worksheets.Add After:=Worksheets(shcnt)
For i = 1 To shcnt
ActiveSheet.Cells(1, i).Value = Worksheets(i).Range("A1") ' 横方向に貼り付け
'ActiveSheet.Cells(i, 1).Value = Worksheets(i).Range("A1") ' 縦方向に貼り付け
Next
End Sub

回答No.1

kkkkkm

既存シートすべてのA1のデータを新規作成するシートのA1から右方向に並べます。

Sub Test()
Dim i As Long, SCount As Long
Dim tmp As Variant

ReDim tmp(0)
SCount = Worksheets.Count
For i = 1 To SCount
tmp(i - 1) = Sheets(i).Range("A1").Value
ReDim Preserve tmp(i)
Next
Sheets.Add After:=Worksheets(SCount)
ActiveSheet.Range("A1").Resize(1, SCount).Value = tmp
End Sub