VBAを使っていると、こんな場面に出くわすことがありますよね。無限ループにハマったときは、本当に焦ります。データがどんどん上書きされていくのを見ているしかない……。

でも安心してください。Excelマクロの強制終了には、確実な手順があります。この記事では、4ステップで段階的に止める方法を解説します。キーボード操作から最終手段まで、順番に試せば必ず止められますよ。

さらに後半では、暴走を防ぐ予防策もVBAコード付きで紹介します。

Excelマクロが強制終了できない状況とは？

こんな時に強制終了が必要になる

通常、マクロは処理が完了すると自動的に終了します。しかし、次のケースでは手動で止める必要があります。

• 無限ループに入り、処理が永遠に終わらない
• 想定外のセル範囲を処理していて、データが壊れそう
• 処理に時間がかかりすぎて、他の作業ができない

こうした場面で慌てないために、止め方を知っておくことが大切です。

この記事の4ステップの流れ

本記事では、簡単な方法から順番に4つのステップで解説します。

まずステップ1を試してください。ダメなら次の段階へ進む流れです。

Excelマクロを強制終了する方法【4ステップ】

「応答なし」でも待つべきか止めるべきか：今すぐ判断できる4つの確認ポイント

ステップ2の説明で少し触れましたが、「応答なし」の状態でも実際には処理が進んでいることがあります。無理に強制終了すると、処理途中のデータが壊れる可能性があります。まず判断してから行動しましょう。

確認ポイント1: ステータスバーを見る

Excelウィンドウの左下にあるステータスバーを確認してください。「準備完了」以外の文字（「処理中…」など、VBAコードで Application.StatusBar に表示している文字列）が出ていれば、マクロはまだ動いています。

確認ポイント2: タスクマネージャーのCPU使用率を見る

タスクマネージャー（Ctrl+Shift+Esc）を開いて、Microsoft ExcelのCPU使用率を確認します。使用率が高い状態が続いていれば、Excelが処理を続けているサインです。逆に0%のまま何も変化しないなら、本当に止まっている可能性があります。

確認ポイント3: ScreenUpdating = False を疑う

VBAコードの中に Application.ScreenUpdating = False が書いてある場合、画面の更新が止まっているだけで処理は正常に進んでいることがあります。見た目が完全に固まって見えても、しばらく待てば終わるケースです。

確認ポイント4: しばらく待ってみる

大量データの処理では、数分〜十数分かかることもあります。ステータスバーとCPU使用率に動きがあるなら、5分程度は待ってみましょう。待てる状況であれば、強制終了よりも完了を待つほうがデータの安全性は高いです。

これらを確認してもまったく変化がなく、何をしても応答しない場合に、はじめてステップ2・ステップ3へ進むことを検討してください。マクロ以外の原因でExcel自体が重い場合はExcelが重い・応答なしを解決する方法を確認してください。

ステップ1: Escキー・Ctrl+Breakで停止する（Win/Mac）

最もシンプルな方法です。マクロの処理が重くなければ、キーボードだけで止められます。

Windowsの場合

Macの場合

ポイント: 1回押しただけでは反応しないことがあります。処理が重いとキー入力の受付が遅れます。連打するか長押しして粘り強く試してみてください。

NOTE

ノートPCではBreakキーが見当たらないことがあります。その場合は「Fn + B」や「Fn + Ctrl + B」など、機種によって異なります。お使いのPCの取扱説明書を確認してみてください。

停止に成功すると、VBEが開いてコードが黄色くハイライトされます。これがBreak Mode（中断モード）です。この状態では変数の値が保持されています。F5キーで処理を続行することもできます。

ただし、完全に終了したい場合は次のステップ1.5へ進んでください。

ステップ1.5: VBEのリセットボタンで停止する

ステップ1でBreak Modeに入ったあと、完全に終了する方法です。ここが意外と見落とされがちなポイントです。

VBE（Visual Basic Editor）の画面上部にあるリセットボタン（■）をクリックしてください。メニューからは「実行」→「リセット」でも同じ操作ができます。

VBEの画面と各メニューの見方を確認しておくと、ボタンの位置がすぐにわかりますよ。

Break ModeとDesign Timeの違い

Ctrl+BreakとリセットボタンではVBEの状態が異なります。この違いを知っておくと、デバッグ時に役立ちます。

「とにかく止めたい」ならリセットボタンを押しましょう。「原因を調べたい」ならBreak Modeのまま、イミディエイトウィンドウの使い方で変数の値を確認するのがおすすめです。暴走の原因を特定するにはVBAデバッグ方法｜ブレークポイントから変数確認までが役立ちます。

ステップ2: 応答なしダイアログから終了する

キーボードで止まらない場合、Excelが「応答なし」になることがあります。

このとき、固まったExcelの画面をクリックしてみてください。Windowsが警告メッセージを表示することがあります。「プログラムを終了します」を選択すれば、Excelごと終了できます。

WARNING

アプリケーション自体を終了させるため、保存していないデータは消えます。マクロ実行前にファイルを保存しておく習慣をつけましょう。

ただし、「応答なし」に見えても実際には処理中のケースがあります。VBAの Application.ScreenUpdating = False で画面更新を止めているだけかもしれません。

見分け方: ステータスバー（Excel画面の左下）を確認してください。処理状況が表示されていれば、マクロはまだ動いています。しばらく待ってみるのも手です。

ステップ3: タスクマネージャー／アクティビティモニタで強制終了する

ここまでの方法で止まらなければ、OSからアプリごと終了させます。これが最終手段です。

Windowsの場合（タスクマネージャー）

1. Ctrl + Shift + Esc でタスクマネージャーを起動する
2. 「プロセス」タブで Microsoft Excel を探す
3. 選択して [タスクの終了] をクリックする

NOTE

Ctrl + Shift + Escで開かない場合は、Ctrl + Alt + Deleteからタスクマネージャーを選択してください。

Macの場合（アプリケーションの強制終了）

1. Command + Option + Esc で強制終了画面を開く
2. Microsoft Excel を選択する
3. [強制終了] をクリックする

WARNING

ステップ2・3ではExcel自体を終了させます。保存前のデータはすべて失われます。重要なファイルを扱うときは、マクロ実行前の保存を徹底してください。

マクロが止まらなくなる原因を知っておこう

そもそも、なぜマクロが止まらなくなるのでしょうか？原因を知っておけば、同じトラブルを防げます。

無限ループ（Do Loop / For文の終了条件ミス）

最も多い原因がこれです。Do…Loop文の使い方やFor〜Next文の使い方で、終了条件が正しく設定されていないと無限に繰り返されます。

'--- 無限ループの例（カウンターが更新されない） ---
Sub InfiniteLoopExample()
    Dim i As Long 'カウンター変数
    i = 1
    Do While i <= 10
        Cells(i, 1).Value = i
        '--- i = i + 1 を書き忘れると無限ループ ---
    Loop
End Sub

上のコードでは i = i + 1 を書き忘れています。i がずっと1のままなので、Do While i <= 10 が永遠にTrueです。セルA1に1を書き込み続けてしまいます。

イベントプロシージャ（Worksheet_Change）が引き起こす無限ループ

通常のDo/Forループ以外にも、よくある原因があります。イベントプロシージャによって引き起こされる無限ループです。

