VBAのDo While文徹底解説！柔軟な繰り返し処理をマスターし、業務を効率化しよう

「VBAを使っていて、「Do While文」の使い方がよく分からない…」
そんなお悩みを抱えていませんか？

・繰り返し処理を行いたいが、回数が事前に決まっていない…

・条件に基づいて柔軟にループを制御したい！

その場合は、VBAの「Do While文」を
使用すると解決します！

この記事では、VBAの「Do While文」を使って、条件が満たされるまで繰り返し処理を行う方法を詳しく解説します。

「Do While文」は、条件次第で処理を柔軟に繰り返す強力な機能です。
この記事で紹介するサンプルコードを使えば、すぐに実践できる具体的な解決策が手に入ります！

使用例はコピペして実行できるので、ぜひ最後までお読みいただき、実践してみてください。

【　この記事の概要　】

この記事を読むと「できるようになる」こと

この記事を読むことで、以下のことができるようになります。

VBAの繰り返し処理「Do While文」とは？ | 繰り返し処理の種類もご紹介

VBAの「Do While文」は、指定された条件が「True」である間、繰り返し処理を行うための構文です。
たとえば、セルが空でない間だけ処理を続けたい場合など、条件に応じた繰り返し処理が必要なときに非常に便利です。

他のループ文とは異なり、ループ回数が決まっていない場合でも柔軟に処理を進められるため、条件が「False」になるまで処理が繰り返されます。

VBAにおける繰り返し処理の種類

VBAには複数の繰り返し処理があります。

以下は代表的なループ文の種類です。

繰り返し処理の種類	説明
For文	事前に決められた回数だけ繰り返し処理を行います。 固定回数のループに適しており、範囲内で連続した処理を行う際に便利です。
For Each文	配列やコレクション内の各要素に対して順次処理を行います。 全要素にアクセスする場合に便利で、シートのセル範囲や オブジェクトのコレクションに対してよく使用されます。
Do While文	指定された条件がTrueの間、処理を繰り返します。 条件に基づいてループを制御したい場合に使用され、 繰り返し回数が不定のケースに適しています。
Do Until文	指定された条件がTrueになるまで処理を繰り返します。 Do While文とは逆の条件で動作し、条件が満たされるまで処理を続けます。
While…Wend文	指定された条件がTrueである間、処理を繰り返します。 Do While文に似ていますが、よりシンプルなループ処理に使用されます。
Do Loop While文	処理を少なくとも1回は実行し、その後、指定された条件がTrueで あれば繰り返します。 最初に必ず1回処理が行われる点が特徴です。
Do Loop Until文	処理を少なくとも1回実行した後、指定された条件がTrue になるまで繰り返します。 条件が満たされるまで必ず1回は処理が行われます。

引用元：VBA For Next文の使い方完全ガイド｜ループ処理と抜ける方法を解説

VBAでは、状況に応じた適切な繰り返し処理を選ぶことが重要です。

特に、「Do While文」は繰り返し回数が不定の場面や、動的な条件で処理を行う場合に強力なツールです。

VBAのDo While文の基本構文

VBAで繰り返し処理を行う際、Do While文を使うと、条件に応じて柔軟にループを制御できます。

繰り返し回数が不定な場合にも便利です。 以下が基本的な構文です。

実際のDo While文の例

次のコードは、変数numが10になるまで繰り返し処理を行う例です。

Sub DoWhileExample()
    Dim num As Long
    num = 1
    
    Do While num <= 10
        Debug.Print num
        num = num + 1
    Loop
End Sub

この例では、VBAの繰り返し処理である「Do While文」を使ってnumが10に達するまで数字をカウントする方法を記述しました。
条件が「True」の間は処理が続き、numが10を超えた時点でループが終了します。

VBAのDo While文と合わせてよく使われるコード

「Do While文」は、繰り返し処理が必要な場面で非常に便利です。
特に、繰り返し回数が事前にわからないケースで活用されます。

ここでは、代表的な使用例を紹介しながら、ループからの抜け方や無限ループ回避方法などを解説します。

1: Dir関数を使ったファイル操作

「Do While文」と「Dir関数」を組み合わせると、フォルダ内のファイルを順次処理する際に非常に便利です。

