EXCEL VBA シート全体の最終行番号と最終列番号を取得

'シート全体の最終行を取得
'
'引数
'   ByRef sht対象 As Worksheet　対象のシート
'URL https://pgbigoroku.hatenablog.com/entry/2022/08/14/140613
'
'バージョン　2022/8/14
Public Function niplngシート全体の最終行を取得(ByRef sht対象 As Worksheet) As Long
    With sht対象
        niplngシート全体の最終行を取得 = .UsedRange.Rows.Count - .UsedRange.Row + 1
    End With
End Function


'pintシート全体の最終列を取得
'
'引数
'   ByRef sht対象 As Worksheet　対象のシート
'
'URL https://pgbigoroku.hatenablog.com/entry/2022/08/14/140613
'
'バージョン　2022/8/14
Public Function nipintシート全体の最終列を取得(ByRef sht対象 As Worksheet) As Integer
    With sht対象
        nipintシート全体の最終列を取得 = .UsedRange.Columns.Count - .UsedRange.Column + 1
    End With
End Function