For/Next ループから抜けるには、Exit For ステートメントを使用します。次の例では、グローバル配列 names から“Fred”を検索しています。その名前が見つかった場合は、配列内のインデックスが返されます。見つからなかった場合は、-1 が返されます。たとえば、名前の配列が
Array ("Frank", "Helen", "Fred", "Linda")
である場合、次の式は 3 を返します。
Global names () As String 'names 配列はほかの式で初期化され '値が代入されているとします Dim i formula = -1 'UBound 関数は配列を引数として 'そのサイズを返します For i = 1 to UBound (names) If names (i) = "Fred" Then formula = i Exit For End If Next I