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

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

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

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

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

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

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

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

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

【　この記事の概要　】

「VBAを使ってExcelの作業を効率化したいけど、どの本から始めたらいいか迷っている…」
そんな悩みはありませんか？

初心者がつまずきやすいのは、「基礎をしっかり理解できる本選び」です。
最初につまずくと、VBAに苦手意識を持ってしまい、学習が続きませんよね。

そんな方におすすめなのが、初心者に寄り添い、丁寧に解説されたVBAの入門書です。

• VBAの基礎を丁寧に、ゼロから分かりやすく解説
• 具体的なサンプルコードで、実務ですぐに使えるスキルが身につく
• 手元に置いて何度も確認できるため、挫折せずに学習を続けられる

動画で学ぶのもいいけど、まずはじっくり書籍で学びたい！という方には特におすすめです。

Excel VBA開発を超効率化するプログラミングテクニック　ームダな作業をゼロにする開発のコツー

¥2,992 （2025/02/16 21:14時点 | Amazon調べ）

Amazonで探す

楽天市場で探す

Yahooショッピングで探す

ポチップ

(サンプルファイル・無料電子版付)できる大事典 Excel VBA 2019/2016/2013&Microsoft 365

¥4,378 （2024/11/23 13:20時点 | Amazon調べ）

Amazonで探す

楽天市場で探す

Yahooショッピングで探す

ポチップ

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

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

残業「0」プロジェクト

Excel VBAでセルの相対位置を簡単に指定する方法 | 「指定したセルから、特定の数値ずらしたセルの内容を取得したい．．．」そんな悩みをお持ちではないですか？ ・任意のセルから相対的な位置にあるデータを取得したい・手…

Resize メソッド

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

残業「0」プロジェクト

VBA Resizeプロパティの使い方｜RangeやUbound、マイナス値の注意点を詳しく解説 VBA Resizeプロパティの基本から応用までを解説。Rangeのセル範囲変更やUboundによる動的配列操作、マイナス値の設定に関する注意点も含め、Excel VBAの効率的なデータ操作…

Intersect メソッド

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

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

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

注意1 : 空白行や空白列も範囲として扱われる

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

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

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

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

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

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

処理結果

コードの動作概要

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

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

処理結果

コードの動作概要

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

1行ずつコードを解説

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

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

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

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

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

コード例

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

処理結果

コードの動作概要

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

1行ずつコードを解説

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

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

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

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

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

コード例

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

処理結果

コードの動作概要

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

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

処理結果

コードの動作概要

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

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

処理結果

コードの動作概要

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

1行ずつコードを解説

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

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

この記事のまとめ

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

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

ポイントのおさらい

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

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

あわせて読みたい

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