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

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

お悩みポイント

• 繰り返し処理を行いたいが、回数が事前に決まっていない…
• 条件に基づいて柔軟にループを制御したい！

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

「Do While文」は、条件に基づいた柔軟なループ処理を行いたいときにとても便利です。

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

【　この記事の概要　】

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

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

Do While文とは？

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

他のループ文と異なり、条件が満たされている限り処理を続行し、条件が「False」になるとループを終了します。
これにより、事前にループ回数が決まっていない場合でも、柔軟に処理を行うことができます。

繰り返し処理の種類

繰り返し処理の種類	説明
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文の基礎から応用まで｜繰り返し処理をマスターする完全ガイド

他の繰り返し処理と比較し、どのような場合に「Do While文」が適しているかを理解しましょう。

Do While文の基本構文

以下は、VBAでのDo While文の基本的な構文です。

Do While文が、よく使われる事例

「Do While文」は、柔軟な繰り返し処理が必要な場面で多く活用されます。
特に、繰り返し回数が事前に分からない場合に便利です。以下に代表的な使用事例を紹介します。

Do While文を使う際の注意ポイント

Do While文の使用例

ここからは、「Do While文」の使用例を紹介します。
どれも実際に動作するコードなので、ぜひ実行してみてください。

使用例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 (セル範囲の移動)

詳細解説

このコードは、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 (セル範囲の移動)

詳細解説

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

使用例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 (フォルダ･ファイル取得)

詳細解説

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

まとめ

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

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

ポイントのおさらい

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

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