空白セルまでループで処理させたい
マクロではセルの最終行まで処理させるケースも多いですが、
空白行まで処理させることも多いです。
その場合以下処理を行います。
———-
①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
コメント