Excel VBA セルを参照する CurrentRegion、End、 UsedRangeプロパティ

セルを参照するプロパティ一覧

CurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティ

指定したセルを含むアクティブセル領域を参照するには、CurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティを使用します。アクティブセル領域とは、空白行、空白列で囲まれた領域のことでデータの固まりを参照することができます。行数や列数に変動がある表を参照したい場合などに便利に使用できます。

CurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティの書式と設定値の説明

オブジェクト.CurrentRegion
【戻り値】Rangeオブジェクト

※保護されたワークシートでは使用することができません。

A1セルから始まる表の範囲（固まり）を参照するコート例

Sub 表範囲参照()
Range("A1").CurrentRegion.Select
End Sub

実行結果

End【ｴﾝﾄﾞ】プロパティ

指定したセルが含まれるデータが入力されている領域の終端セルを取得するには、End【ｴﾝﾄﾞ】プロパティを使用します。

End【ｴﾝﾄﾞ】プロパティの書式と設定値の説明

オブジェクト.End(方向)
【戻り値】Rangeオブジェクト

※データが入力されている終端セルを取得したい場合、基準となるセルとデータの終端セルの間に空白セルがあるとデータの終端セルは取得できず、空白セルの一つ手前のセルが取得されます。確実にデータの終端セルを取得するには、下方向の場合は、Rows.Count【ﾛｳｽﾞｶｳﾝﾄ】プロパティでセルの最終行を基準としてEnd(xlUp)で上方向にデータが入力されている行まで移動すればデータ下方向の終端行が取得できます。

横方向の場合は、Columns.Count【ｶﾗﾑｽﾞｶｳﾝﾄ】プロパティでセルの最終列を基準としてEnd(xlToLeft)で左方向にデータが入力されている行まで移動すればデータの横方向の終端列が取得できます。

End【ｴﾝﾄﾞ】プロパティで終端セルを取得してデータ範囲を選択するコード例

Sub 終端セル()
Dim 最終行 As Long
Dim 最終列 As Long
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(1, 1), Cells(最終行, 最終列)).Select
End Sub

実行結果

UsedRange【ﾕｰｽﾞﾄﾞﾚﾝｼﾞ】プロパティ

指定したワークシートの使用しているセル範囲を参照するには、UsedRange【ﾕｰｽﾞﾄﾞﾚﾝｼﾞ】プロパティを使用します。使用しているセル範囲とは、値が入力されているセルや書式、数式が入力されているセルの範囲を示します。

UsedRange【ﾕｰｽﾞﾄﾞﾚﾝｼﾞ】プロパティの書式

オブジェクト.UsedRange
【戻り値】Rangeオブジェクト

使用しているセル範囲を選択するコード例

Sub 使用セル範囲()
ActiveSheet.UsedRange.Select
End Sub

実行結果

以上で、CurrentRegion【ｶﾚﾝﾄﾘｼﾞｮﾝ】プロパティ、End【ｴﾝﾄﾞ】プロパティ、UsedRange【ﾕｰｽﾞﾄﾞﾚﾝｼﾞ】プロパティについての解説を終了します。ありがとうございました。