エクセルVBA 複数シートからのデータ取得

質問

質問失礼します。

現在エクセルＶＢＡを用いてマクロを作成しているのですが、
３０ものシートから複数のデータを取得する方法がわかりません。
Sheet1.Cells(○,□).value　とすれば、Sheet1の○□のセルからの
データは取得できるのですが、それをSheet30まで書き続けると
結構な行数になってしまいます。
そこで、Sheet1～Sheet30まで1～30の数字をループで変更させながら
参照していく方法はありませんか？
自分でも色々試してみたのですが、どれも成功しなかったので。。

回答の程よろしくお願いします。

回答No.2

ASIMOV · ベストアンサー

これでも行けます

For sh = 1 To 30
　　Worksheets(sh).Cells(○,□).value = 何チャラカンチャラ
Next

お礼

さっそく試してみます！
お早い回答ありがとうございました＾＾
今月中なので助かりました～＞＜

回答No.1

tux_the_penguin

対象シートの名前を固定部分と数字部分に分けて数字部分を増加させつつ、
固定部分と数字部分(をstringに変換して)再度くっつけるのはいかがですか？
for i = 1 to 30 step 1
nameofsheet = sheetnameconst & ltrim(str(i))
'nameofsheetを使ってごにょごにょ…
next

変数宣言ははしょってますが判りますよね？