最終行と最終列の取得

'最終行列の取得(入力値のみ、書式有り空白セル含まず)
Dim MaxRow, MaxCol As Long
With ActiveSheet.UsedRange
MaxRow = .Find("*", , , , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , , , xlByColumns, xlPrevious).Column
End With

'最終行列の取得(入力値有無関係なく、書式有り空白セル含む)
Dim MaxRow, MaxCol As Long
With ActiveSheet.UsedRange
MaxRow = .Rows(.Rows.Count).Row
MaxCol = .Columns(.Columns.Count).Column
End With

スポンサーリンク

----- べんりあつめ。-----

上記は、アクティブシートに対してなので、よりスムーズにしたい場合は、
With ActiveSheet.UsedRange
の ActiveSheet を、
With Worksheets(2).UsedRange
として、以下のように直接シートを指定した方が、よりスムーズ!

2シート目なら、
'最終行列の取得(入力値のみ、書式有り空白セル含まず)
Dim MaxRow, MaxCol As Long
With Worksheets(2).UsedRange
MaxRow = .Find("*", , , , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , , , xlByColumns, xlPrevious).Column
End With

'最終行列の取得(入力値有無関係なく、書式有り空白セル含む)
Dim MaxRow, MaxCol As Long
With Worksheets(2).UsedRange
MaxRow = .Rows(.Rows.Count).Row
MaxCol = .Columns(.Columns.Count).Column
End With

スポンサーリンク

スマホのみ下に表示