【VBA】表の行数分、繰り返し処理をする【ループ】

VBAコード

ここでは例として、
　・シート「sample」上の
　・表の行数分、繰り返し処理
をします。
※行の値をイミディエイトウインドウへ出力します。

Option Explicit

Sub sample()
    
    '開始行を定義
    Const START_ROW As Long = 3
    '列を定義
    Const NO_COLUMN As Long = 2
    Const NAME_COLUMN As Long = 3
    Const DATE_OF_BIRTH_COLUMN As Long = 4
    
    Dim ws As Worksheet
    Dim endRow As Long
    Dim row As Long
    
    '対象シートを指定
    Set ws = Worksheets("sample")
    
    '最終行を取得する(上から下へ見ていく)
    endRow = ws.Cells(START_ROW, NO_COLUMN).End(xlDown).row
    
    '表の行数、分繰り返し
    For row = START_ROW To endRow
        '行の値をイミディエイトウインドウへ出力
        Debug.Print ws.Cells(row, NO_COLUMN) & "," & _
                    ws.Cells(row, NAME_COLUMN) & "," & _
                    ws.Cells(row, DATE_OF_BIRTH_COLUMN)
    Next
    
End Sub

実行結果

表の行数分、繰り返し処理できました。

参考①

上記のVBAコードは以下の記事を参考にして作成しました。

●最終行を取得する

参考②

上記で使用した以下の詳細は、公式サイトをご確認ください。

●For…Next