Home » Excel VBA Rangeオブジェクト » Offsetプロパティ » 1つ下のセルを選択する－.Offset(1, 0).Select

1つ下のセルを選択する－.Offset(1, 0).Select

対象：Excel2010, Excel2013, Windows版Excel2016

「項目の一つ下のセルをアクティブに vba」
「vba 一つ下のセルに移動」
といった検索キーワードによるアクセスがあります。

これらの検索キーワードでは、どのセルの1つ下なのかがハッキリしませんが、RangeオブジェクトのOffsetプロパティを使って、

VBAで1つ下のセルを選択する

アクティブなセルの1つ下のセルを選択するプロシージャをご紹介しておきます。

［スポンサードリンク］

Range.Offsetでアクティブセルの1つ下のセルを選択するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブセルの1つ下のセルが選択されます。

Sub ひとつ下のセルをアクティブに()
　ActiveCell.Offset(1, 0).Select
End Sub

「excel2010 vba 一つ下のセル選択 resize」
といった検索でのアクセスもあるのですが、利用するのはRange.Resizeプロパティではなく、

VBAで1つ下のセルを選択する

Range.Offsetプロパティです。

VBAで1つ下のセルを選択する

OffsetとResizeの動作を確認するExcelマクロ

Rangeオブジェクトを取得するプロパティはいくつもありますが、Range・Cells・ActiveCell・Range.Endにつづいて覚えるべきプロパティが、Range.Offsetです。

「ActiveCell.Offset(1, 0)」という式で、アクティブセルの1つ下のセルを表すRangeオブジェクトが取得でき、RangeオブジェクトのSelectメソッドで選択を行っています。

Range.Offsetプロパティの第１引数は行・第2引数は列

Range.Offsetプロパティの、第１引数には行方向にいくつオフセットする（ずらす）か、第2引数には列方向にいくつオフセットするか、それぞれ指定します。

先のプロシージャを、
　　ActiveCell.Offset(2, 0).Select
とすれば、アクティブセルの2つ下のセルが、
　　ActiveCell.Offset(0, 1).Select
とすれば、アクティブセルの右隣のセルが、それぞれ選択されることを確認しておきましょう。

.Offsetの前はRageオブジェクトを取得する式が必要

OffsetはRangeオブジェクトに用意されているプロパティです。先のプロシージャは以下のようにオブジェクト変数を使って書くこともできます。

Sub Offsetの前はRangeオブジェクトを取得する式()
　Dim rng As Range
　Set rng = ActiveCell
　rng.Offset(1, 0).Select
End Sub

このプロシージャの、
　　Set rng = ActiveCell
の部分を、
　　Set rng = Range("G7")
や、
　　Set rng = Cells(7, "G")
にして実行すると、いずれもG8セルが選択されます。

「Range("G7")」「Cells(1, "G")」という式が、G7セルを表すRangeオブジェクトを返し、そのRangeオブジェクトのOffsetプロパティの第１引数に「1」、第2引数に「0」が指定されているので、G7セルの1つ下のG8セルを表すRangeオブジェクトが返され、Range.Selectメソッドで選択されることを理解しておきましょう。