【ExcelVBA】[雛形]全行繰り返し

サンプルコード

新規にコードを記述する際の雛形です。一部変更してご使用ください。

VBA

'先頭行に記載推奨。変数宣言を強制させる。
Option Explicit

'=========================================
Sub 雛形_全行繰り返し()
'=========================================

  '1列目の最大行番号を設定
  Dim 最大行番号 As Long
  最大行番号 = ActiveSheet.Cells(Rows.Count,1).End(xlUp).Row
  
  'ループ用変数定義
  Dim i As Long
  
  '1行目からループ
  For i = 1 To 最大行番号 Step 1
    '処理
    Debug.print(i)
  Next i
  
End Sub

変更点

10行目：最大行を取得する列を変更してください。

最大行番号 = ActiveSheet.Cells(Rows.Count,1).End(xlUp).Row

16行目：1行目にヘッダー行がある場合は、開始番号を”2”に変更する等

For i = 1 To 最大行番号 Step 1