Worksheet_Change は、シート上のセルが変更されたときに自動で呼び出されるプロシージャです。問題は、このプロシージャの中でセルを書き換えると、自分自身が再び呼び出されることにあります。これが繰り返されると、ループの終了条件がないのと同じ状態になります。

'--- Worksheet_Changeが自分を呼び続ける例 ---
Private Sub Worksheet_Change(ByVal Target As Range)
    '変更されたセルの隣に「済」と書く
    Target.Offset(0, 1).Value = "済"
    '↑このセルへの書き込みが再びWorksheet_Changeを呼び出す
End Sub

Target.Offset(0, 1).Value = "済" の書き込みが新たな変更イベントとして検出され、また Worksheet_Change が動く――この連鎖が止まりません。

対処法はイベント発火を一時停止することです。Application.EnableEvents = False を最初に書いて、処理後に必ず True へ戻します。On Error GoTo と組み合わせてエラーが出ても必ず戻すようにしましょう。

'--- EnableEventsで再帰呼び出しを防ぐ正しい書き方 ---
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Cleanup

    Application.EnableEvents = False  '← これで再帰呼び出しを止める

    Target.Offset(0, 1).Value = "済"

Cleanup:
    Application.EnableEvents = True   '← 必ず元に戻す
End Sub

ひとつ注意点があります。強制終了した場合、Application.EnableEvents が False のまま残ることがあります。この状態ではExcelを閉じるまでの間、すべてのイベント（保存・変更・セレクション移動など）が一切発火しません。強制終了後にExcelの動作がおかしいと感じたら、VBEのイミディエイトウィンドウで次のコードを実行して確認してください。

'--- イミディエイトウィンドウで実行してリセットする ---
Application.EnableEvents = True

イミディエイトウィンドウの使い方では、このような緊急リセット操作の手順も解説しています。

大量データ処理による長時間実行

無限ループではなく、データ量が多すぎるケースです。たとえば10万行のデータを1セルずつ処理すると、数分〜数十分かかることがあります。

この場合、強制終了せず完了を待つのが正解かもしれません。ステータスバーで進捗を確認しましょう。

ScreenUpdating=Falseによる見た目フリーズ

VBAで高速化のために Application.ScreenUpdating = False を使うと、処理中は画面が更新されません。見た目は完全にフリーズしたように見えます。でも裏では正常に処理が進んでいることがあります。

ScreenUpdating はマクロが正常終了しても自動でTrueに戻りません。強制終了した場合はなおさらです。コードの最後に必ず Application.ScreenUpdating = True を書いておきましょう。

再発防止策：VBAマクロの暴走を防ぐ3つのコード

強制終了の方法を知っておくのも大事です。でも、そもそも暴走しないようにするのがベストですよね。ここでは実務で使える予防策を3つ紹介します。

実行前にファイルを自動保存する

最もシンプルで最も大切な対策です。マクロ実行前にファイルを上書き保存しておきましょう。

強制終了すると保存前のデータは消えます。でも直前に保存しておけば、その時点に戻れます。VBAコードに自動保存を組み込むのがおすすめです。

'--- マクロ実行前に自動保存するコード ---
Sub SaveBeforeRun()
    ThisWorkbook.Save '現在のブックを上書き保存
    MsgBox "保存が完了しました。処理を開始します。"
    '--- ここから実際の処理を記述 ---
End Sub

ループにカウンター上限を設定する（If文活用）

Do...Loop文の使い方を使うときは、カウンター上限を設定すると安心です。終了条件にバグがあっても、上限で止まります。

'--- カウンター上限付きのDo Loopコード ---
Sub SafeLoopExample()
    Dim i As Long       'カウンター変数
    Dim maxCount As Long '上限回数
    maxCount = 100000
    i = 1

    Do While i <= 10
        Cells(i, 1).Value = i
        i = i + 1

        '--- 安全装置: 上限を超えたら強制終了 ---
        If i > maxCount Then
            MsgBox "処理回数が上限(" & maxCount & _
                   "回)を超えました。処理を中断します。"
            Exit Do
        End If
    Loop
End Sub

If文（条件分岐）の使い方で上限チェックを入れるのがポイントです。無限ループが起きても自動的に止まります。maxCount の値は処理内容に応じて調整してください。

コードで意図的に止める：End / Stop / Exit Sub の違い

「暴走するかもしれない」と思ったとき、コードの中にあらかじめ「止まる命令」を書いておく方法があります。VBAには似た役割を持つ命令が3つあり、挙動が大きく異なります。

Exit Sub が最も安全です。現在動いているプロシージャだけを終了し、呼び出し元のマクロへ制御を返します。上限チェックやエラー判定と組み合わせて使うのが基本パターンです。

Stop はデバッグ専用です。コードにブレークポイントを埋め込む感覚で使います。Break Modeに入るので変数の値を確認できます。ただし本番コードに Stop を残してはいけません。ユーザーが実行したときにVBEが突然開いて混乱します。

End はできるだけ使わないでください。 End を実行すると呼び出し元のマクロも含めてVBA全体が即座に止まります。開いているユーザーフォームも閉じられ、Unload イベントすら呼ばれません。On Error GoTo で設定した後始末コードも実行されないため、ファイルが中途半端な状態になる可能性があります。

実務で「強制的に止めたい」場面では、Exit Sub か先ほど紹介したカウンター上限のパターンで対応するのが適切です。

DoEventsでEscキーを受け付けるようにする

DoEvents は、VBAの処理中にOSへ制御を戻す関数です。これをループに入れておくと、処理中でもEscキーを受け付けてくれます。

'--- DoEventsを使ったEsc受付コード ---
Sub DoEventsExample()
    Dim i As Long 'カウンター変数

    For i = 1 To 100000
        Cells(i, 1).Value = i

        '--- 100回ごとにOSへ制御を戻す ---
        If i Mod 100 = 0 Then
            DoEvents
        End If
    Next i
End Sub

DoEvents を毎回呼ぶと処理速度が落ちます。上の例のように If i Mod 100 = 0 で100回に1回だけ実行するのがコツです。

これを入れておけば、「Escが効かない」というトラブルを大幅に減らせますよ。

よくあるトラブルと対処法Q&A

[faq q="EscキーもCtrl+Breakも効かない場合はどうすればいいですか？" a="まずEscキーを連打してみてください。それでも効かない場合はCtrl+Break（Windowsのみ）を試します。それでもダメならタスクマネージャー（Ctrl+Shift+Esc）でExcelを強制終了してください。"]
[faq q="タスクマネージャーすら開けない場合はどうすればいいですか？" a="しばらく（1〜2分）待ってからCtrl+Alt+Deleteを押してください。それでも操作できない場合は、PCの電源ボタン長押しで強制終了しますが、未保存のデータは失われます。"]
[faq q="マクロを強制終了したらExcelファイルが破損しました。復元できますか？" a="Excelの自動回復（AutoRecover）機能で復元できる場合があります。Excelを再起動すると「ドキュメントの回復」パネルが表示されるので、最新バージョンを選択してください。設定はファイル→オプション→保存で確認できます。"]

EscもCtrl+Breakも効かない場合

処理が重すぎてキー入力を受け付けていない可能性があります。以下を順番に試してみてください。

