ExcelVBAで最終行と最終列の番号を取得する

はじめに

Excel VBAでデータの最終行と最終列の番号を取得することが多いので、まとめて記事にします。

データについて

Excelのワークシートに以下のデータを作りました。

実装したソースコード

実装したソースコードです

Sub Test1()
    Dim sh1 As Worksheet
    Set sh1 = Worksheets("日記")
    '最終行変数の定義
    Dim end_row As Long
    '最終列変数の定義
    Dim end_column As Long
    '最終行の取得
    end_row = sh1.Cells(Rows.Count, 2).End(xlUp).Row
    '最終列の取得
    end_column = sh1.Cells(3, Columns.Count).End(xlToLeft).Column
    'メッセージボックスに出力
    sh1.Cells(8, 7).Value = end_row
    sh1.Cells(9, 7).Value = end_column

End Sub

実行結果

実行結果は下記の画像です。

最後に

よく使う手法なのでまとめてみました。