CurrentRegionの最終セルを取得・選択する

対象：Excel 2010, Excel 2013, Windows版Excel 2016

アクセスログを眺めていて、
「currentregion 右下のセルを選択」
という検索キーワードに気づきました。

RangeオブジェクトのCurrentRegionプロパティで取得した、アクティブセル領域の最終セルである、一番右下のセルを選択するには、どのようなコードを書けばいいのかを探していた方による検索でしょう。

［スポンサードリンク］

CurrentRegionの最終セルを選択するサンプルマクロ

以下のSubプロシージャを実行するとA1セルを含むアクティブセル領域の、最終セルが選択されます。

Sub CurrentRegionの最終セルを選択する()
　Range("A1").CurrentRegion(Range("A1").CurrentRegion.Count).Select
End Sub

流石に横に長く読み辛いので、With文にすると、以下のとおりです。

Sub CurrentRegionの最終セルを選択する_With()
　With Range("A1").CurrentRegion
　　.Item(.Count).Select
　End With
End Sub

上記のSubプロシージャの意味が理解できないという方は、変数を使って分解しましょう。

Sub CurrentRegionの最終セルを選択する_オブジェクト変数()
　Dim area As Range
　Set area = Range("A1").CurrentRegion

　Dim cnt As Long
　cnt = area.Count

　Dim last As Range
　Set last = area.Item(cnt)
　last.Select
End Sub

特にRangeオブジェクトのItemプロパティに慣れていない方は、

CurrentRegionの最終セルを取得・選択する

以下のSubプロシージャも実行してみることをおすすめします。

Sub CurrentRegionのセルを順番に選択する()
　Dim area As Range
　Set area = Range("A1").CurrentRegion

　Dim cnt As Long
　cnt = area.Count

　Dim i As Long
　For i = 1 To cnt
　　area.Item(i).Select
　　MsgBox area.Item(i).Address(False, False)
　Next i
End Sub

Range.CurrentRegionプロパティで取得できる、コレクションとしてのRangeオブジェクトに含まれる、単独のセルをRange.Itemプロパティを使って順番に取得しているプロシージャです。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「CurrentRegionプロパティ」の記事一覧