Excel VBA 行番号・最終行取得｜データ処理の範囲を動的に指定する方法

以下のシーンで利用します。

1.データの最終行を取得し、自動で処理範囲を設定（ループ処理、コピー、削除など）

2.指定セルの行番号を取得し、その行のデータを操作（検索結果の特定、データ編集）

Option Explicit

Sub GetActiveRow()
    MsgBox "現在の行番号は " & ActiveCell.Row & " です"
End Sub

データがある範囲の最終行を動的に取得し、ループ処理やコピー処理に活用

Option Explicit

Sub GetLastRow()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 対象シートを指定
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' A列の最終行取得
    
    MsgBox "最終行は " & lastRow & " 行目です"
End Sub

特定の列でデータが埋まっている最終行を取得

Option Explicit

Function GetLastRowInColumn(ws As Worksheet, col As Integer) As Long
    GetLastRowInColumn = ws.Cells(ws.Rows.Count, col).End(xlUp).Row
End Function

Sub TestGetLastRow()
    Dim lastRow As Long
    lastRow = GetLastRowInColumn(ThisWorkbook.Sheets("Sheet1"), 2) ' B列の最終行取得
    MsgBox "B列の最終行は " & lastRow & " 行目です"
End Sub

シートの最終行を取得するが、途中の空白行がある場合も考慮

Option Explicit

Sub GetLastUsedRow()
    Dim ws As Worksheet
    Dim lastUsedRow As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastUsedRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
    
    MsgBox "シートの最終行は " & lastUsedRow & " 行目です"
End Sub

他のモジュールでも使える共通関数として実装

Option Explicit

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

クラスを呼び出すコード（標準モジュール）

Option Explicit

Sub TestClassLastRow()
    Dim helper As New clsSheetHelper
    Dim lastRow As Long
    
    lastRow = helper.GetLastRow(ThisWorkbook.Sheets("Sheet1"), 1)
    MsgBox "A列の最終行は " & lastRow & " 行目です"
End Sub