1. Escキーを連打する（1回では反応しないことが多い）
2. Windowsの場合は Ctrl + Break を試す
3. それでもダメならタスクマネージャーで強制終了する

次回からはVBAコードに DoEvents を入れましょう。Escキーが効きやすくなります。

タスクマネージャーすら開かない場合

Excelの処理がPCのリソースを使い切っている可能性があります。

1. しばらく待ってみる（1〜2分程度）
2. Ctrl + Alt + Delete 画面を開く（優先度が高い）
3. 最終手段としてPCの電源ボタンを長押しする

電源ボタン長押しはすべてのデータが失われます。本当の最終手段として考えてください。

強制終了後にファイルが破損していた場合

Excelには自動回復（AutoRecover）機能があります。強制終了後にExcelを再度開くと、「ドキュメントの回復」パネルが表示されることがあります。最新のバージョンを選択して復元しましょう。

自動回復の設定はファイル → オプション → 保存で確認できます。デフォルトでは10分間隔です。VBA作業が多い方は5分間隔に短縮しておくのがおすすめですよ。

Break Modeで停止できた場合は、イミディエイトウィンドウの使い方を使って変数の状態を確認しましょう。原因の特定に役立ちます。

Escキーの効き方を変える：Application.EnableCancelKey

ここまで「Escキーで止める」方法を紹介してきました。でも、なかにはEscを押しても反応しないマクロがあります。その原因が、Application.EnableCancelKey というプロパティにあるかもしれません。

このプロパティは、マクロ実行中にEscキー（Ctrl+Break）を受け付けるかどうかを制御します。コードで明示的に設定していなければ既定の動作になりますが、設定されていると挙動が変わります。

3種類の設定値と動作の違い

EnableCancelKey には次の3つの値を指定できます。

既定値は xlInterrupt です。何も設定していなければ、Escキーで正しく止まる状態になっています。

NOTE

EnableCancelKey の設定は、そのマクロが終了すると自動的に xlInterrupt に戻ります。次にマクロを実行するとき、前回の設定が残る心配はありません。

xlErrorHandlerで「中断」を「エラー処理」に変える

xlErrorHandler を指定すると、ユーザーがEscを押したとき、マクロを止めるのではなくエラーとして捕まえて任意の処理を実行できます。たとえば「中断する前に必ずファイルを保存する」といった仕組みが作れます。

'--- Escキー押下をエラーとして処理する ---
Sub CancelWithSave()
    Dim i As Long 'カウンター変数

    Application.EnableCancelKey = xlErrorHandler
    On Error GoTo Canceled

    For i = 1 To 1000000
        Cells(i Mod 100 + 1, 1).Value = i
    Next i

    Exit Sub

Canceled:
    '--- エラーコード18ならEscが押された ---
    If Err.Number = 18 Then
        ThisWorkbook.Save '中断前に保存
        MsgBox "処理を中断しました。データは保存済みです。"
    End If
End Sub

Escが押されると Err.Number が18になります。それを If で判定し、保存などの後始末を行ってから終了する流れです。エラー処理の書き方はVBAのエラーハンドリング完全ガイドで詳しく解説しています。

WARNING

xlDisabled はEscキーを完全に無効化するため、Microsoftも公式に注意を促しています。無限ループにハマると止める手段がなくなり、タスクマネージャーでExcelごと終了するしかなくなります。よほどの理由がない限り使わないでください。

「なぜかEscが効かない」と感じたら、まずコードのなかに Application.EnableCancelKey = xlDisabled が紛れていないか確認してみましょう。

一定時間で自動停止させる：Timer関数でタイムアウト

「気づいたらマクロが何分も動きっぱなしだった」という経験はありませんか。そんなときに便利なのが、指定した時間が過ぎたら自動で処理を止める仕組みです。VBAの Timer 関数を使えば簡単に実装できます。

Timer 関数は、深夜0時からの経過秒数をSingle型で返します。処理の開始時刻を記録しておき、現在の Timer 値との差を見れば、何秒経過したかがわかります。

60秒で自動停止するコード

'--- 60秒経過したら自動でループを抜ける ---
Sub TimeoutExample()
    Dim startTime As Single '開始時刻
    Dim i As Long           'カウンター変数

    startTime = Timer '開始時刻を記録
    i = 1

    Do While i <= 1000000
        Cells(i Mod 100 + 1, 1).Value = i
        i = i + 1

        '--- 60秒を超えたら中断 ---
        If Timer - startTime > 60 Then
            MsgBox "タイムアウトしました。処理を中断します。"
            Exit Do
        End If

        DoEvents '画面更新とキー入力を受け付ける
    Loop
End Sub

Timer - startTime で経過秒数を計算しています。これが60を超えたら Exit Do でループを抜けるシンプルな仕組みです。タイムアウトの秒数は処理内容に合わせて調整してください。

DoEvents を組み合わせているのもポイントです。タイムアウトを待つあいだも、Escキーなどの入力を受け付けます。DoEvents の役割はDo...Loop文の使い方もあわせて読むと理解が深まります。

TIP

Timer には1つだけ落とし穴があります。深夜0時をまたぐとTimer値が0にリセットされるため、Timer - startTime が負の値になってしまいます。数時間におよぶ長時間処理を想定する場合は、日付と時刻を扱える Now() 関数を使って経過時間を計算しましょう。日付をまたいでも正しく動作します。

カウンター上限とタイムアウトを併用すれば、「回数」と「時間」の両面から暴走を防げます。安全装置は多いほど安心です。

Excel for the web（Office Scripts）の場合

ここまではデスクトップ版ExcelのVBAを前提に解説してきました。最後に、ブラウザで使うExcel for the webのケースにも触れておきます。

Excel for the webでは、VBAではなくOffice Scriptsという別の仕組みでマクロを動かします。TypeScriptをベースにした言語で、VBAとは文法も実行環境も異なります。そのため、Escキーや DoEvents といった対処法はそのままでは使えません。

NOTE

Office ScriptsをPower Automate（自動化フロー）経由で実行する場合、120秒のタイムアウト制限があります。これを超える処理は途中で打ち切られる仕様です。重い処理を組むときは、この上限を意識して設計しましょう。

もしOffice Scriptsの実行中にブラウザの画面が固まってしまったら、ページの再読み込み（リロード）が実質的な対処法になります。ブラウザのタブを更新すれば、走っていたスクリプトは中断されます。デスクトップ版のタスクマネージャーとは発想が異なるので、頭に入れておきましょう。

Break Modeを活用してループ箇所を特定する

マクロが止まらない状況を脱した後、「どこで止まっていたのか」を把握しておくと次回の予防に役立ちます。VBEのBreak Modeとデバッグツールを使った原因特定の方法を紹介します。

F8キーで1行ずつ実行する（ステップ実行）

VBEでマクロを開き、F8 を押すと1行ずつ実行できます。現在実行している行が黄色くハイライトされるので、どこでループが続いているかを目で確認できます。

手順

1. Alt + F11 でVBEを開く
2. 実行したいマクロが書かれているモジュールを開く
3. F8 キーを押すと先頭行からステップ実行が始まる
4. F8 を押すたびに1行進む
5. ループが終わらない場合は、ループ変数の値を確認する

TIP