フォルダ内の全ファイルを取得して処理する自動化が簡単に行えます。

コード | Dir関数を使用

Sub DirExample()
    Dim fileName As String
    fileName = Dir("C:\MyFolder\*.*")
    
    Do While fileName <> ""
        Debug.Print fileName
        fileName = Dir
    Loop
End Sub

動作解説

このコードは指定フォルダ内のすべてのファイル名を取得し、処理を行います。

Dir関数でファイルを1つずつ取得し、ファイルがなくなるまで繰り返し処理します。

あわせて読みたい

VBAのDir関数を使いこなす方法：ファイル名やパスの取得、ワイルドカードの活用 「指定したフォルダ内のファイルをセルに表示させたい！！」このように悩んだことはありませんか？ ・フォルダ内にある特定のファイルを取得したいけどどうするの？・フ...

2: セル範囲を動的に処理する

「Do While文」は、セル範囲内のデータが特定の条件を満たすまで繰り返し処理を行う場面で使われます。

例えば、セルが空でない限り処理を続ける場合などです。

コード | セルの値に応じて動的に処理

Sub CellLoopExample()
    Dim cell As Range
    Set cell = Range("A1")

    Do While cell.Value <> ""
        cell.Value = "処理済み"
        Set cell = cell.Offset(1, 0) ' 次のセルへ
    Loop
End Sub

動作解説

セルが空でない限り処理を繰り返し、処理済みとマークして次のセルに進みます。
こうした動的なセルの処理に「Do While文」が役立ちます。

3: Do While文とIf文の組み合わせによる条件付き繰り返し処理

「Do While文」と「If文」を組み合わせると、特定の条件を満たす場合にだけ繰り返し処理を行うことができます。

これにより、より柔軟で精密な制御が可能となり、特定の処理をスキップしたり、途中でループを抜けるといった複雑な動作も簡単に実現できます。

基本的な組み合わせ例 | 特定条件でループを抜ける

次のコードは、「Do While文」と「If文」を組み合わせて、特定の条件を満たした場合に処理をスキップする例です。

コード | 特定条件でループを抜ける

Sub DoWhileIfExample()
    Dim num As Long
    num = 1

    Do While num <= 10
        '// numが5のとき処理をスキップ
        If num = 5 Then
            num = num + 1
            GoTo ContinueLoop
        End If
        
        Debug.Print "現在の数値: " & num
        num = num + 1
        
ContinueLoop:
    Loop
End Sub

動作解説

If num = 5 Thenで、変数numが5の場合に処理をスキップしています。
GoToを使ってラベルContinueLoopへ飛ばし、その後の処理をスキップして次のループに進みます。

条件を複数組み合わせて処理を分岐

さらに複雑な条件を使いたい場合、「If…ElseIf…Else文」を使うことで、異なる条件に応じて処理を切り替えることができます。

コード | 条件を複数組み合わせて処理

Sub MultiConditionExample()
    Dim num As Long
    num = 1

    Do While num <= 10
        If num Mod 2 = 0 Then
            Debug.Print num & "は偶数です"
        ElseIf num Mod 3 = 0 Then
            Debug.Print num & "は3の倍数です"
        Else
            Debug.Print num & "はその他の数です"
        End If
        num = num + 1
    Loop
End Sub

動作解説

この例では、If文の条件に応じて、numが偶数か、3の倍数か、それ以外かをチェックしています。
条件に応じて異なる処理が実行されるので、柔軟な繰り返し処理が可能です。

「Do While文」と「If文」を組み合わせることで、柔軟な条件付き繰り返し処理が実現できます。

これにより、特定の条件で処理をスキップしたり、途中でループを抜けるといった細かな制御が可能です。
業務においてデータのチェックやエラーハンドリングを効率的に行うためにも、この組み合わせは非常に有効です。

Do While文を使う際は「無限ループ」に注意

Do While文を使用する際に気を付けるべき最大のポイントは、無限ループに陥らないことです。

条件が常に「True」になってしまう場合、ループが終了しないため、プログラムが永久に繰り返し続けます。

条件が適切に変化するよう、必ずループの中で条件に影響を与えるコードを記述しましょう。

