最終行と最終列の組み合わせ

最終列と最終行を組み合わせて全てのセルに対して処理を行う。

Sub wrk()

Dim i As Long
Dim j As Long

　For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
　　For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
　　　Cells(i, j).Interior.ColorIndex = 6　'←ここに処理を書く
　　Next j
　Next i

End Sub

データが入力されている最終行は5行目。最終列は3行目。

iに5、jに3が格納される。