ループの中で F8 を何度も押すのが大変な場合は、ループの外の行にカーソルを置いて Ctrl + F8（カーソル行まで実行）を使うと効率的です。

ローカルウィンドウでループ変数を監視する

ステップ実行中に変数の値を確認するには、ローカルウィンドウが便利です。

1. VBEのメニュー [表示] → [ローカルウィンドウ] を開く
2. ステップ実行を進めると、変数の現在値がリアルタイムで表示される
3. カウンター変数（i など）が想定通りに変化しているか確認する

カウンター変数が変化しないままループが続いていれば、そこが無限ループの原因です。

VBEローカルウィンドウの使い方では、変数の監視と値の書き換え方法を詳しく解説しています。

ウォッチウィンドウで条件式を監視する

「条件が変化したら止める」という使い方ができるウォッチウィンドウも有効です。

1. VBEのメニュー [デバッグ] → [ウォッチ式の追加] を選ぶ
2. 監視したい変数や式を入力する（例: i >= 10000）
3. [種類] で「式が真のときブレーク」を選ぶ
4. マクロを実行すると、条件を満たした瞬間に自動でBreak Modeになる

想定外の条件が成立したタイミングを自動でキャッチできるため、再現しにくいバグの特定に役立ちます。VBEウォッチウィンドウの使い方も参考にしてください。

Breakキーがないキーボードでの代替ショートカット

ステップ1で紹介した Ctrl+Break は、ノートPCではBreakキー自体が見当たらないことがあります。「Fn + B」「Fn + Ctrl + B」と書きましたが、メーカーや機種によって組み合わせが異なります。お使いのPCの取扱説明書、またはメーカーのサポートページで「Pause」「Break」「ScrLk」のキー割り当てを確認してください。

代替キーが見つからない場合は、Escキーの連打に戻るか、VBEのリセットボタン（ステップ1.5）を使うのが現実的です。またはコードに DoEvents を入れておくことで、そもそもEscキーで止まりやすい設計にしておくのが根本的な対策です。

まとめ

この記事では、Excelマクロを強制終了する方法を4ステップで解説しました。

まずステップ1のキーボード操作を試しましょう。ダメなら段階的にステップ2、3へ進むのがポイントです。

そして何より大切なのはマクロ実行前の保存です。ループにカウンター上限を設定したり、DoEvents を入れておくと暴走を未然に防げます。

トラブルを根本から減らすにはVBAの基本構文の理解が近道です。VBA学習のロードマップを参考にしてみてください。まだマクロを触り始めたばかりの方は、マクロの記録の使い方から始めるのもおすすめですよ。

Excel VBA で繰り返し処理を書いていると、必ずこの壁にぶつかりますよね。For文は「1から10まで」のように回数を先に決める書き方。行数が日によって変わるデータだと、終了値に書く数字が決められません。

かといって毎回シートを開いて行数を数え、マクロの数字を書き換えるのは面倒ですよね。データが増えるたびに手直しが必要なマクロは、そのうち誰も使わなくなってしまうもの。

そこで出番になるのが VBA の Do Loop です。「A列が空になるまで」「累計が100万円を超えるまで」といった書き方ができます。終わりを回数ではなく条件で決められるのが、このステートメント最大の強み。

この記事では、次の4つをコピペで動くコードとセットで解説していきます。

• For文・For Each との使い分け（結論から先にお伝えします）
• 4パターン（While / Until × 前判定 / 後判定）の選び方
• 実務でそのまま使えるコード4本
• 無限ループの止め方・防ぎ方・抜け方

対応バージョン: Do Loop は Excel 2010 以降のデスクトップ版 Excel で共通に使えます。バージョンによる挙動差もありません。ただし Excel for the web（ブラウザ版）は VBA 非対応です。ブラウザ版ではマクロそのものを実行できない点にご注意ください。

Do LoopとFor文の使い分け（結論先出し）

Do Loopは「終わる回数が決まっていない繰り返し」に使う

Excel VBA の繰り返しステートメントは3種類あります。まずは結論から言ってしまいますね。

繰り返す回数が事前に分からないなら Do Loop。分かっているなら For系。 判断基準はこれだけ。

Do Loop は回数ではなく条件でループの継続と終了を決めます。1周ごとに条件式が True か False かをチェックし、その結果で「もう一周するか」を判断する仕組み。だから終了タイミングがセルの中身やユーザー操作に左右される処理でも書けるわけです。

たとえば次のような処理は、For文では素直に書けません。

• A列を上から読んで、空白セルに当たったら止めたい
• 売上を順に足して、累計が目標額を超えた行を知りたい
• InputBox で「終了」と入力されるまで受け付け続けたい
• フォルダ内のファイルを、なくなるまで1つずつ処理したい

どれも「何回繰り返すか」が実行してみるまで確定しないケース。回数が先に決まっていないので、For文の終了値に書く数字がそもそも存在しないんですね。

逆に「1行目から10行目まで」のように回数が確定しているなら、無理に Do Loop を使う必要はありません。カウンターが自動で進む For文のほうが安全ですし、コードも短く済みます。

For~Next / For Each / Do Loop の違いを比較表で整理

3つのステートメントの違いを1枚の表にまとめました。

表に出てくる「コレクション」とは、同じ種類のオブジェクトをまとめて扱う入れ物のこと。ワークシートの集まりやセル範囲がその代表例です。全シートを順番に処理したいなら、この形が一番短く書けますよ。

使い分けの目安は次の3行に集約できます。

• 回数が決まっている → For~Next文
• 全シート・全セルなど集合をまるごと → For Each~Next文
• 条件で終わりが決まる → Do Loop

注目してほしいのが表の最終行。無限ループの危険が「あり」なのは Do Loop だけなんです。For系はカウンターが自動で進むので、必ず終わりが来ます。

一方の Do Loop は、カウンターを進めるのも条件を変化させるのも書き手の責任。ここが後半のテーマにつながります。

NOTE

コードを書く場所は VBE（Visual Basic Editor）です。Excel の画面で Alt + F11 を押すと起動します。次に「挿入」→「標準モジュール」を選び、右側の白い領域にコードを貼り付けてください。実行は F5 キーです。

書いたマクロを残すには、ファイルを マクロ有効ブック（.xlsm） で保存する必要があります。画面の見方に自信がない方は、VBE画面の見方を先に確認しておくと安心ですよ。

Do Loopの4パターンを動かして理解する

Do Loop には While と Until という2つのキーワードがあります。さらに条件判定をループの先頭に置くか末尾に置くかで、合計4パターンの書き方になります。

先に用語を整理しておきましょう。判定をループの先頭に置く形を前判定と呼びます。ループに入る前に条件をチェックする形ですね。

判定を末尾に置く形が後判定。中身を1回実行してから条件をチェックします。

この違いが「最低何回実行されるか」を左右します。ここが4パターンの肝なので、実際に動かしながら確認していきましょう。

Do While … Loop（前判定・満たす間）

条件を満たしている間、処理を繰り返す形です。判定するのはループに入る前。

Do While 条件式
    '--- 繰り返す処理 ---
Loop

1から3まで数える最小コードで動きを見てみましょう。

Sub DoWhileLoop_Basic()
    Dim i As Long 'カウンター
    i = 1

    Do While i <= 3
        Debug.Print i & "回目の処理"
        i = i + 1
    Loop

    Debug.Print "ループ終了（i は " & i & "）"
