Excel VBA For Nextループを抜ける

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

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

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

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

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

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