End オブジェクトRangeプロパティ

1. 概要

VBAのRangeオブジェクトのEndプロパティは、Excelのキーボード操作で言うところの「Ctrl + 矢印キー」に相当する動作をプログラムで実行するためのプロパティです。
あるセルから連続するセルの範囲の端まで移動したいときに使います。

たとえば、ある列の最初のセルからデータが続いている最後のセルまで一気に移動したい場合や、逆に空白セルの方向に移動したい場合など、表のデータの最終行や最終列を調べるのに頻繁に使われます。

RangeObject.End(Direction)

戻り値はRangeオブジェクトで、開始セルから指定した方向に向かって連続したセルの範囲の「端」のセルを表します。

Direction引数には、ExcelのVBAで以下の定数を使います。

たとえばセルA1を起点にRange("A1").End(xlDown)とすると、
A1から下方向に連続してデータが入力されているセルの最後のセルを返します。

もし途中に空白セルがあれば、最初に空白セルの直前のセルまで到達します。

Excelのシート上でA1を選択し、Ctrl + ↓を押した時と同じ動作です。

Dim lastCell As Range
Set lastCell = Range("A1").End(xlDown)
MsgBox "最終データセルは " & lastCell.Address

この例では、A1セルから下方向に連続したデータの最終セルを取得しています。

例えば、A1セルからA5までデータがあり、A3だけ空白の場合、

Set lastCell = Range("A1").End(xlDown)

はA2セルを返します。これはA1から下に連続しているセルがA2までだからです。

Dim lastCellInRow As Range
Set lastCellInRow = Range("B5").End(xlToRight)
MsgBox "行の最終セルは " & lastCellInRow.Address

B5から右方向に連続したセルの最後を取得します。

データ範囲の最終行や最終列を取得する際、Endプロパティを使うのが一般的です。

例：A列の最終行を取得

Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

解説：

これは空白セルが途中にあっても確実に最終行を特定するための方法です。

同様に、最終列の取得は次のようになります。

Dim lastCol As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

ワークシートのある列のデータが何行あるか自動判定し、その範囲に処理をかけることができます。

Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & lastRow).Select

Endは必ず1セルのRangeオブジェクトを起点に使います。複数セルの範囲に使うとエラーになります。

Endは連続した非空セルの範囲の端まで移動します。
途中に空白があればそこで止まります。
そのため「最後のデータセルを取得したい」ときは、起点を最大行・最大列のセルにして、xlUpやxlToLeft方向で取得する方法が一般的です。

Excelのバージョンによって最大行数（例：Excel2007以降は1048576行）、最大列数（16384列＝XFD列）が違います。
起点をCells(Rows.Count, 1)やCells(1, Columns.Count)とするのはそのためです。

Dim lastCell As Range
Set lastCell = ActiveSheet.UsedRange.Cells(1).End(xlDown)
MsgBox lastCell.Address

ただし、UsedRangeは消去されたセルの履歴などの影響を受けるので万能ではありません。

空白セルが途中にあるとEnd(xlDown)は途中で止まってしまうので、最終行取得には下記の方法が多用されます。

Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row

これは列Aの最終行を逆方向に調べる方法で、空白セルの影響を受けません。