End Sub

実行結果はイミディエイトウィンドウに出力されます。VBE で Ctrl + G を押すと開く、結果確認用のウィンドウのこと。出力は次のとおりです。

1回目の処理
2回目の処理
3回目の処理
ループ終了（i は 4）

i が4になった瞬間に i <= 3 が False となり、ループを抜けます。ポイントは i = i + 1 の行。これを書き忘れると i が永遠に1のままになり、無限ループへ一直線です。

そして前判定の最大の特徴がこれ。条件が最初から False なら、中身は1回も実行されません。 上のコードで i = 10 から始めれば、出力は「ループ終了（i は 10）」の1行だけになります。

Do ... Loop While（後判定・満たす間）

処理を1回実行したあとに条件を判定する形です。条件を満たしている間は繰り返します。

Do
    '--- 繰り返す処理 ---
Loop While 条件式

先ほどと同じ「1から3まで」を後判定で書いてみます。

Sub DoLoopWhile_Basic()
    Dim i As Long 'カウンター
    i = 1

    Do
        Debug.Print i & "回目の処理"
        i = i + 1
    Loop While i <= 3

    Debug.Print "ループ終了（i は " & i & "）"
End Sub

出力は前判定版とまったく同じ4行になります。i = 1 からスタートする限り、両者に差は出ません。

違いが表に出るのは、条件を最初から満たしていないときです。i = 10 から始めると、後判定版は「10回目の処理」を1回だけ出力します。判定より先に中身を実行してしまうからですね。

必ず1回は実行したい処理には、この形がぴったりです。たとえば「入力ダイアログを最低1回は出す」といった場面ですね。

Do Until ... Loop（前判定・満たすまで）

条件を満たすまで処理を繰り返す形です。判定の位置は前判定と同じで、意味だけが反転します。

Do Until 条件式
    '--- 繰り返す処理 ---
Loop

While との対応関係を押さえておきましょう。「i <= 3 である間」と「i > 3 になるまで」は、まったく同じ振る舞いになります。

Sub DoUntilLoop_Basic()
    Dim i As Long 'カウンター
    i = 1

    Do Until i > 3
        Debug.Print i & "回目の処理"
        i = i + 1
    Loop

    Debug.Print "ループ終了（i は " & i & "）"
End Sub

出力は Do While 版と同一の4行です。条件式を否定形にひっくり返しただけ、というわけ。

While と Until のどちらを選ぶかは、条件式が自然に読めるほうで決めて構いません。

「空白でない間」なら Do While Cells(i, 1).Value <> ""。「空白になるまで」なら Do Until Cells(i, 1).Value = ""。読みやすいほうを選んでみてください。

Do ... Loop Until（後判定・満たすまで）

処理を1回実行したあとに「条件を満たしたか」を判定する形です。4パターンの最後の1つ。

Do
    '--- 繰り返す処理 ---
Loop Until 条件式

Sub DoLoopUntil_Basic()
    Dim i As Long 'カウンター
    i = 1

    Do
        Debug.Print i & "回目の処理"
        i = i + 1
    Loop Until i > 3

    Debug.Print "ループ終了（i は " & i & "）"
End Sub

こちらも i = 1 スタートなら出力は同じ4行になります。後判定なので、条件を満たしていても中身が必ず1回は実行される点が特徴。

実務では「『終了』と入力されるまで InputBox を出し続ける」処理がこの形の定番です。後ほど実務コードとして紹介しますね。

4パターン早見表と選択フローチャート

まずは4パターンを1枚の表で見比べてみましょう。

表を眺めても迷うときは、次の3つの質問に順番に答えてみてください。1問ずつたどれば必ず1パターンに絞れます。

• 質問1: 条件を満たしている「間」回したいですか。それとも条件を満たす「まで」回したいですか。
  • 「間」→ While を使う
  • 「まで」→ Until を使う
• 質問2: 条件の判定結果に関係なく、最低1回は必ず実行したいですか。
  • いいえ（0回でもよい）→ 判定を前に置く（Do While 条件 / Do Until 条件）
  • はい（必ず1回）→ 判定を後に置く（Loop While 条件 / Loop Until 条件）
• 質問3: 途中で強制的に抜ける可能性がありますか。
  • はい → ループ内に If 条件 Then Exit Do を追加する（4パターン共通で使えます）

質問1と質問2の組み合わせで、4パターンのどれか1つに確定します。質問3は上乗せのオプションなので、どのパターンにも足せますよ。

同じ条件で4パターンを回すとこうなる

言葉の説明より、実行結果を見たほうが早いかもしれません。初期値は4パターンとも i = 10 で統一します。条件式も i <= 3（Until 側は i > 3）でそろえ、続けて動かしてみますね。

Sub CompareFourPatterns()
    Dim i As Long 'カウンター

    '--- 1: Do While ... Loop（前判定・満たす間） ---
    i = 10
    Debug.Print "【1】Do While ... Loop"
    Do While i <= 3
        Debug.Print "  実行: i = " & i
        i = i + 1
    Loop

    '--- 2: Do ... Loop While（後判定・満たす間） ---
    i = 10
    Debug.Print "【2】Do ... Loop While"
    Do
        Debug.Print "  実行: i = " & i
        i = i + 1
    Loop While i <= 3

    '--- 3: Do Until ... Loop（前判定・満たすまで） ---
    i = 10
    Debug.Print "【3】Do Until ... Loop"
    Do Until i > 3
        Debug.Print "  実行: i = " & i
        i = i + 1
    Loop

    '--- 4: Do ... Loop Until（後判定・満たすまで） ---
    i = 10
    Debug.Print "【4】Do ... Loop Until"
    Do
        Debug.Print "  実行: i = " & i
        i = i + 1
    Loop Until i > 3
End Sub

イミディエイトウィンドウの出力はこうなります。

【1】Do While ... Loop
【2】Do ... Loop While
  実行: i = 10
【3】Do Until ... Loop
【4】Do ... Loop Until
  実行: i = 10

結果を表に整理してみましょう。

前判定の2つは1行も出力しません。条件を満たしていないので、中身に入る前に終了するからです。対する後判定の2つは、それぞれ1回ずつ「実行: i = 10」を出力しました。

この非対称性が実務でどう効くかというと、データが0件のときに差が出ます。前判定なら空のシートに対して何もせず終了。後判定だと、データが無くても先頭の1行を処理してしまいます。空セルを計算に使ってエラーになりかねません。

TIP

迷ったら Do While ... Loop（前判定・While） を選んでおけば大きく外しません。最もよく使われる形ですし、条件を先にチェックするぶん安全側に倒れます。「必ず1回は実行したい」とはっきり言える場面だけ、後判定に切り替えましょう。

実務でよく使うDo Loopのコード4選

ここからは、業務でそのまま使えるコードを4本紹介します。どれも Cells(行, 列) でセルを指定しているのがポイント。行番号を変数で動かせるので、Do Loop とは相性が抜群なんです。

指定方法の違いが気になる方はRangeとCellsの使い分けものぞいてみてください。

各コードの冒頭には「なぜ For ではなく Do Loop なのか」を1行で添えました。ここが理解できると、自分のデータに当てはめるときの判断が速くなりますよ。

