セルの相対指定オブジェクトRange

はじめに：相対指定とは

VBAでセルを指定する方法には、「絶対指定」と「相対指定」があります。

相対指定を使うことで、どのセルから実行しても柔軟な処理が可能になります。たとえば、データの構造が変わっても対応できる、繰り返し処理がしやすくなる、などのメリットがあります。

Range("A1").Offset(rowOffset, columnOffset)

Range("A1").Offset(1, 0).Value = "下のセル"
Range("A1").Offset(0, 1).Value = "右のセル"

Cells は、行番号と列番号を使ってセルを指定します。

Cells(row, column)

これはシート上の位置を数値で指定しますが、Range と組み合わせることで相対的な操作が可能になります。

Range("A1").Cells(1, 2).Value = "B1"

この場合、A1 からのオフセットではなく、「Range("A1")」という1セルの範囲内の2列目＝つまり B1 になるため注意が必要です。より実用的な相対指定には Offset の方が向いています。

Resize プロパティを使えば、基準セルからのサイズ変更も可能です。

Range("A1").Resize(3, 2).Select

→ A1を基準にして、3行2列分の範囲（A1:B3）を指定。

Range("A2").Resize(10, 5).Copy Destination:=Range("G2")

→ A2から始まる10行×5列の範囲をG2にコピー。

ActiveCell を使えば、「現在選択されているセル」を基準に相対指定できます。

ActiveCell.Offset(1, 0).Value = "次の行へ"

Dim i As Long
For i = 0 To 9
    ActiveCell.Offset(i, 0).Value = i + 1
Next i

→ 現在のセルを基準に、10行下まで1〜10の数字を入力。

相対指定は、ループと変数を組み合わせることでさらに強力になります。

Dim i As Long
For i = 1 To 10
    Cells(i, 1).Offset(0, 1).Value = Cells(i, 1).Value * 2
Next i

→ A列の値を2倍して、B列に出力。

実際のマクロでは、絶対指定と相対指定をうまく組み合わせることが多いです。

Dim startCell As Range
Set startCell = Range("D5")

startCell.Offset(1, 0).Value = "入力1"
startCell.Offset(2, 0).Value = "入力2"

このように、特定のセルを基準として相対的に操作するのがポイントです。

注意点	説明
マイナスのオフセットも可能	`Offset(-1, 0)` は1行上を指す（例：A1の上は無効）
シート外の参照に注意	`Offset` による移動でA1より上や左に行くとエラー
範囲外の `Cells` に注意	`Range("A1").Cells(2, 1)` は存在しないセルになる
相対指定は元の基準セルに依存する	どこからの相対かを把握しないと混乱しやすい

Dim i As Integer
For i = 1 To 5
    Cells(i, 1).Value = "名前" & i
    Cells(i, 1).Offset(0, 1).Value = 20 + i
Next i

→ A列に名前、B列に年齢を入力。

Dim c As Range
For Each c In Range("A2:A10")
    If c.Value <> "" Then
        c.Offset(0, 1).Value = "チェック済"
    End If
Next c