Excel VBA インクリメントは変数の値を一定の単位で増加させる操作

以下のようなシーンで利用されます。

・ループ処理でカウンターを増やす

・シーケンシャルな値を生成する

・データの逐次処理を行う際にインデックスを管理する

Option Explicit

Sub IncrementExample()
    Dim i As Integer
    i = 0

    ' iを1ずつ増加させる
    i = i + 1
    Debug.Print i  ' 出力: 1

    i = i + 1
    Debug.Print i  ' 出力: 2
End Sub

Forループでのインクリメント

Option Explicit

Sub ForLoopExample()
    Dim i As Integer

    ' 1から5までインクリメントするループ
    For i = 1 To 5
        Debug.Print i  ' 出力: 1, 2, 3, 4, 5
    Next i
End Sub

任意の値でのインクリメント

Option Explicit

Sub CustomIncrementExample()
    Dim i As Integer
    Dim incrementValue As Integer

    i = 0
    incrementValue = 3  ' 3ずつ増加

    ' iを3ずつ増加させる
    i = i + incrementValue
    Debug.Print i  ' 出力: 3

    i = i + incrementValue
    Debug.Print i  ' 出力: 6
End Sub

セルに連続した番号を入力する

Option Explicit

Sub FillSequentialNumbers()
    Dim i As Integer
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' A1からA10に連続した番号を入力
    For i = 1 To 10
        ws.Cells(i, 1).Value = i
    Next i
End Sub