VBAで最終行を取得する方法とそこからできること

Excel VBAでデータの入っている 最終行 を取得する。

VBAを使っていると、シート上でデータの「最終行の行番号取得」が必要になることが多々あります。
「VBA 最終行」といったキーワードでサイト検索してみると、いろいろなパターンで最終行を求める手法が紹介されています。

今回は最もシンプルにデータの入った最終行を取得する方法と、最終行の行番号を取得することによって可能になるいくつかのことを紹介します。

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

Excelシートの最大行数

データが入力されている最終行を求める前に、そもそもシートの行は何行あるのでしょうか？
実は Excelのバージョンによって最大行数は違います。

現在一般的にエクセルの最大行数は「1,048,576行」とされていますが、Excel2003以前は 65,536行でした。

Excel2003以前：　 65,536行
Excel2007以降： 1,048,576行

みなさんが使用している Excelの最大行数を確認するには、Ctrl + ↓（下向き矢印）キーを押すと一番下の行にジャンプします。

VBAで最終行を取得するコード

では、最終行を求める VBAのコードを紹介します；

Cells（Rows.Count, 1）.End（xlUp）.Row

赤字の Rows.Count の部分が Excelシート全体の行数を表します。
つまり、Excel2007以上であれば 1,048,576行ということです。

Cells（Rows.Count, 1）はつまり、A列の最終行のセルを指します。セルA1048576 です。

ここから Endモードで一気にデータが入っている行まで上にジャンプするのが .End（xlUp）ということ。
最後の .Row が「そのセルの行」という意味で、つまりデータの入力されている最終行 ということになります。

理屈を理解するのが面倒な方は、コードだけ覚えておきましょう。

変数に最終行を代入する実践的使用例

ではここで VBAの使用例を紹介します。

※データの内容はすべてフィクションです

上の表でデータの入っている最終行をVBAを使って求めます。

Option Explicit

'*********************************************************
' 　　データ最終行の取得　　Get_LASTROW
'*********************************************************
Sub Get_LASTROW()
　　Dim LASTROW As Long

　　' 最終行の取得
　　LASTROW = Cells（Rows.Count, 1）.End（xlUp）.Row

　　MsgBox LASTROW & " 行目が最終行です。"
End Sub
'-----------------<< End of Source >>------------------

上のサンプルは、LASTROW という変数に、データの最終行番号を代入してメッセージボックスに表示するコードです。

このマクロを実行すると；

このように「7行目」と正しく最終行を返します。

最終行を取得してできること

つぎは、VBAを使ってデータの入力された最終行の行番号を取得したことによって「できること」をいくつか紹介します。

VBAで最終行までセル範囲を選択する

データエリア、つまり データの先頭行から最終行までを選択する コードです。
データ量が流動的なデータベースの場合、行数に固定値を入れるわけにはいきません。

でも、もう安心。
さきほどのコードを応用すればいつでも的確にデータエリアを選択することが可能です。
使用する Excelシートは「変数に代入する実践的使用例」で使用したものと同じとします。

この場合のコードはこうなります；

Option Explicit

　　' 最終行の取得
　　LASTROW = Cells（Rows.Count, 1）.End（xlUp）.Row

　　Range（Cells（3, 1）, Cells（LASTROW, 3）).Select
End Sub
'-----------------<< End of Source >>------------------

▲赤字の部分がデータエリア、データの先頭行から最終行までを選択するコード

これを実行すると；

上のように、セルA3 からセルC7 までを選択します。

VBA 最終行の次の行を選択する

つぎは、最終行の次の行を選択する コードです。
新規レコードを新たに追加登録する場合などは、最終行のひとつ下の行を選択する必要があります。

この記事をここまで読んでくださるような方は、ここまで書けばすべて把握できているかとは思いますが、一つ前の項目で使用したコードに手を加えたサンプルをお見せします。

Option Explicit

　　' 最終行の取得
　　LASTROW = Cells（Rows.Count, 1）.End（xlUp）.Row

　　Cells（LASTROW + 1, 1）.Select
End Sub
'-----------------<< End of Source >>------------------

▲ここも赤字部分が最終行の次の行を選択するサンプルです。

LASTROW + 1 ってところがミソです。

VBA 最終行を削除する

つぎは、最終行の削除 です。
例えば新規データを先頭行に挿入して、最終行（一番古いレコード）削除する、といった場合に使用します。

これも先ほどのコードを応用してサンプルを作成します。

Option Explicit

　　' 最終行の取得
　　LASTROW = Cells（Rows.Count, 1）.End（xlUp）.Row

　　Rows（LASTROW）.Delete Shift:=xlUp
End Sub
'-----------------<< End of Source >>------------------

▲このコードを実行すると、サンプルシートの7行目「小林浩司」の行が削除されます。

VBAで最終行を取得できないという方へ

「最終行を取得できない」という方は、Excelシートのデータエリアの「列」をあらためてチェックしてみてはいかがでしょうか。

例えば下のようなシートの場合、データエリアはA列ではなくB列から始まっています。

それなのに、Cells（Rows.Count, 1）.End（xlUp）.Row と、コードを書いても動きません。
赤字で書いた「1」は A列を指しています。
B列をチェックさせたいのならば、Cells（Rows.Count, 2）.End（xlUp）.Row と書かなければいけません。

以上、『Excel VBAでデータの入っている最終行を取得する』でした。
その他の関連記事と合わせて仕事や趣味に役立ててください。

VBAで最終行を取得する方法とそこからできること｜Excel VBA