空白セルが出るまで下に読む（最終行が変動するデータ）

なぜ Do Loop か: データが何行あるかを、事前に数えなくていいから。

A列に商品名、B列に金額が並んだシートを想定します。空白セルに当たるまで下へ読み進め、B列の合計と件数を出すコードです。

Sub SumUntilBlank()
    Dim ws As Worksheet '対象シート
    Dim i As Long '行カウンター
    Dim total As Double '合計金額

    Set ws = ActiveSheet
    i = 2 '1行目はヘッダーなので2行目から開始
    total = 0

    Do While ws.Cells(i, 1).Value <> ""
        total = total + ws.Cells(i, 2).Value
        i = i + 1
    Loop

    MsgBox "合計: " & Format(total, "#,##0") & "円" & vbCrLf & _
           "件数: " & (i - 2) & "件"
End Sub

上のサンプルデータで実行すると、A5が空白なのでループは3周で終わります。合計は 1200 + 800 + 2500 = 4500。ループを抜けた時点で i は5なので、件数は 5 - 2 = 3 件です。

表示されるメッセージはこうなります。

合計: 4,500円
件数: 3件

データが10行に増えても100行に増えても、コードは1文字も変えなくて大丈夫。ここが Do Loop のありがたさです。

なお、同じことは「先に最終行を確定させて For文で回す」やり方でも実現できます。詳しくはVBA最終行の取得方法をご覧ください。途中に空白行が混ざるデータでは、そちらのほうが安全なケースもありますよ。

目標金額に達するまで加算して行を特定する

なぜ Do Loop か: 何行目で目標に届くかは、実際に足してみるまで分からないから。

日別の売上を上から加算し、累計が100万円に達した行を特定するコードです。「〜まで」なので Until が自然に読めますね。

Sub FindTargetRow()
    Dim ws As Worksheet '対象シート
    Dim i As Long '行カウンター
    Dim cumulative As Double '累計金額
    Dim target As Double '目標金額

    Set ws = ActiveSheet
    i = 2 '1行目はヘッダーなので2行目から開始
    cumulative = 0
    target = 1000000 '目標は100万円

    Do Until cumulative >= target
        If ws.Cells(i, 1).Value = "" Then
            MsgBox "データが尽きました。累計 " & _
                   Format(cumulative, "#,##0") & "円で目標未達です"
            Exit Sub
        End If
        cumulative = cumulative + ws.Cells(i, 2).Value
        i = i + 1
    Loop

    MsgBox "目標達成" & vbCrLf & _
           (i - 1) & "行目で累計 " & Format(cumulative, "#,##0") & "円"
End Sub

累計の動きを追ってみましょう。

• 2行目を足して 320,000円 → まだ目標未達
• 3行目を足して 600,000円 → まだ目標未達
• 4行目を足して 1,010,000円 → ここで cumulative >= target が True になる

このときループを抜けた i は5です。実際に目標へ到達させたのは1つ前の4行目なので、i - 1 を表示しています。

目標達成
4行目で累計 1,010,000円

このコードの安全弁が If ws.Cells(i, 1).Value = "" Then の分岐。データが尽きても目標に届かない場合、この分岐がないと空白行を延々と読み続けてしまいます。

「終了」と入力されるまで受け付ける（後判定の出番）

なぜ Do Loop か: 何件入力されるかはユーザー次第で、事前に回数を決められないから。

入力ダイアログは「まず1回は必ず表示したい」もの。だから後判定の Loop Until がぴったりハマります。

Sub InputItemsLoop()
    Dim userInput As String '入力された文字列
    Dim itemList As String '登録した品名の一覧
    Dim itemCount As Long '登録件数

    itemList = ""
    itemCount = 0

    Do
        userInput = InputBox("品名を入力してください" & vbCrLf & _
                             "（「終了」と入力すると登録を終えます）", "品名登録")

        If userInput = "" Then Exit Do 'キャンセル・空入力なら中断
        If userInput <> "終了" Then
            itemList = itemList & userInput & vbCrLf
            itemCount = itemCount + 1
        End If
    Loop Until userInput = "終了"

    If itemCount > 0 Then
        MsgBox itemCount & "件を登録しました" & vbCrLf & itemList
    Else
        MsgBox "登録された品名はありません"
    End If
End Sub

「ノート」「ペン」「終了」の順に入力した場合を追ってみましょう。

• 1周目: 「ノート」を登録（件数1）
• 2周目: 「ペン」を登録（件数2）
• 3周目: 「終了」が入力され、追加せずにループ終了

最終的に表示されるメッセージがこちらです。

2件を登録しました
ノート
ペン

見落としやすいのが If userInput = "" Then Exit Do の1行。InputBox のキャンセルボタンは空文字を返します。この分岐がないと「キャンセルしても終われない」状態になってしまうんです。

ユーザー入力を扱うループでは、キャンセルの脱出口を必ず用意すると覚えておきましょう。

条件に合うセルを上から順に検索する

なぜ Do Loop か: 「見つかったかどうか」を条件式にそのまま書けて、意図が読み取りやすいから。

A列を上から照合し、一致した行を選択するコードです。最終行は End(xlUp) で先に取得しておきます。

Sub SearchValueDownward()
    Dim ws As Worksheet '対象シート
    Dim i As Long '行カウンター
    Dim lastRow As Long '最終行
    Dim searchWord As String '検索する値
    Dim isFound As Boolean '見つかったかどうか

    Set ws = ActiveSheet
    searchWord = InputBox("検索する値を入力してください")
    If searchWord = "" Then Exit Sub 'キャンセル時は何もしない

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    i = 2
    isFound = False

    Do While i <= lastRow And Not isFound
        If ws.Cells(i, 1).Value = searchWord Then
            isFound = True
        Else
            i = i + 1
        End If
    Loop

    If isFound Then
        ws.Cells(i, 1).Select
        MsgBox searchWord & " は " & i & "行目に見つかりました"
    Else
        MsgBox searchWord & " は見つかりませんでした"
    End If
End Sub

A2からA5に「りんご」「みかん」「ぶどう」「もも」が入っているとしましょう。「ぶどう」で検索すると、2行目と3行目は不一致で i が進みます。

4行目で isFound が True に変わります。次の判定で Not isFound が False になり、ループ終了。

条件式の And Not isFound が効いていて、見つかった瞬間に止まる作りです。見つからなかった場合は i が lastRow を超えて終了するので、無限ループにはなりません。

Find メソッドを使えば1行で書ける処理ではあります。それでも Do Loop で書く価値があるのは、照合しながら途中に別の処理を挟めるからなんですね。

おまけ：フォルダ内のファイルを順に処理する（Dir関数）

最後に、セル以外の定番パターンも1つ紹介しておきますね。

Dir 関数は、最初に Dir("パス*.xlsx") のようにパスを指定して呼び出します。2回目以降は引数なしの Dir() を呼ぶと、次のファイル名が返ってくる仕組み。該当ファイルが尽きると長さ0の文字列が返るので、それが終了の合図になります。

