Digital_Neko

フリーランスプログラマー

Excel VBA For Nextループを抜ける

今回は For〜Next 文を途中で抜ける方法を解説します。For〜Nextループを途中で抜けるには、「Exit For」を使います。今回はシートに図1のようにデータを入力しました。

図1シートへのデータ入力

サンプルプログラムは図2になります。

図2サンプルプログラム

サンプルプログラムでは、1行〜6行まで、都道府県の隣のセルに数値を入力するようにループさせています。もしループの途中で北海道が見つかったら、その隣のセルに数字の「2」を入力してループを抜けるようにしてあります。サンプルプログラムの実行結果は、図3になります。

図3 サンプルプログラム実行結果

実行結果は北海道のセルでループを抜けているため、北海道の隣のセルに「2」を入力し、5行目、6行目の新潟、栃木の隣のセルには何も数字が入力されていません。

Exit Forでループを抜ける処理を覚えておくと、ある条件下でループを中断し異なる処理に移行できるのでとても便利です。

今回の記事がVBAプログラムの参考になれば幸いです。