ある条件に合致した場合にループを抜けるなど。 Sub sample1() Dim i As Integer Dim subject As String For i = 2 To 10 If Not IsNumeric(Range("B" & i)) Then subject = Range("A" & i) Exit For End If Next i MsgBox subject & "には数値以外の値が入…

■構文 For カウンタ名 = 初期値 To 到達値 処理 Next カウンタ名 ■例 Sub sample1() Dim arr() As Variant Dim i As Integer Dim str As String arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For i = 0 To 9 str = str & arr(i) & ", " Next i MsgBox str En…