VBA CurrentRegionでセル範囲を自動取得・最終行やセル操作を解説

「表のセル範囲をExcel VBA CurrentRegionを使って自動で取得するにはどうしたらいいんだろう．．．」
そんなお悩みを抱えていませんか？

・表のデータ範囲を自動で取得したい

・手動で範囲を指定する手間を省きたい

・データが変わっても自動で対応できるようにしたい

その場合は、VBAの「CurrentRegionプロパティ」を
使用すると解決します！

この記事では、Excel VBAの「CurrentRegionプロパティ」を使って、セルの表範囲を自動で取得する方法を詳しく解説します。

「CurrentRegionプロパティ」を使うと、データの範囲を簡単に取得し、その範囲のデータを削除したり、配列として取得することができるので、日々のExcel作業が格段に楽になります。

使用例はすべてコピペして実行できるので、ぜひ最後までお読みいただき、実践してみてください。

【　この記事の概要　】

この記事を読むとできるようになること

この記事を読むことで、以下のことができるようになります。

VBAの「CurrentRegionプロパティ」を徹底解説

「CurrentRegion」とは、ExcelのVBAでセル範囲を自動で選択する際に非常に便利なプロパティです。

「CurrentRegion」を使用することで、指定したセルの周囲にデータが存在する範囲（空白のセルで囲まれた範囲）を自動的に取得することができます。

このプロパティを使うことで、表のセル範囲を動的に選択することができ、データの追加や削除にも自動で対応できます。

VBAの「CurrentRegion」基本構文

より詳しい情報は、Microsoft公式 – Range.CurrentRegion プロパティ (Excel)を参照してみてください。

「CurrentRegion」の基本的な使い方を紹介

次のようなエクセルの表があるとします。

この表を「CurrentRegion」を使用して、セル範囲を自動で取得してみましょう。

セル「B2」を起点に、その周囲のデータが存在する範囲を自動で選択します。

Sub 表の範囲を自動で選択()
    Range("B2").CurrentRegion.Select
End Sub

このコードを実行すると、セル「B2」を起点とした範囲が自動的に選択されます。

このように「CurrentRegion」を使用すると、データが変動しても、常に最新の範囲を選択するので、手動で範囲を指定する手間が省けます。

CurrentRegionがよく使われる事例

セル範囲を自動で取得できる「CurrentRegion」は、以下の場合でよく使用されます。

合わせて使用されることが多い「Offset」「Resize」「Intersect」について

VBAの「CurrentRegion」は、単体で使用することもできますが、下記のような「Offserプロパティ」や「Resizeメソッド」及び「Intersectメソッド」と合わせて使用することで、さらに柔軟に使用することができます。

Offset プロパティ

Offsetは、CurrentRegionで取得した範囲から、指定した行や列だけずらした位置のセル範囲を取得するための機能です。
例えば、現在のデータのすぐ下の行に新しいデータを追加したい場合に使います。

⇒ Offsetについては、別記事で解説しています。

Resize メソッド

Resizeは、CurrentRegionで取得した範囲のサイズ（行数や列数）を変更したいときに使います。
これにより、取得したデータ範囲を拡大したり縮小したりすることができます。

⇒ Resizeについては、別記事で解説しています。

Intersect メソッド

Intersectは、CurrentRegionと他のセル範囲の「重なっている部分」だけを取得する機能です。
これは、データの中から特定の条件に合う範囲を抽出したいときに便利です。

VBAの「CurrentRegion」を使う際の注意ポイント

VBAの「CurrentRegion」は、セル範囲を自動で取得できる便利なプロパティですが、使用時にはいくつか注意点があります。

ここでは、そのポイントを紹介します。

空白行や空白列も範囲として扱われる

CurrentRegionは「空白行」や「空白列」が、「最終行」「最終列」に混ざっていても自動的に範囲として検出します。
そのため、意図しない空白が含まれていると、正しく範囲を取得できない場合があります。

隣接するセルに空白があっても範囲を取得できる

CurrentRegionは、表の中に空白セルがあっても、隣接するセル同士が繋がっていると自動的に範囲として検出します。

CurrentRegionで取得した範囲を使用して別の処理を行う場合は、空白セルが原因でエラーが発生する可能性があるため、注意が必要です。

複数の表がある場合は範囲を分けて取得する