Sub ListFilesInFolder()
    Dim folderPath As String 'フォルダのパス
    Dim fileName As String 'ファイル名

    folderPath = "C:Sample"
    fileName = Dir(folderPath & "*.xlsx")

    Do While fileName <> ""
        Debug.Print fileName
        fileName = Dir() '引数なしで次のファイル名を取得
    Loop
End Sub

何件あるか分からないファイル群を順に処理する。まさに Do Loop の独壇場です。

無限ループを止める・防ぐ・抜ける

Do Loop で唯一こわいのが無限ループです。条件が永遠に True のままだと、Excel が応答しなくなってしまいます。

このセクションは3段構えでお届けします。

• まず「いま固まっている人」向けの止め方
• 次に途中脱出の Exit Do
• 最後に、そもそも起こさないための書き方

いま固まっている人へ：Esc → Ctrl + Break → 強制終了

急いでいる方のために、対処を段階表にまとめました。上から順に試してみてください。

Mac をお使いの場合は Command + ピリオドが中断キーになります。

段階1と2で中断できると、ダイアログが表示されます。ボタンは「デバッグ」「続行」「終了」の3つ。ここで 「デバッグ」を選ぶのが正解です。

「デバッグ」を押すと、いま実行中の行が黄色くハイライトされます。そこが無限ループの現場。ハイライトされた Do と Loop の間を見て、次の2点を確認してみてください。

• カウンター変数を進める行（i = i + 1 など）が抜けていないか
• 条件式が、いつか必ず False（Until なら True）になる作りか

VBE 側から止めることもできます。VBE のメニューで「実行」→「中断」を選ぶか、同じく Ctrl + Break を押す方法です。

中断したあとは F8 キーで1行ずつ実行し、変数の値がどう変わるかを追えます。この1行ずつ実行する操作こそステップ実行。詳しい手順はVBAデバッグの方法で解説しています。

NOTE

ノートPCによっては Break キーが独立して用意されていません。その場合の代替操作は機種によって異なるため、お使いの端末のサポート情報を確認してください。

強制終了の詳しい手順はExcelマクロが止まらない時の強制終了4ステップにまとめてあります。この記事では「Do Loop のどこを直すか」に絞ってお伝えしますね。

Exit Doで途中脱出する（If との組み合わせ・ネスト時の挙動）

Exit Do は、Do Loop を途中で抜けるためのステートメントです。ループ内の好きな場所に、いくつでも置けます。

単独で書くと必ず1周目で抜けてしまうので、実際には If とセットで使うのが基本形。

Do While 条件式
    If 異常を検知する条件 Then Exit Do  '安全弁
    '--- 通常の処理 ---
Loop

「想定外のデータが来たら抜ける」「上限回数に達したら抜ける」といった安全弁として働きます。条件分岐の書き方に不安があれば、VBA If文の使い方を先に押さえておくと理解が早いですよ。

ここで1つ、間違えやすい仕様があります。ループを入れ子にした場合の挙動です。入れ子（ネスト）とは、ループの中にさらに別のループを書く構造のこと。

Exit Do が抜けるのは、それが書かれている一番内側のループだけ。 外側のループは止まらず、そのまま続きます。

Sub ExitDoInNestedLoop()
    Dim outerNo As Long '外側のカウンター
    Dim innerNo As Long '内側のカウンター

    outerNo = 1
    Do While outerNo <= 2
        innerNo = 1
        Do While innerNo <= 3
            If innerNo = 2 Then Exit Do '内側だけを抜ける
            Debug.Print "outer=" & outerNo & " / inner=" & innerNo
            innerNo = innerNo + 1
        Loop
        Debug.Print "→ 外側は継続中（outer=" & outerNo & "）"
        outerNo = outerNo + 1
    Loop
End Sub

出力を見ると、外側が止まっていないことがはっきり分かります。

outer=1 / inner=1
→ 外側は継続中（outer=1）
outer=2 / inner=1
→ 外側は継続中（outer=2）

内側のループは innerNo が2になった時点で毎回抜けています。それでも外側は2周しました。Exit Do の直後にある「→ 外側は継続中」の行も、きちんと実行されていますね。

外側まで含めて一気に終わらせたいなら、Exit Sub を使います。こちらはプロシージャそのものを終了し、呼び出し元へ制御を返す命令。「ループを1つ抜けるのが Exit Do、処理全体を終えるのが Exit Sub」と整理しておきましょう。

そもそも起こさない書き方3つ（上限カウンター / DoEvents / 更新忘れ点検）

止め方を知っていても、止めずに済むのが一番ですよね。予防策を3つ紹介します。

1. 上限カウンターで安全弁をつける

ループが回った回数を数え、想定を超えたら強制的に抜ける方法です。条件式にバグがあっても、確実に終わりが来ます。

Sub SafeLoopWithLimit()
    Dim i As Long '行カウンター
    Dim guard As Long '安全弁カウンター
    Const MAX_LOOP As Long = 10000 '許容する最大周回数

    i = 2
    guard = 0

    Do While Cells(i, 1).Value <> ""
        guard = guard + 1
        If guard > MAX_LOOP Then
            MsgBox "ループが" & MAX_LOOP & "回を超えました。条件式を見直してください"
            Exit Do
        End If

        '--- ここに1行ごとの処理を書く ---
        i = i + 1
    Loop
End Sub

上限値は扱うデータ量に合わせて決めてください。数千行のデータなら10,000回もあれば十分です。書き慣れないうちは、この安全弁を必ず入れる習慣にしておくと安心。

2. DoEvents で中断を受け付けやすくする

DoEvents は、OS にイベント処理を渡す関数です。引数は不要で、ループ内に1行書くだけ。

Sub LoopWithDoEvents()
    Dim i As Long '行カウンター

    i = 2
    Do While Cells(i, 1).Value <> ""
        DoEvents 'OSにイベント処理を渡す
        Cells(i, 3).Value = Cells(i, 2).Value * 1.1
        i = i + 1
    Loop
End Sub

これを入れておくと、Esc や Ctrl + Break が効きやすくなることがあります。長時間かかるループには入れておく価値がありますね。

ただし万能ではありません。OS 側の処理をはさむぶん、ループ全体の速度は落ちます。件数が多い処理では体感できるレベルで遅くなるため、必要な場面に絞って使いましょう。

3. カウンター更新忘れを自己点検する

無限ループの原因で圧倒的に多いのが、カウンター変数の更新忘れです。書き終えたら、次の3点をセルフチェックしてみてください。

• カウンターを進める行（i = i + 1 など）が Do と Loop の間にあるか
• その行が If の中に入っていないか
• 条件式が、いつか必ず終了側に転ぶ作りになっているか

2番目が特に落とし穴。次のコードは一見それらしく見えますが、確実に無限ループします。

' NG例: カウンターの更新が If の中に入っている
Sub BadLoop_CounterInsideIf()
    Dim i As Long '行カウンター
    i = 2

    Do While Cells(i, 1).Value <> ""
        If Cells(i, 2).Value > 0 Then
            i = i + 1  'B列が0以下の行に当たると、ここを通らない
        End If
    Loop
End Sub

B列に0や空白の行が1つでもあると、その行で i が止まったまま同じセルを見続けます。正しくは、次のようにカウンターを If の外へ出しましょう。