無限ループを抜ける方法 | Exit Doでループを抜ける

「Do While文」を使用する際、特定の条件が満たされたときにループを抜ける方法を知っておくと便利です。
これは無限ループの回避にも役立ちます。

「Do While文」では、Exit Doを使って特定の条件でループを強制的に終了することができます。

コード | 無限ループを抜ける方法

Sub ExitDoExample()
    Dim counter As Long
    counter = 0

    Do While counter < 100
        counter = counter + 1
        If counter = 50 Then Exit Do '// カウンターが50に達したらループを抜ける
    Loop
End Sub

動作解説

counterが50になった時点でループを終了する例です。

Exit Doを使うことで、柔軟にループを抜けることが可能です。

無限ループを防ぐための条件設定

無限ループにならないようにするためには、ループ内で条件が必ず変化することが重要です。

次の例は、無限ループに陥らないように条件を工夫しています。

コード | 無限ループを防ぐ方法

Sub PreventInfiniteLoop()
    Dim counter As Long
    counter = 0

    Do While counter >= 0 '// 無限にループし続ける可能性がある
        counter = counter + 1
        If counter > 10000 Then Exit Do '// カウンターが10000を超えたら強制終了
    Loop
End Sub

動作解説

このコードでは、counterが一定数を超えるとループを終了する安全策を設けています。
こうすることで、誤って無限ループに陥るリスクを減らせます。

無限ループに陥った場合の対処法

万が一、無限ループに陥ってしまった場合の対処法を知っておくと安心です。

VBAのDo While文の使用例をご紹介

ここからは、「Do While文」の使用例を紹介します。

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

VBAの基礎から応用までを効率よくしっかり学習したい方には、UdemyのVBA講座もおすすめです。

特に自己学習で進める場合、ビデオや実践例があると理解が進みやすくなります。

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

使用例1: Do While文を使って、数字をカウントする

特定の数値が10に達するまで、数を増やし続ける方法を紹介します。
このコードは、条件が満たされるまで繰り返し処理を行う「Do While文」の基本的な使い方を示しています。

主な使用用途: 回数が決まっていない、または柔軟にループを終了させたいときに使用します。具体的には、指定した条件が満たされるまで繰り返し処理を行う場合に便利です。

コード例

Sub 繰り返し例1()
    Dim num As Long
    num = 1

    Do While num <= 10
        Debug.Print num
        num = num + 1
    Loop

End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)

1行ずつコードを解説

総括・ポイント

このコードは、数値「num」が10に達するまで繰り返し処理を行う基本的な「Do While」ループの使い方を示しています。
ループ内で「num」の値を増加させることで、条件が満たされるまで処理が続きます。
「Do While」ループは、繰り返し処理が必要な場面で、柔軟に利用できるため、さまざまな場面で役立ちます。

使用例2: セルが空でない限り繰り返す

指定したセルが空でない限り、処理を繰り返す方法を紹介します。

主な使用用途: このコードは、特定の範囲内で空でないセルに対して一括で処理を適用したい場合に使用します。

コード例

Sub 繰り返し例2()
    Dim cell As Range
    Set cell = Range("A1")

    Do While cell.Value <> ""
        cell.Value = "処理済み"
        Set cell = cell.Offset(1, 0) '// 次のセルに移動
    Loop

    '// オブジェクト参照を解除
    Set cell = Nothing

End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim-Set (オブジェクト変数)
• Offset (セル範囲の移動)

1行ずつコードを解説

総括・ポイント

このコードでは、Excelの特定の範囲内で、空でないセルに対して「処理済み」と自動的に書き込むことができます。
Do While ループを使うことで、特定の条件が満たされるまで処理を続けることができ、効率的にセルに対して操作を行えます。

使用例3: 途中でループを止める方法

指定した条件が満たされたら、途中でループを終了する方法を紹介します。

主な使用用途: このコードは、特定の範囲内で空でないセルに対して一括で処理を適用し、特定の値（「終了」）が見つかった時点で処理を停止したい場合に使用します。

コード例

