Excel VBAで最終行を取得する方法

日付:

 


Excel VBAで最終行を取得する方法

  1. 目的と背景

    • このコードは、Excel VBAを使用して、指定したシートの最終行を検索する方法を示しています。
    • 最終行を知ることは、データの操作や処理において非常に便利です。

  2. コードの概要

    • このマクロは、指定したシートの列Aで最終行を検索し、その行番号をメッセージボックスで表示します。

  3. コードの詳細

    Sub FindMaxRow()
    Dim ws As Worksheet
    Dim MaxRow As Long
    
    ' シートを指定（必要に応じて変更してください）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 最終行を取得
    MaxRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 結果をメッセージボックスで表示
    MsgBox "最終行は " & MaxRow & " 行です。", vbInformation, "結果"
End Sub
    • Set ws = ThisWorkbook.Sheets("Sheet1")の部分で、対象のシート名を変更できます。
    • MaxRowは最終行の行番号を保持する変数です。

  4. 実行方法

    • Excelファイルを開いて、Alt + F11でVBAエディタを起動します。
    • 新しいモジュールを挿入し、上記のコードを貼り付けます。
    • F5キーを押してマクロを実行します。

これで、Excel VBAで最終行を取得する方法がわかるはずです。