最終セル取得

最終セルの取得

特定のセルや範囲などを起点として最終の位置を取得する方法についてです。

関数、メソッドなど

Range.End(Direction)

Rangeのを起点として上下左右に任意の最終セルを取得するプロパティです。

一番最後の行のセルを取得
1) Range(address).End (xlDown)
2) Cells(Rows.Count, column).End (xlUp)

一番最後の列のセルを取得
1) Range(address).End(xlToRight)
2) Cells(row), Columns.Count).End(xlToLeft)

Direction種類

名前	説明	値
xlDown	下へ	-4121
xlUp	上へ	-4162
xlToLeft	左へ	-4159
xlToRight	右へ	-4161

例）セルA1からの取得


例1） セルA1からの最終行のセル選択

Sub LastSample1()

　Range("A1").End(xlUp).Select

End Sub

例2） セルA1からの最終行のセルの行番号

Sub LastSample2()

　Cells(Rows.Count, 1).End(xlUp).Row

End Sub

例3） セルA1からの最終列のセル選択

Sub LastSample3()

　Range("A1").End(xlToRight).Select

End Sub

例4） セルA1からの最終列のセルの列番号

Sub LastSample4()

　Cells(1, Columns.Count).End(xlToLeft).Column

End Sub