Excel VBA For Nextループを抜ける
今回は For〜Next 文を途中で抜ける方法を解説します。For〜Nextループを途中で抜けるには、「Exit For」を使います。今回はシートに図1のようにデータを入力しました。
![](https://nekoni-gohan.com/wp-content/uploads/2020/11/9d41050df06c1b9ca70009774976416a.png)
サンプルプログラムは図2になります。
![](https://nekoni-gohan.com/wp-content/uploads/2020/11/b378cdb8bf91f5fb97c9105a32b8c84a.png)
サンプルプログラムでは、1行〜6行まで、都道府県の隣のセルに数値を入力するようにループさせています。もしループの途中で北海道が見つかったら、その隣のセルに数字の「2」を入力してループを抜けるようにしてあります。サンプルプログラムの実行結果は、図3になります。
![](https://nekoni-gohan.com/wp-content/uploads/2020/11/8d7f6911c37a807dff838c87f9c7351c.png)
実行結果は北海道のセルでループを抜けているため、北海道の隣のセルに「2」を入力し、5行目、6行目の新潟、栃木の隣のセルには何も数字が入力されていません。
Exit Forでループを抜ける処理を覚えておくと、ある条件下でループを中断し異なる処理に移行できるのでとても便利です。
今回の記事がVBAプログラムの参考になれば幸いです。