CurrentRegionは、表同士が「空白行」「空白列」で分断されていると、別のセル範囲として取得します。

複数の表を一括で操作したい場合は、別の方法（Unionメソッドを使用するなど）で範囲を指定する必要があります。

VBAの「CurrentRegion」の使用例をご紹介

ここからは、「CurrentRegion」の使用例を紹介します。

今回の使用例は、次のようなエクセルの表を使用して解説を進めていきます。
まずこちらをご確認ください。

VBAの基礎から応用までを効率よくしっかり学習したい方には、UdemyのVBA講座もおすすめです。

特に自己学習で進める場合、ビデオや実践例があると理解が進みやすくなります。

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

使用例1: CurrentRegionを使用し、表の大きさを取得

CurrentRegionを使用して、表全体の「行数」と「列数」を取得し、メッセージボックスに表示する方法を紹介します。

主な使用用途 : このコードは、Excelの特定のセルを基点に、そのセルを含むデータの範囲全体（表）の行数と列数を取得するために使用します。
表の範囲が自動で変更される場合でも、手動で範囲を設定する必要がなくなるため、効率的です。

コード例

Sub ShowLastRowAndColumn()
    Dim lastRow As Long
    Dim lastColumn As Long
    
    '// A1セルを基点にCurrentRegionを取得
    lastRow = Range("B2").CurrentRegion.Rows.Count
    lastColumn = Range("B2").CurrentRegion.Columns.Count
    
    '// 最終行と最終列をメッセージボックスに表示
    MsgBox "表の行数: " & lastRow & "、表の列数: " & lastColumn
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• lastRow (最終行取得)
• MsgBox (メッセージボックス)

1行ずつコードを解説

このコードは、指定したセルを基点にして、そのセルを含むデータの範囲全体（表）の行数と列数を取得し、ユーザーに表示します。
「CurrentRegion」を使うことで、Excelのデータが記述されているセル範囲を自動で取得できるため、セル範囲が変動する場合でも効率的に表の大きさを把握することが可能です。

この方法は、データが追加・削除されることの多いテーブル(表)で、常に最新の表の範囲を扱いたい場合に非常に便利です。
操作が自動化されるため、手動で範囲を変更する必要がなく、作業効率が向上します。

使用例2: 最終行と最終列を取得する方法

CurrentRegionを使用して、表の最終行と最終列を取得し、それらをメッセージボックスに表示する方法を紹介します。

主な使用用途 : このコードは、表内のデータが動的に増減しても、常に正しい最終行や最終列を取得したい場合に使用します。
データ追加時に次の空き行を特定したり、データ範囲を確認したいときに便利です。

コード例

Sub GetLastRowAndColumn()
    Dim lastRow As Long
    Dim lastColumn As Long
    
    '// B2セルを基点にCurrentRegionを取得し、最終行と最終列を計算
    With Range("B2").CurrentRegion
        lastRow = .Row + .Rows.Count - 1
        lastColumn = .Column + .Columns.Count - 1
    End With
    
    '// 最終行と最終列をメッセージボックスに表示
    MsgBox "最終行: " & lastRow & "、最終列: " & lastColumn
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• With (オブジェクトを繰り返し使用)
• MsgBox (メッセージボックス)

1行ずつコードを解説

このサブルーチン「GetLastRowAndColumn」は、セル「B2」を基点にCurrentRegionを使用して表全体を取得し、その範囲の最終行と最終列を計算して表示するコードです。

CurrentRegionを使用することで、表のサイズが動的に変わった場合でも常に最新の最終行・最終列を取得できるため、非常に便利です。

使用例3: セルの色を一括で変更する

CurrentRegionを使用して、データが含まれるセル範囲の背景色を変更する方法を紹介します。

主な使用用途 : このコードは、Excelでデータが記述されているセル範囲を簡単に把握したいときに使用します。セルの範囲全体を一目で確認するために、範囲を目立たせる目的で背景色を変更する場合に便利です。

コード例

Sub HighlightCurrentRegion()
    Range("B2").CurrentRegion.Interior.Color = vbYellow
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Interior.Color (セルの色変更)

1行ずつコードを解説

このコードは、Excelの特定のセルを基点として、そのセルを含むデータ範囲全体を強調表示するための方法をになります。
「CurrentRegion」を使用することで、セルの範囲を自動で取得し、範囲内のすべてのセルを一度に操作することが可能になります。

