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



関連



スポンサード リンク