Home » Excel VBA Rangeオブジェクト » Offsetプロパティ » 隣のセルが空白のときにFor Each～Nextループを途中で抜ける・終了する

隣のセルが空白のときにFor Each～Nextループを途中で抜ける・終了する

対象：Excel2007, Excel2010, Excel2013

「excel2013 vba 隣のセルが空白だったらfor eachの処理を終了するには」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

Excel VBA（Visual Basic for Applications）で、For Each～Next文を抜ける・For Each～Nextループを終了するコードを探している方による検索です。

［スポンサードリンク］

For Each～Nextループを抜けるサンプルマクロ

「excel2013 vba 隣のセルが空白だったらfor eachの処理を終了するには」
という検索をなさった方の参考になりそうなマクロをご紹介しておきます。

Sub ForEachループを終了する()

　Dim rng As Range

　For Each rng In Range("B1", "B10")
　　MsgBox rng.Offset(0, -1).Value
　　If rng.Offset(0, -1).Value = "" Then Exit For
　Next rng

　MsgBox "For Each～Nextループを抜けました。"

End Sub

上記のマクロを実行すると、B1:B10セルにループ処理が行われ、
　For Each rng In Range("B1", "B10")

左隣のセルの値が順番にメッセージボックスに表示されます。
　　MsgBox rng.Offset(0, -1).Value

左隣のセルが空白だったときにFor Each～Nextループを終了しています。
　　If rng.Offset(0, -1).Value = "" Then Exit For

「excel2013 vba 隣のセルが空白だったらfor eachの処理を終了するには」
という検索をした方が知りたかったのは、この部分でしょう。

If文の処理として「Exit For」というコードを書いてやれば、For文をExitします。

ここでは「隣のセルが空白だったら」ということですから
　If rng.Offset(0, -1).Value = "" Then
と、RangeオブジェクトのOffsetプロパティの第2引数を「-1」と指定することで、左隣のセルを参照して、そのValueを調べています。

ループ処理が終わると
「For Each～Nextループを抜けました。」
というメッセージが表示され、マクロが終了します。
　MsgBox "For Each～Nextループを抜けました。"
End Sub

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » Offsetプロパティ » 隣のセルが空白のときにFor Each～Nextループを途中で抜ける・終了する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Offsetプロパティ」の記事一覧