For NextステートメントやDo Loopステートメントなどによるループから強制的に抜け出るには、Exitステートメントを使います。
Sub Sample2()
Dim i As Long, Target As Range
For i = 1 To 1000
If Cells(i, 1) = “合計” Then
Set Target = Cells(i, 1)
Exit For
End If
Next i
”この後Targetに対する処理…
End Sub
やったことを忘れないようにするための備忘録
For NextステートメントやDo Loopステートメントなどによるループから強制的に抜け出るには、Exitステートメントを使います。
Sub Sample2()
Dim i As Long, Target As Range
For i = 1 To 1000
If Cells(i, 1) = “合計” Then
Set Target = Cells(i, 1)
Exit For
End If
Next i
”この後Targetに対する処理…
End Sub