エクセルのマクロについて質問です。

質問

エクセルのマクロについて質問です。
複数のsheet（毎回数が変わります）があり、集計シートにデータを貼り付けたいのですが
複数Sheetのデータを集計シートの１行に貼り付けます
複数Sheet１　J1→集計Sheet　A2
複数Sheet２　J1→集計Sheet　A3

複数Sheetが毎回数が違うので、どうのようにマクロを組んだらよいのでしょうか。
以上、よろしくお願いいたします。

回答No.1

mu2011 · ベストアンサー

一例です。
集計用シートをブック先頭シートにして、Sheets.countでループしては如何でしょうか。
サンプルコード
For i = 2 To Sheets.Count
Worksheets("集計").Range("A2").Offset(i - 2) = Sheets(i).Range("J1")
Next

お礼

とても助かりました。
本当にどうしようかとあせっていましたので
Mu2011様のご回答があり、本当に感謝です！！
本当にありがとうございました。