シートの繰り返し処理につきまして

Question

シート名が「Page1」から「Page50」まであるシートを
for next　処理したいのですが、どのように記載すればよいでしょうか。

'シートPage〇まで転記　毎月更新
Dim i As Integer
For i = 1 To 50

Worksheets("Sheet1").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1) = Workbooks("エラーリスト.xlsx").Worksheets("Page(i)").Cells(13, 2).Value

Comments

[tatsu99]

右辺のシート名は"Page(1)"～"Page(50)" ということですか？
それとも
"Page1"～"Page50"
ですか？

[GKHHKJ]

"Page1"～"Page50"です！

Answer 1

インデックスが有効範囲にありません、と出てきてしまいます…

下記のように黄色の行で停止すると思います。

その時、Worksheets(sname).Cells(13, 2).Value　のsnameにマウスを当ててください。
Page1～Page50の何れかの値が表示されるはずです。
その表示された値が、エラーリスト.xlsxのシート内に存在しない為、エラーになっています。
（例　snameがPage3なら、エラーリスト.xlsxにシート：Page3が存在しない）

Comments

[GKHHKJ]

ご回答くださりありがとうございます。変数の定義分とfor分を入れ替えたら解決しました！

Answer 2

右辺のシート名はPage1～Page50の前提です。
以下のようにしてください。

    Dim i As Integer
    Dim sname As String
    For i = 1 To 50
        sname = "Page" & i
        Worksheets("Sheet1").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1) = Workbooks("エラーリスト.xlsx").Worksheets(sname).Cells(13, 2).Value
    Next

Comments

[GKHHKJ]

インデックスが有効範囲にありません、と出てきてしまいます…