vba：for-next基礎

' 基本的には、countで実装するで問題ないし、使い勝手が良いと思う。
Sub mysub()
   
    Dim i As Long
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Debug.Print i, ThisWorkbook.Sheets(i).Name, "シート名"
    Next i
    
    Dim cell As Range
    
    ' rangeで値を取得するのは良いが、出力順に注意が必要
    For i = 1 To Sheet1.Range("A1:C2").Count
        Debug.Print i, Sheet1.Range("A1:C2")(i).Value
    Next i
    
    Debug.Print "-----------------------"
    
End Sub

• ちなみに、出力順

出力順