最終行取得

日本語名

最終行取得

　　

英語名

GetLastRow

用途

指定したシートの最終行番号を返すユーティリティ関数。

カテゴリー

Basic

タグ

最終行, 行数, Worksheet, Utility

引数

ws（Worksheet）
　対象のワークシート

戻り値

Long（最終行番号）

コード全文

Function 最終行取得(ByVal ws As Worksheet) As Long
    最終行取得 = GetLastRow(ws)
End Function

Function GetLastRow(ws As Worksheet) As Long
    GetLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
End Function

呼び出し・活用事例

Sub Sample()
    Dim lastRow As Long
    lastRow = 最終行取得(Sheets("元データ"))
    MsgBox lastRow
End Sub

関連関数

行数取得, UsedRange最終行取得, 転記処理（可変行）

参照URL

https://feelcodelab.com/vba_parts/getlastrow/

図