Sub 繰り返し例3()
    Dim cell As Range
    Set cell = Range("A1")

    Do While cell.Value <> ""
        If cell.Value = "終了" Then
            Exit Do '// ループを終了
        End If
        cell.Value = "処理済み"
        Set cell = cell.Offset(1, 0) '// 次のセルに移動
    Loop

    '// オブジェクト参照を解除
    Set cell = Nothing

End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim-Set (オブジェクト変数)
• If (条件分岐)
• Offset (セル範囲の移動)

1行ずつコードを解説

総括・ポイント

このコードは、Excelのセルを順番に処理しながら、「終了」という特定の値が見つかった時点でループを停止する機能を持っています。
ループ処理の基本的な使い方を学びながら、特定の条件で処理を停止する方法を理解するのに役立ちます。

使用例4: 途中でループをスキップする方法

指定した条件が満たされたら、そのセルの処理をスキップして次のセルに移動する方法を紹介します。

主な使用用途
このコードは、特定のセルを除外して一括処理を行いたい場合に使用します。
たとえば、データ処理中に特定の条件に一致するセルのみをスキップして、他のセルに対して一括で処理を適用したい場合に便利です。

コード例

Sub 繰り返し例4()
    Dim cell As Range
    Set cell = Range("A1")

    Do While cell.Value <> ""
        If cell.Value = "スキップ" Then
            Set cell = cell.Offset(1, 0)
            GoTo Continue '// スキップして次のループへ
        End If
        cell.Value = "処理済み"
        Set cell = cell.Offset(1, 0)
Continue:
    Loop

    '// オブジェクト参照を解除
    Set cell = Nothing

End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim-Set (オブジェクト変数)
• If (条件分岐)
• Offset (セル範囲の移動)

1行ずつコードを解説

総括・ポイント

このコードは、特定のセル（「スキップ」と書かれたセル）を除外しながら、他のセルに対して一括処理を行う便利な方法を示しています。
特に、データクリーニングや整列処理など、特定の条件に一致するデータをスキップしながら他のデータを効率的に処理したい場合に役立ちます。

使用例5: Dir関数と組み合わせて、フォルダ内のファイルを全て取得する

Dir関数を使用して、指定したフォルダ内のファイルをすべて取得する方法を紹介します。

主な使用用途
このコードは、特定のフォルダ内にあるすべてのファイルを対象に、ファイル名の取得やファイルに対する一括処理を行いたい場合に便利です。たとえば、バックアップやデータの集計など、複数のファイルに対して繰り返し操作を行う場合に使用します。

コード例

Sub 繰り返し例5()
    Dim fileName As String
    Dim folderPath As String
    Dim row As Long
    
    folderPath = "C:\ファイルパス\" '// 対象フォルダのパス
    row = 1 ' A1から出力を開始
    
    fileName = Dir(folderPath & "*.*") '// 最初のファイルを取得
    
    Do While fileName <> ""
        Cells(row, 1).Value = fileName '// A列のセルにファイル名を出力
        row = row + 1 '// 次の行に移動
        fileName = Dir() '// 次のファイルを取得
    Loop

End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• Dir (フォルダ･ファイル取得)

1行ずつコードを解説

総括・ポイント

このコードは、指定したフォルダ内のすべてのファイル名を、ExcelのA列に順次出力するための簡単かつ効率的な方法を提供します。
Dir関数を使用してファイル名を取得し、シート上に順に出力する流れを通して、フォルダ内のファイルを簡単に一覧化することが可能です。

この記事のまとめ

「Do While文」は、条件に基づいた柔軟な繰り返し処理を行うために非常に有用です。

繰り返し回数が事前に決まっていない場合や、特定の条件が満たされるまで処理を続けたいときに活躍します。
また、Dir関数との組み合わせで、フォルダ内のファイル操作を自動化する際にも力を発揮します。

ポイントのおさらい

この記事の使用例を実践することで、VBAの「Do While文」を効果的に使いこなせるようになります。

まずは、サンプルコードをコピーして実行し、少しずつ自分の業務に応じたアレンジを加えていきましょう。

あわせて読みたい

サイトマップ このページは、本サイトの記事を分かりやすくまとめました。ぜひご覧ください。 目次 「VBA」を見る 「Officeスクリプト」を見る 「ワークシート関数」を見る 「JavaScr...