Sub 一定条件を満たすとForを途中で抜ける()
'どこまで処理するのか最終行を取得する
最終行 = Cells(Rows.Count, "A").End(xlUp).Row
For 行数 = 2 To 最終行 '2行目から最終行まで処理する
If Range("B" & 行数) = 0 Then '0の場合
Exit For 'Forを途中で抜ける
Else '0ではない場合は「済」を入力する
Range("B" & 行数) = "済"
End If
Next 行数
End Sub