この例では、Excel VBAでRangeオブジェクトの終了プロパティを示しています。私たちは、列の最後のエントリにアクティブセルの範囲を選択するには、このプロパティを使用します。

状況：

列Aの一部の売上高は、あなたが時間をかけてより多くの売上高を追加していく予定と仮定します。

From Active Cell to Last Entry in Excel VBA

ワークシート上のコマンドボタンを配置し、次のコード行を追加します。

1.列の最後のエントリを選択するには、単に次のコード行を追加します。

Range("A5").End(xlDown).Select

注：代わりにレンジ（「A5」）の、あなたはまた、このコード行はEND +下矢印を押すのと同じである等の範囲（「A1」）、レンジ（「A2」）を、使用することができます。

あなたはシート上のコマンドボタンをクリックすると、結果：

Last Entry

2.次のコード行を追加し、列の最後のエントリにセルA5の範囲を選択するには：

Range(Range("A5"), Range("A5").End(xlDown)).Select

あなたはシート上のコマンドボタンをクリックすると、結果：

From Cell A5 to Last Entry 3. To select the range from the Active Cell to the last entry in the column, simply replace Range(“A5”) with ActiveCell.

Range(ActiveCell, ActiveCell.End(xlDown)).Select

あなたはセルA2を選択し、シート上のコマンドボタンをクリックすると、結果：

From Active Cell to Last Entry Result

注：あなたが他の方向に移動するために、定数xlUp、xlToRightとxlToLeftを使用することができます。この方法で、あなたは、行の最後のエントリにアクティブセルの範囲を選択することができます。