最終行を取得するVBAのコード－End(xlDown)

「excel vba 最終行取得」
「エクセル vba 最終行の取得」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。

VBA（Visual Basic for Applications）で、Excelマクロを作るときに生じる定番の疑問の一つです。

Excel VBAで最終行を取得する方法を探している方による検索です。

最終行番号を取得するサンプルコード

まずは、参考になりそうなコードをご紹介しておきます。

上記のコードを実行すると、A列の最終行の行番号がメッセージボックスに表示されます。

Range("A1").End(xlDown)というコードの意味

Excelでセル選択を行うのにとても便利な［Ctrl］＋矢印キーという操作があります。

Excelには、データの途切れるセルがわかっているのです。
データの途切れるセルがわかっているので［Ctrl］＋矢印キーというショートカットキーで、データの途切れるセルを選択できるわけです。

そのデータの途切れるセルをVBAで取得するときに利用するのが、RangeオブジェクトのEndプロパティです。

データの途切れる箇所と一言で言っても、4方向あります。
上・下・右・左の4方向です。

どの方向のデータの途切れるセルを取得したいのかを指定するのがEndプロパティの後ろの括弧の中の引数です。
　Range("A1").End(xlDown)
というコードのxlDownが下方向のデータの途切れるセルを意味しています。

右なら、xlToLeft
左なら、xlToRight
上なら、xlUp
を引数に指定してください。

A1セルから下方向のデータの途切れるセル（A列の最終セル）の、行番号を取得するためにRowプロパティを使い
　Range("A1").End(xlDown).Row
というコードにしています。

上記ではメッセージボックスに行番号をいきなり表示するので
　MsgBox Range("A1").End(xlDown).Row
としていますが、その行番号をプロシージャの中で使うのなら
　end_row = Range("A1").End(xlDown).Row
のような形で変数に格納して使うと便利でしょう。

最終行をどうしたいのかでRange("A1").End(xlDown)の後ろは変わります

行番号を使うのではなく、
A列の一番下のセルを選択したいのならば、
　Range("A1").End(xlDown).Select
最終行全体を選択したいのならば、
　Range("A1").End(xlDown).EntireRow.Select
といったコードです。

もし表がB6セルから作ってあるのなら
　Range("B6").End(xlDown).Row
　Range("B6").End(xlDown).Select
　Range("B6").End(xlDown).EntireRow.Select
といったコードです。

これが、Excel VBAで最終行を取得する基本です。

ただし、この基本で最終行を取得できないケースも表のつくり方によっては生じてしまいます。その解決方法については近日中に別記事としてご紹介します。（途中に空白セルがある場合に最終行を取得するコードをご紹介しました。2013-09-11）

• VBAで空白セルまでを選択する

▼「インストラクターのネタ帳」を運営する伊藤潔人が初めて書かせていただいた本『いちばんやさしい Excel VBA の教本』の、特に Chapter8 は、VBA の経験があるみなさんにも興味深く読んでいただけると考えています。