データの視認性を高めるため、特に大きなデータセットや複数の表があるシートで役立ちます。

使用例4: すべてのデータを一括にクリア(削除)する

CurrentRegionを使用してセル範囲を自動取得、その範囲内のすべてのデータをクリア（削除）する方法を紹介します。

主な使用用途 : このコードは、表のデータをすべて削除したい場合に使用します。特定の範囲内のセルの内容だけをクリアし、セルの書式や境界線などはそのままにしておきたいときに便利です。

コード例

Sub ClearCurrentRegion()
    Range("B2").CurrentRegion.ClearContents
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• ClearContents (数式と値をクリア)

1行ずつコードを解説

このコードは、Excelの特定のセルを基点として、そのセルを含むデータ範囲全体の内容を効率的にクリアする方法を示しています。

「CurrentRegion」を使用することで、動的に範囲を取得し、範囲内のすべてのセルを一度に操作することが可能になります。
データのリセットやクリーニングを行いたい場合に非常に役立ちます。

使用例5: 表のヘッダーを残してデータ部を削除する (OffsetとResizeを使用)

CurrentRegionとOffset、Resizeを使用し、表のヘッダー（1行目）を残し、データ部分のみをクリアする方法を紹介します。

主な使用用途 : このコードは、表のヘッダー部分を残したまま、データ部分のみを一括でクリア（削除）したい場合に使用します。
OffsetとResizeを組み合わせることで、特定の範囲のみを操作でき、柔軟なデータ管理が可能になります。

Sub ClearDataOnly()
    Dim dataRange As Range
    
    '// B2セルを基点にCurrentRegionを取得し、ヘッダーを除くデータ部分のみを選択
    Set dataRange = Range("B2").CurrentRegion.Offset(1, 0).Resize(Range("B2").CurrentRegion.Rows.Count - 1)
    
    '// データ部分をクリア
    dataRange.ClearContents
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• Offset (セル範囲を移動)
• Resize (セル範囲を変更)
• ClearContents (数式と値をクリア)

1行ずつコードを解説

このコードは、CurrentRegionを使って自動で表全体の範囲を取得し、「Offset」と「Resize」でヘッダーを除いたデータ部分のみを対象として、その内容を削除するコードです。

特定の範囲を手動で指定する必要がなく、表が動的に変化しても対応できるため、効率的です。

使用例6: データを2次元配列に格納する

セル範囲内のデータをそのまま2次元配列に格納する方法を紹介します。
この配列はそのままローカルウィンドウで確認できます。

主な使用用途 : このコードは、動的にデータ範囲を取得し、その範囲内のすべてのセルを一度に操作できるようにします。
配列にデータを格納することで、データの加工や分析を効率的に行うことができます。

コード例

Sub StoreDataInArray()
    Dim dataArr As Variant
    
    '// A1セルを基点にCurrentRegionを2次元配列に格納
    dataArr = Range("B2").CurrentRegion.Value
    
    '// 配列の内容は、ローカルウィンドウで確認
    Debug.Print dataArr(1, 1)  ' 例として配列の一部を表示
    
    Stop
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• 2次元配列

1行ずつコードを解説

このコードを使えば、Excelのシートから動的にデータを取得して、効率的に操作できます。
特に、データの大きさが変わる場合でも、「CurrentRegion」を使うことで範囲を自動で取得し、常に最新のデータを操作することが可能です。

複数の操作を行う際には、この2次元配列を使って、例えばデータの並び替えやフィルタリングなどの高度な操作を行うことができます。

この記事のまとめ

「CurrentRegionプロパティ」は、Excel VBAで表のセル範囲を自動的に取得し、さまざまな操作を簡単に行うために非常に便利なツールです。

これにより、データの追加や削除にも動的に対応できるため、手動で範囲を設定する必要がなくなり、効率的な作業が可能になります。

ポイントのおさらい

この記事の使用例を実践することで、VBAの「CurrentRegionプロパティ」を使いこなせるようになります。

この記事が役に立ったと思った方は、ぜひサイトマップから違う記事も参照ください。

あわせて読みたい

サイトマップ このページは、本サイトの記事を分かりやすくまとめました。ぜひご覧ください。 目次 「VBA」を見る 「Officeスクリプト」を見る 「ワークシート関数」を見る 「JavaScr...