【ExcelVBA】for文 GoToでループをスキップする

ある条件の場合はそれ以降の処理を省略し、ループ内の先頭の記述にスキップする。

VBA以外のプログラミング言語だとcontinueを使うのが一般的。

Sub sample1()

　　Dim i As Integer

　　Dim sum As Integer

　　For i = 2 To 10

L1:

　　　　If Not IsNumeric(Range("B" & i)) Then

　　　　　　i = i + 1

　　　　　　GoTo L1

　　　　End If

　　　　sum = sum + Range("B" & i)

　　Next i

　　MsgBox "合計点数は" & sum & "点です"

End Sub