(VBA)Excelセルのシートの最終行を調べて返すFunctionを用意する

ワークブックとシート名を取得して、最終行を調査します。調査する列を指定した場合は、特定の列の最終行を返します。

Function GetLastRowFromWorkbook(wb As Workbook, sheetName As String, Optional columnLetter As String = "A") As Long
    On Error GoTo ErrHandler

    Dim ws As Worksheet
    Set ws = wb.Sheets(sheetName)
    
    GetLastRowFromWorkbook = ws.Cells(ws.Rows.Count, columnLetter).End(xlUp).Row
    Exit Function

ErrHandler:
    GetLastRowFromWorkbook = -1 ' エラー時は -1 を返す
End Function