【VBA】最終行を取得する、最終列を取得する

VBA

最終行を取得する、最終列を取得する

エクセルでデータのある最終行を取得する方法と、データのある最終列を取得する方法を紹介します。

 

'最終行を取得する
Worksheets(シート名).Cells(Rows.Count, 最終行をチェックする列番号).End(xlUp).Row

'実行例
Worksheets(シート名).Cells(Rows.Count, 1).End(xlUp).Row


'最終列を取得する
Worksheets(シート名).Cells(最終行をチェックする行番号, Columns.Count).End(xlToLeft).Column

'実行例
Worksheets(シート名).Cells(1, Columns.Count).End(xlToLeft).Column