VBA：複数の繰り返しの後に下付き文字が範囲外になる

Question

私はExcel 2010を使用しています。空の "A1"セルを含む最初のワークシートを検索しようとしています。このワークブックは非常に大きく、すべてがエラーなしで動作します。反復203では、「エラー9：下付き文字が範囲外です。」というメッセージが表示されます。なぜこのようなことが起こるのか分かりません。私のコードは、ワークシート220上の最初の空の "A1"セルを見つけなければならないので、ワークシート203にエラーが出るのは奇妙です。ワークシート203のセル "A1"は、先行するワークシートの "A1"私のコードの一部が下に添付されています。

Public Sub CommandButton1_Click() 

Dim firstCell As String 
    Dim i As Integer 
    i = 1 
    firstCell = ThisWorkbook.Sheets(i).Cells(1, 1) 
    Do Until firstCell = "" Or i = 300 
     i = i + 1 
     firstCell = ThisWorkbook.Sheets(i).Cells(1, 1) 
    Loop 
end sub 

Answer 1

のではなく、ワークシートにワークシートを反復に行くとしてブック 薄暗いwsCounterとしてワークシート 薄暗いWBとして 薄暗いWS番号は、Worksheetオブジェクトを使用し、VBAはあなたのためにすべてのハードワークをさせる

Public Sub CommandButton1_Click() 
    Dim ws As Worksheet 

    For Each ws In ThisWorkbook.Worksheets 
     If ws.Index > 5 and ws.Range("A1").Value = vbNullString Then 
      'do something 
      Exit For 
     End If 
    Next ws 
End Sub 

Answer 2

サブforEachWSinWB（）ロング

For Each ws In ThisWorkbook.Worksheets 'amend as appropriate 
    wsCounter = wsCounter + 1 
    If wsCounter > 6 Then 
     Debug.Print ws.Name ' do what you need to here 
    End If 

Next ws 

End Sub 

またはhttps://support.microsoft.com/en-us/help/142126/macro-to-loop-through-all-worksheets-in-a-workbook