VBATips

空白セルまでループ処理させる【DoLoop】【ExcelVBA】

空白セルまでループで処理させたい

マクロではセルの最終行まで処理させるケースも多いですが、
空白行まで処理させることも多いです。
その場合以下処理を行います。
———-
①DoLoopでループを永遠とさせる。
②該当セルが空白行かどうか判断し、Loop処理を抜けます。
———-

空白セルまでループで処理させるサンプルコード

Sub VoidCellLoop1()
    Dim r As Long: r = 1
    
    '■空白セルまで処理する(空白セルが出ればExitDo)
    Do
        '■空白セルかどうかチェックする
        If Cells(r, 1) = "" Then Exit Do
        
        '----------
        '行いたい処理を記載
        '----------
        
        r = r + 1
    Loop
End Sub

関連記事

コメント

タイトルとURLをコピーしました