Excel VBA Offsetで指定した行数および列数だけ移動した位置を取得する

以下のようなシーンで利用されます。

・動的にデータ範囲を指定する。

・相対的な位置にあるデータにアクセスする。

・ループ内でセルの移動を行う。

Option Explicit

Sub ExampleOffset()
    Dim baseCell As Range
    Dim targetCell As Range
    Dim cellValue As Variant
    
    ' 基準セルを設定
    Set baseCell = Worksheets("Sheet1").Range("A1")
    
    ' Offsetプロパティを使用して2行下、3列右のセルを取得
    Set targetCell = baseCell.Offset(2, 3)
    
    ' 取得したセルの値を変数に格納
    cellValue = targetCell.Value
    
    ' 結果をメッセージボックスで表示
    MsgBox "2行下、3列右のセルの値は: " & cellValue
End Sub