【Excel VBA】for Next文の応用(ループ間隔の指定・逆順での実行)

2024年5月29日2024年9月15日

当ページのリンクには広告が含まれています。

本記事ではfor Next文を使用したループ間隔の指定と逆順での処理を実行する方法について解説を行います。

通常for Next文は決まった処理を特定回数繰り返すループ処理に使用され、次の様に開始値から終了値まで変数を１ずつ増加させながら処理を行います。

鳩野

ループ処理はVBAで結構使用しますよね。

悠

実はこのfor Next文はあるオプションが省略された形で、それを使うとループ間隔の指定や逆順での処理が実行出来るようになります。

悠

早速次の項目から詳しく確認してみましょう！

この記事で分かること

for Next文のループ間隔の指定や逆順での処理を理解し、より応用的な使い方ができるようになる。

本記事はWindows11 23H2、Microsoft 365の環境で解説を行います。

Microsoft 365 Personal 1年版|オンラインコード版|Win/Mac/iPad|インストール台数無制限(同時使用可能台数5台)

¥12,700 （2024/02/02 22:04時点 | Amazon調べ）

Amazonで見る

楽天市場で見る

Yahooショッピングで見る

ポチップ

for Next文でループ間隔の指定や逆順での処理を行う方法

先にこの記事の結論について述べます。

for Next文でループ間隔の指定や逆順での処理を行う方法

for Next文では変数の増減を指定できるオプション「step」を利用する事でループ間隔の指定や逆順での実行を行う事ができる。

悠

オプションは省略されていると増減値は1になり変数を１ずつ増加しながらループ処理を行います。

鳩野

今まで使用していたけど、こういった原理だったのかぁ。

悠

次から実例を交えてそれぞれの使い方を解説していきますね！

for Next文の間隔を指定したループ処理

for Next文はstepの値を変更する事で変数の増加量を変えることができます。

これによって処理のループ間隔を自由に指定でき、より詳細な条件を指定した間隔でのループ処理を行うことができます。

for Next文の間隔を指定したループ処理

開始値＜終了値

悠

例えば次の様に増減値を２としてセルヘ値を入力するマクロを書くと、偶数行の時のみ処理を実行する事ができます。

Sub sample1()

    Dim i As Integer '変数iを宣言
        
        For i = 2 To 10 Step 2 '変数iを2から10まで2ずつ増やしながらループ処理
            
            Cells(i, 1).Value = i
        
        Next i '変数iに2を加算

End Sub

for Next文で逆順で行うループ処理

for Next文では次の様に各値を設定する事でループ処理を逆順で実行する事ができます。

for Next文で逆順で行うループ処理

開始値>終了値
stepの値をマイナスに指定

悠

処理が逆順なので開始値が終了値より高い状態で始まって段々小さくなっていくイメージで考えると良いですね。

悠

次のマクロを例として見ると逆順で下から上に向かって処理を実施していくのが分かります。

Sub sample2()
    
    Dim i, j As Integer '変数i,jを宣言
        
        i = 0 '変数iを初期化
        
        For j = 10 To 2 Step -2 '変数jを10から2まで2ずつ減らしながらループ処理
            
            i = i + 1
            
            Cells(j, 3).Value = i
            
        Next j '変数iに-2を加算
        
End Sub