ExcelVBAで最終行を調べる方法

構文

構文は以下の通りです。

最終行 = Cells(Rows.Count, "列番号").End(xlUp).Row

解説

Cells(Rows.Count, "列番号")は、Excelの特定の列（列番号）で、シートの最終行（Rows.Count）にあるセルを指定します。End(xlUp)は、最終行のセルから上方向（xlUp）に移動し、最初に値があるセルまで移動します。Rowは、上記の移動したセルの行番号を取得します。この構文を使うことで、Excelシートの特定の列における最終行の行番号を調べることができます。

プログラミング例

具体的なプログラミング例を紹介します。

Sub 最終行を調べる()
    Dim 最終行 As Long
    最終行 = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox "最終行は " & 最終行 & " 行目です。"
End Sub

上記のプログラムは、列番号1（つまり列A）で最終行を調べています。最終行という変数に最終行の行番号を格納し、メッセージでその行番号を表示しています。

まとめ

最終行を調べるためには、Cells(Rows.Count, 列番号).End(xlUp).Row という構文を使用します。この構文は、特定の列で最後にデータが入力された行を見つけるのに役立ちます。