VBAで「For…Next」で大量データを一瞬で処理！繰り返し作業を自動化するコピペOKコード集

For i = 1 To 100
    Cells(i, 1).Value = i
Next i

For カウンター変数 = 開始値 To 終了値
    '繰り返したい処理をここに書く
Next カウンター変数

Sub 最終行まで処理する()
    Dim i As Long
    Dim lastRow As Long
    
    '最終行を取得する
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow  '2行目（ヘッダーの次）からスタート
        Cells(i, 3).Value = Cells(i, 1).Value & Cells(i, 2).Value  'A列＋B列をC列に結合
    Next i
    
    MsgBox "処理完了！" & lastRow - 1 & "件を処理しました。"
End Sub

Sub 条件に合う行に色をつける()
    Dim i As Long
    Dim lastRow As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow
        If Cells(i, 3).Value >= 10000 Then  'C列が10000以上なら
            Rows(i).Interior.Color = RGB(255, 255, 153)  '黄色でハイライト
        End If
    Next i
    
    MsgBox "チェック完了！"
End Sub

Sub 2行おきに処理する()
    Dim i As Long
    
    For i = 2 To 20 Step 2  '2, 4, 6, 8...と2つ飛びに処理
        Rows(i).Interior.Color = RGB(220, 230, 242)  '薄い青でゼブラ模様
    Next i
End Sub

Sub 空白行を上から消す()
    Dim i As Long
    Dim lastRow As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = lastRow To 2 Step -1  '下から上に向かって処理！
        If Cells(i, 1).Value = "" Then  'A列が空白なら
            Rows(i).Delete  '行を削除
        End If
    Next i
    
    MsgBox "空白行を削除しました！"
End Sub

Sub 高速処理のテンプレート()
    '--- 処理開始前に設定 ---
    Application.ScreenUpdating = False   '画面の更新を止める
    Application.Calculation = xlCalculationManual  '自動計算を止める
    Application.EnableEvents = False     'イベントを止める
    
    Dim i As Long
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow
        '処理をここに書く
    Next i
    
    '--- 処理終了後に必ず元に戻す ---
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    
    MsgBox "完了！"
End Sub

Sub 表全体に処理する()
    Dim i As Long, j As Long
    
    For i = 1 To 5   '行方向（1〜5行）
        For j = 1 To 3  '列方向（1〜3列）
            Cells(i, j).Value = i & "行" & j & "列"
        Next j
    Next i
End Sub

'シートを明示的に指定する書き方（推奨）
Worksheets("Sheet1").Cells(i, 1).Value = i