Excel VBA Do Loopステートメントを抜ける

今回は、Excel VBAのDo〜Loopステートメントを抜ける方法です。Do〜Loopステートメントは「Exit Do」を使ってループを抜けます。早速ですが、プログラムの結果を見るためのシート図１を用意しました。

シートの１列目に10行まで、1〜10の数値が入力してあります。サンプルプログラムは図2になります。

セルの１列目の値がブランクになるまで、２列目に「○」を入力しています。そして、1列目のセルの値が「5」の時にループを抜けるようにしてあります。実行結果は図3になります。

サンプルプログラムは「If文」の前に「○」を入力するように記述してあるので、１列目の値が5の場所に「○」を入力して、ループを終了しています。

このように、「Exit Do」を使うとDo〜Loopステートメントを抜ける事ができます。