For Each ～ Nextを使った繰り返し処理

今回はFor Each ～ Nextステートメントを使った繰り返し処理についてメモしておきます。

Worksheetsコレクション

実行プログラム

Sub Sample2_7_1()
 
    Dim objWS      As Worksheet
    Dim i          As Integer
    
    i = 1

    For Each objWS In ThisWorkbook.Worksheets

        Cells(i, 1).Value = objWS.Name
        i = i + 1

    Next objWS

End Sub

Sub Sample2_7_1()

Dim objWS As Worksheet

Dim i As Integer

i = 1

For Each objWS In ThisWorkbook.Worksheets

Cells(i, 1).Value = objWS.Name

i = i + 1

Next objWS

End Sub

実行後