VBA-Excel最終行の取得
VBA-Excel最終行の取得
VBAで、Excelの最終行（有効行末尾）を取得します。
データが入力されている最終行の取得例です。
3はチェックしたい列番号です。
row = Range(Cells(Worksheets(sheet).Rows.Count, 3).End(xlUp).Address).row
関数サンプル
シートのデータ有効行末尾を取得する
Public Function _
ComFunc_GetEndRow(ByRef sheet As String) As Long
Dim start_col As Long
'目安となる列を取得する
start_col = 3
On Error GoTo ErrHandler
With ThisWorkbook.Worksheets(sheet)
ComFunc_GetEndRow = .Range(.Cells(.Rows.Count, start_col).End(xlUp).Address).row
End With
Exit Function
ErrHandler:
ComFunc_GetEndRow = -1
End Function