' OK例: スキップする行でもカウンターは必ず進む
Sub GoodLoop_CounterOutsideIf()
    Dim i As Long '行カウンター
    i = 2

    Do While Cells(i, 1).Value <> ""
        If Cells(i, 2).Value > 0 Then
            '--- 条件を満たす行だけの処理 ---
        End If
        i = i + 1  'どの行でも必ず進む
    Loop
End Sub

カウンターの更新は If の外。この一点を守るだけで、無限ループの大半は防げます。

よくある質問

質問に入る前に、Do Loop 特有のエラーを早見表にまとめておきます。エラーメッセージから逆引きしてみてください。

ここに載っていないエラー番号に遭遇したら、VBAマクロのエラー解決ガイドで番号から探せます。ブックマークしておくと便利ですよ。

While と Until はどちらを使えばいいですか？

動作は同じにできるので、条件式が自然に読めるほうを選んで大丈夫です。

Do While i <= 3 と Do Until i > 3 は、まったく同じ回数だけ回ります。While 側は条件を満たす「間」、Until 側は条件を満たす「まで」。同じ処理を書くなら、条件式を否定形にひっくり返すだけです。

読みやすさで選ぶなら、こんな基準が使えます。

• 「〜でない間は続ける」と言いたい → While（例: Do While Cells(i, 1).Value <> ""）
• 「〜になったら終わり」と言いたい → Until（例: Do Until Cells(i, 1).Value = ""）

日本語で読み上げてしっくりくるほうが、あとから読み返したときのバグも減ります。チームで共有するマクロならなおさら。

Do Loop の途中で次の周回に飛ばせますか？（VBAにContinueはない）

VBA には他言語の Continue にあたるステートメントがありません。 用意されているのは Exit Do や Exit For など、ループそのものを抜ける命令だけです。

代わりに使うのが If によるスキップ。「処理したい条件」で本体を囲み、カウンターの更新はその外に置きます。

Sub SkipBlankRows()
    Dim i As Long '行カウンター

    i = 2
    Do While Cells(i, 1).Value <> ""
        If Cells(i, 2).Value <> "" Then
            '--- B列に値がある行だけ処理する ---
            Cells(i, 3).Value = Cells(i, 2).Value * 1.1
        End If
        i = i + 1 'スキップした行でも必ず進める
    Loop
End Sub

GoTo とラベルでスキップを実装する方法もあります。ただし処理の流れが追いづらくなるため、まずは上の If で囲む書き方をおすすめします。

Do Loop は For~Next より遅いですか？

ループの種類による速度差を気にする必要は、ほとんどありません。

公式に「Do Loop のほうが遅い」といった規定はありません。実務で体感できるほどの差も出にくいものです。速度に効いてくるのは、ループの形式ではなくループの中で何をしているか。

処理を速くしたいなら、次のような点を見直すほうが効果的ですよ。

• 1周ごとにセルへ読み書きする回数を減らす（配列にまとめて処理する）
• 画面の再描画を止める（Application.ScreenUpdating = False）
• 不要な DoEvents を外す

ループ形式の選択は、速度ではなく書きやすさと安全性で決めてくださいね。

Do Loop は入れ子（ネスト）にできますか？

できます。 行と列の両方向に走査したいときの定番パターンです。

Sub NestedDoLoop()
    Dim r As Long '行カウンター
    Dim c As Long '列カウンター

    r = 2
    Do While Cells(r, 1).Value <> ""
        c = 2 '外側の1周ごとに必ず初期化する
        Do While Cells(1, c).Value <> ""
            Cells(r, c).Value = Cells(r, c).Value * 1.1
            c = c + 1
        Loop
        r = r + 1
    Loop
End Sub

ネストで必ず守るべきルールは2つあります。まず、内側と外側で別々のカウンター変数を使うこと。同じ変数を使い回すと、互いの周回数が壊れてしまいます。

もう1つが、内側のカウンターを外側の1周ごとに初期化すること。上のコードで c = 2 を内側ループの直前に書いているのはこのためです。初期化を忘れると、2周目以降は c が最終列を超えたままなので、内側が1回も回りません。

なお、内側のループに書いた Exit Do が抜けるのは内側だけ。外側は継続します。この挙動は前のセクションで、実際の出力とともに確認しましたね。

「Loopがありません」「オーバーフロー」が出るのはなぜ？

「Loop がありません」は、Do に対応する Loop が見つからないときのコンパイルエラーです。 コンパイルエラーとは、実行する前の構文チェックで見つかる文法上の誤りのこと。

ネストが深いと発生しやすいエラーです。Do と Loop を同じインデント位置に揃えて書く習慣をつけましょう。逆に Loop が多すぎる場合は「Do がありません」と表示されます。

オーバーフロー（実行時エラー '6'）は、変数に入りきらない値を入れようとしたときのエラーです。 Integer 型が扱えるのは -32,768 〜 32,767 の範囲だけ。

Excel の行数は最大1,048,576行あります。行カウンターに Integer を使うと、途中で必ず破綻してしまうんですね。

対処はシンプルで、Long 型に変更するだけ。Long なら -2,147,483,648 〜 2,147,483,647（約21億）まで扱えます。ループのカウンターは常に Long と決めてしまうのが安全です。

もう1つ、見落としやすいパターンがあります。計算の途中結果がオーバーフローするケースです。

Dim total As Long

total = 2000 * 365       'オーバーフローになる
total = CLng(2000) * 365 'OK（先に Long へ変換する）

原因は右辺にあります。代入先が Long でも、整数どうしの計算は一時的に Integer として扱われるんです。CLng で明示的に変換すれば回避できますよ。

まとめ

Do Loop は「回数ではなく条件で終わりを決める」ためのステートメントです。最後に要点を振り返っておきましょう。

• 使い分け: 回数が決まっていない繰り返しは Do Loop。決まっているなら For~Next、集合をまるごとなら For Each
• While と Until: While は条件を満たす「間」、Until は条件を満たす「まで」。条件式を否定形にすれば置き換え可能
• 前判定と後判定: 前判定（Do While / Do Until）は0回実行もあり得る。後判定（Loop While / Loop Until）は必ず1回実行される
• 迷ったら: Do While ... Loop を選べば大きく外さない
• 無限ループ対策: 止めるのは Esc → Ctrl + Break。防ぐのは上限カウンター・Exit Do・カウンター更新の点検
• カウンターは Long: Integer は32,767でオーバーフローする

一番のつまずきポイントは、やはりカウンターの更新忘れです。Do と Loop の間を見て「この変数、ちゃんと進んでる？」と自問する癖をつけましょう。それだけで無限ループはぐっと減らせます。

条件付きの繰り返しが書けるようになると、VBA でできることの幅が一気に広がりますよ。まずは4パターンの最小コードを VBE に貼り付けて、イミディエイトウィンドウの出力を眺めてみてください。動きが目で見えると、前判定と後判定の違いもすっと腹落ちするはずです。

関連記事

• VBA For~Next文の使い方｜繰り返し処理の基本から実務パターンまで解説
• VBA For Eachの使い方｜セル・シート・配列を1行でループ処理
• VBA If文の使い方｜条件分岐を基本から実務コードまで解説
• Excelマクロが止まらない時の強制終了4ステップ
• VBAマクロのエラー解決ガイド｜頻出エラー別の直し方
• VBA学習ロードマップ｜学習ステップを順番に整理