表内最終行を取得

'------------------------------------------------------
'表内最終行を取得
'
'   戻値：表内最終行
'
'   引数：対象ワークシート
'       ：カウント基準となる列（省略時：1（A列））
'
'   注意：オートフィルター、非表示は解除してから行うこと
'-------------------------------------------------------
Function lngGetMaxRow(wsWorksheet As Worksheet, Optional lngCountBaseCol As Long = 1) As Long

    Dim lngMaxRow As Long
    
    lngMaxRow = wsWorksheet.Cells(Rows.Count, lngCountBaseCol).End(xlUp).Row    'シート最大行からCtrl+↑で表内最大行取得
    
    lngGetMaxRow = lngMaxRow
    
End Function