Excel VBAでセルの相対位置を簡単に指定する方法

「指定したセルから、特定の数値ずらしたセルの内容を取得したい．．．」
そんな悩みをお持ちではないですか？

・任意のセルから相対的な位置にあるデータを取得したい

・手動でセル位置を計算する手間を省きたい

・データ範囲を柔軟に操作できるようにしたい

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

この記事では、VBAの「Offsetプロパティ」を使って、特定のセルから相対的な位置にあるセルや範囲を指定する方法を詳しく解説します。

「Offsetプロパティ」を使用することで、セル範囲の移動やデータの取得が簡単になり、Excel作業の効率を大幅に向上させることができます。

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

【　この記事の概要　】

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

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

VBAの「Offsetプロパティ」とは？

「Offsetプロパティ」は、VBAで指定したセルから相対的な位置にあるセルを参照するために使用されます。

基準となるセルを起点として、行数と列数を指定することで、任意のセルを動的に取得することができます。

このプロパティを使うことで、動的にセル範囲を操作したり、データの追加・削除時にも柔軟に対応することが可能です。

VBA Offsetプロパティの基本構文

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

VBA Offsetプロパティの使い方

次のようなExcelの表を例に、Offsetプロパティを使用してセル範囲を動的に操作する方法を解説します。

まず、セル「B2」を基点として、その「2行下」で「3列右」にあるセルを選択する例を見てみましょう。

Sub SelectOffsetCell()
    Range("B2").Offset(2, 3).Select
End Sub

処理結果

このコードを実行すると、セル「B2」から「2行下（行番号+2）」、「3列右（列番号+3）」にある、セル「E4」が自動的に選択されます。

このように、「Offsetプロパティ」を使えば、Excel VBAでの範囲の指定が柔軟にできるため、さまざまな作業で手間を大幅に削減できます。

VBA Offsetプロパティがよく使われる事例

セルの相対的な位置を柔軟に取得できる「Offset」プロパティは、以下のような場面でよく使用されます。
※実際の使用例は、使用例のご紹介で解説しています。

VBAのOffsetを使う際の注意ポイント

「Offsetプロパティ」は非常に便利ですが、使用する際にはいくつかの注意点があります。

無効な範囲への移動

Offsetで指定したセルが、シートの外（たとえば、負の行数や列数）に出てしまうとエラーが発生します。

したがって、必ず有効な範囲内で使用するようにしてください。
特にループ処理でOffsetを使用する場合は、範囲外への移動を防ぐための条件を設定しておくことが重要です。

パフォーマンスへの影響

大量のデータをOffsetを用いて操作すると、処理速度が遅くなる可能性があります。

セル範囲を正しく指定することや、必要に応じて一括処理を行うことでパフォーマンスの低下を防ぐ工夫が必要です。

CurrentRegionと併用する場合の注意ポイント

CurrentRegionとOffsetを組み合わせて使用する際、「最終行」や「最終列」の空白まで取得してしまいます。
特にテーブルのデータを2次元配列で取得する際に、期待通りの範囲を取得できないことがあります。
その場合は、さらに「Resize プロパティ」を使用してセル範囲を変更する必要があります。

VBAの「Offsetプロパティ」の使用例をご紹介

ここからは、「Offset」プロパティの具体的な使用例を紹介します。

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

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

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

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

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

​

使用例1: Offsetを使用し、新しい行にデータを追加する

特定のセルを基点として、一つ下の新しい行にデータを追加する方法を紹介します。

主な使用用途 :
このコードは、Excelの指定した列で、既存のデータが入力されている最終行を特定し、その下の行に新しいデータを追加するために使用します。
新しいデータを継続的に追加していく必要がある作業で特に便利です。

コード例

Sub AddNewData()
    Dim lastRow As Long
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A1").Offset(lastRow).Value = "新しいデータ"
End Sub

処理結果

コードの動作概要

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

• Dim (変数)
• lastRow (最終行取得)

1行ずつコードを解説

この行は、サブルーチンの終了を示しています。
すべての処理が完了すると、このサブルーチンは終了し、プログラムは次のステップに進みます。

使用例2: Offsetを使用し、ループを使用してデータを入力していく

基準セルから相対的な位置のセルを動的に操作しながら、データを処理する方法を紹介します。
※この処理は「Cells」を使用しても実装可能です。

主な使用用途 : 「データのループ処理」「一定の条件に基づいたデータの変更」

Sub LoopThroughCells()
    Dim i As Long
    
    For i = 1 To 10
        Range("A1").Offset(i, 0).Value = i
    Next i
End Sub

処理結果

コードの動作概要

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

• Dim (変数)
• For (繰り返し)

1行ずつコードを解説

このコードは、Excelの指定したセルから始まる範囲に対して、ループを使ってデータを順次入力する際に非常に有効です。
ループ処理を使うことで、セルごとに手動で値を入力する手間を大幅に省くことができます。

特に、繰り返し作業が必要な場合や、大量のデータを入力する際に、このような自動化は作業効率を飛躍的に向上させます。
また、Offsetプロパティを活用することで、基準セルからの相対的な位置にデータを入力することができ、他のVBAコードとの組み合わせも容易になります。

使用例3: テーブルのヘッダーを残してデータを削除する

テーブル（表）のデータをクリアする際に、OffsetとCurrentRegionを組み合わせて、ヘッダーは残し、データ部分のみを削除する方法を紹介します。

主な使用用途 :
このコードを実行すると、指定したテーブルのヘッダー行はそのまま残り、データ部分だけがクリアされます。
新たなデータを追加する前に、テーブルを初期化したい場合に非常に役立ちます。

Sub ClearTableData()
    Dim headerRange As Range
    Dim dataRange As Range

    '// ヘッダー範囲を取得（テーブルの最初の行）
    Set headerRange = Range("B2").CurrentRegion.Rows(1)

    '// データ範囲を取得（ヘッダー以外のすべての行）
    Set dataRange = headerRange.Offset(1, 0).Resize(headerRange.CurrentRegion.Rows.Count - 1)

    '// データ部分のみをクリア
    dataRange.ClearContents
End Sub

処理結果

コードの動作概要

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

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

1行ずつコードを解説

このコードは、Excelのテーブルからデータをクリアする際に、ヘッダー行を残しつつ、データ部分のみを削除したい場合に非常に有効です。
データを一新する際に、テーブルの構造や書式を保持しつつ、内容だけをリセットできるため、頻繁にデータを更新する場面で便利です。

「Offset」と「Resize」を組み合わせて使用することで、データ範囲を柔軟に操作できるため、様々なテーブル構造に対応可能です。
このコードを活用することで、効率的なデータ管理が実現できます。

この記事のまとめ

「Offsetプロパティ」は、Excel VBAでセルの相対位置を柔軟に取得し、さまざまな操作を効率的に行うために非常に便利なツールです。

このプロパティを使うことで、データの追加や削除、テーブルの管理が簡単になり、手動で範囲を設定する必要がなくなります。
作業の自動化が進み、効率的なデータ操作が可能になります。

ポイントのおさらい

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

Clearメソッド以外にも、Excel VBAで役立つテクニックがたくさんあります。
以下のリンクから、他の記事やガイドラインを参照し、さらなる知識を得ることができます。

あわせて読みたい

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