インデックスが有効範囲に出ないと出る

質問

下記のようなVBAを書きました。しかしインデックスが有効範囲にないとメッセージがでるのですが、どこがまちがっているでしょうか？？

Sub macro1()
Dim i As Long
Dim r As Long
Worksheets("フェアリスト").Select
Worksheets("csv").Range("A:C").ClearContents

For i = 2 To 50 Step 5
If Worksheets("フェアリスト").Cells(11, i + 1) <> "" Then
r = Worksheets("フェアリスト").Cells(65536, i + 1).End(xlUp).Row
Worksheets("フェアリスト").Range(Cells(11, i), Cells(r, i + 3)).Copy _
Destination:=Worksheets("csv").Range("B65536").End(xlUp).Offset(1)
Worksheets("csv").Range("A65536").End(xlUp).Offset(1).Resize(r - 3, 1).Value = Worksheets("フェアリスト").Cells(8, i).Value
End If
Next i
Worksheets("csv").Range("A1:C1").Delete shift:=xlShiftUp
End Sub

回答No.1

keithin · ベストアンサー

エラーが出たときに「デバッグ」のボタンをクリックして，具体的に「どの行」に色が付いてエラーになっていたのかを情報提供するようにしてください。

考えられることとしては…
１）Worksheets("フェアリスト").Selectが黄色くなっていたら
・単純にシート名を誤記しているので直します
または
・マクロを開始したときに，フェアリストシートを含んだブックとは違うブックがアクティブになっています
　フェアリストシートを含むブックを表に出してからマクロを実行するか，またはマクロの中にフェアリストシートを含むブックをselectする命令を追記します

２）Worksheets("csv").Range("A:C").ClearContentsが黄色くなっていたら
・単純にシート名を誤記しているので直します
または
・csvシートが，フェアリストシートを含むブックとは「別のブックとして開かれています」
　csvシートをフェアリストシートを含むブックのシートにしてからマクロを実行するか，またはマクロの中でcsvシートをフェアリストシートのブックに移動します
　または，マクロをcsvシートが別ブックにあるという状況に合わせて修正します

＃余談：今回のご質問とは関係ない範囲でおかしい箇所

間違い？
Worksheets("csv").Range("A:C").ClearContents
訂正：
Worksheets("csv").Range("A:E").ClearContents

間違い：
Worksheets("フェアリスト").Range(Cells(11, i), Cells(r, i + 3)).Copy _
訂正：
Range(Cells(11, i), Cells(r, i + 3)).Copy _
または
Worksheets("フェアリスト").Range(Worksheets("フェアリスト").Cells(11, i), Worksheets("フェアリスト").Cells(r, i + 3)).Copy _

間違い：
Worksheets("csv").Range("A65536").End(xlUp).Offset(1).Resize(r - 3, 1).Value = Worksheets("フェアリスト").Cells(8, i).Value
訂正：
Worksheets("csv").Range("A65536").End(xlUp).Offset(1).Resize(r - 10, 1).Value = Worksheets("フェアリスト").Cells(8, i).Value

間違い？
Worksheets("csv").Range("A1:C1").Delete shift:=xlShiftUp
訂正：
Worksheets("csv").Range("1:1").Delete shift:=xlShiftUp

補足

ありがとうございます。
一つ疑問なんですが、Resizeがどうして－１０なんでしょうか？
行数が１０までありますが、たとえば１００行まであった場合は－１００になるのでしょうか？
どうしてマイナスするのでしょうか？

回答No.2

keithin

はて。

元のご相談：
＞しかしインデックスが有効範囲にないとメッセージがでるのですが、どこがまちがっているでしょうか？？

は，どこへ行ってしまったのですか？

余談は，あくまでも今回のご質問とは関係無い内容です。
まず今回のご相談内容をクリアして，このご相談を解決で閉じてください。

その次のステップとして指摘した箇所までマクロが到達したら，改めて追加の疑問の箇所の数字を余談でお話しした数字やアナタの思いついた数字に思うとおりに色々変えて，「この数字では意図した結果にならない」や「こうすれば意図通りになる結果」になることを実際にアナタの目で確認し，どうしてそうなるのか考えてください。