データが入力されている最終行を求める
ある列を見て、一番最後にデータが入力されている行を見つける方法です。
Sheet1のA列の場合
Sub test()
Sheets("Sheet1").Range("A1").End(xlDown).Select
End Sub
これで該当のセルを求めることが出来ますが、この場合、途中に空白の値があった場合、その前の行になってしまいます。
途中に空白のセルがあった場合でも、正常に最終行を求めるには、
Sub test()
Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, 1).End(xlUp).Select
End Sub
となります。
他の列を求めるなら、Cells()の２つ目のパラメータの値を変更します。
最終行を行番号で得るためには、
Sub test()
Dim lastgyou As Integer
lastgyou = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, 1).End(xlUp).Row
Debug.Print (lastgyou)
End Sub
これで lastgyouに最終行の行数が入ります。
1行目から最後の行まで繰り返し処理を行うような場合には、
Sub test()
Dim lastgyou As Integer
Dim i As Integer
lastgyou = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, 1).End(xlUp).Row
For i = 1 To lastgyou
Debug.Print (Sheets("Sheet1").Cells(i, 1).Value)
Next i
End Sub
これで、1行目から最後の行までイミディエイトウィンドウに表示します。
１行目を横方向に、最終列を探し、A列から最後の列まで表示する場合は、
Sub test()
Dim lastretu As Integer
Dim i As Integer
lastretu = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To lastretu
Debug.Print (Sheets("Sheet1").Cells(1, i).Value)
Next
End Sub
このような感じになります。
１行目以外を探す場合は、Cellsの１つ目のパラメータの１を変更します。
