Excel VBAで繰り返し処理を簡単に！For NextとDo Whileを完全解説【初心者向け】

「Excel VBAで繰り返し処理ってどうやって書くの？」

大量のデータを扱う時、同じ処理を何度も繰り返すのは非効率的です。この記事では、繰り返し処理を簡単に実現するための基本スキル「For Next」と「Do While」について、初心者にも分かりやすく解説します！

(練習用ファイル付)増強改訂版　できるイラストで学ぶ入社1年目からのExcel VBA (できるイラストで学ぶシリーズ)

インプレス

¥2,288 （2024/12/20 13:08時点 | Amazon調べ）

Amazon

楽天市場

ポチップ

1. 繰り返し処理とは？

繰り返し処理とは、同じ操作を自動的に複数回実行するためのプログラミング手法です。大量のデータを処理する時や、同じ作業を複数のセルに適用する時に役立ちます。

2. For Nextの基本構文

「For Next」は、指定回数だけ処理を繰り返すためのステートメントです。

For カウンタ変数 = 開始値 To 終了値 [Step 増分]
    処理
Next カウンタ変数

For カウンタ変数 = 開始値 To 終了値 [Step 増分]

処理

Next カウンタ変数

例: 1から10までの数値を出力

Sub ForNextExample()
    Dim i As Integer
    For i = 1 To 10
        Debug.Print i
    Next i
End Sub

Sub ForNextExample()

Dim i As Integer

For i = 1 To 10

Debug.Print i

Next i

End Sub

このコードは、1から10までの数値をイミディエイトウィンドウに出力します。

3. Stepを使った応用

Stepを指定すると、カウンタ変数の増加量を調整できます。

Sub ForStepExample()
    Dim i As Integer
    For i = 1 To 10 Step 2
        Debug.Print i
    Next i
End Sub

Sub ForStepExample()

Dim i As Integer

For i = 1 To 10 Step 2

Debug.Print i

Next i

End Sub

この例では、1, 3, 5, 7, 9と出力されます。

4. Do Whileの基本構文

「Do While」は、指定した条件がTrueの間、処理を繰り返します。

Do While 条件式
    処理
Loop

Do While 条件式

処理

Loop

例: 条件が満たされるまで繰り返す

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

Sub DoWhileExample()

Dim i As Integer

i = 1

Do While i <= 10

Debug.Print i

i = i + 1

Loop

End Sub

このコードは、For Nextと同様に1から10までの数値を出力します。

5. Do Untilを使った繰り返し

条件がFalseになるまで処理を繰り返す「Do Until」も便利です。

Sub DoUntilExample()
    Dim i As Integer
    i = 1
    Do Until i > 10
        Debug.Print i
        i = i + 1
    Loop
End Sub

Sub DoUntilExample()

Dim i As Integer

i = 1

Do Until i > 10

Debug.Print i

i = i + 1

Loop

End Sub

こちらも1から10までの数値を出力しますが、条件の評価タイミングが異なります。

6. 無限ループに注意！

条件が適切に設定されていないと、ループが終わらなくなることがあります。以下は典型的な例です：

Sub InfiniteLoop()
    Dim i As Integer
    i = 1
    Do While i > 0 ' 条件が永遠にTrue
        Debug.Print i
    Loop
End Sub

Sub InfiniteLoop()

Dim i As Integer

i = 1

Do While i > 0 ' 条件が永遠にTrue

Debug.Print i

Loop

End Sub

このようなコードを書くと、Excelが応答しなくなる可能性があるため注意してください。

7. 実用例: シート内のデータを一括処理

例: セルの値を2倍にする

Sub DoubleCellValues()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    
    For Each cell In rng
        cell.Value = cell.Value * 2
    Next cell
End Sub