ray88’s diary

お仕事で困ったとき用の自分用の覚書

VBA Offsetプロパティ

■指定セル範囲から相対的にセル範囲を取得する

基準セル.Offset(行オフセット数, 列オフセット数)

■サンプルコート①
 セル B3を基準に、「1行・2列」分離れた位置のセルを選択する

Sub オフセット_1()
    Sheets(1).Range("B3").Offset(1, 2).Select
End Sub

f:id:ray88:20220220184819p:plain
■サンプルコード②
セル範囲 B2:E2 を基準に「3行」分離れた位置のセルを選択する
※基準セルが単一セルではなくセル範囲の場合、Offsetプロパティへの引数へ
 行数もしくは列数のみ指定すると、指定されなかった側の行数・列数は
 基準セルの範囲を保ったまま移動します。
表の見出しから3行分離れた位置のデータ、つまり3個目のデータを
 取得するような場合に便利

Sub オフセット_2()
    Sheets(1).Range("B2:E2").Offset(3).Select
End Sub

f:id:ray88:20220220185213p:plain