なんだかGoodVibes

日々の勉強メモです。

VBAでのcontinue

C#とかの言語だとcontinue ってありますよね。
ループで後続の処理を飛ばして次のループいくやつですね。
なんと、VBAではcontinue がありません。
なので、VBAでcontinueのようなことをしたい場合は
以下のようにします。

Do While ActiveCell.Value <> ""

    If Cells(ActiveCell.Row, 2).Value = ""   Then
        GoTo Continue
    End If

    ' 後続の処理〜

    ' GoTo Continue 指定時はここにスキップする
    Continue:
    ActiveCell.Offset(1, 0).Select
Loop

GoTo で移動先の名前を指定して、指定先にスキップします。
移動先は、後ろでも前でもいいです。
あまり使いすぎると処理を追うのが大変になるので注意ですが...