選択範囲を値を指定して下げる方法はありませんか？

質問

EXCEL2007にて
選択範囲の値を指定して拡張したいのですが、
何か方法はありませんでしょうか？

上下左右への拡張や、最後尾までの選択マクロはよく聞くのですが、
指定した数だけ範囲を上下、または左右へ拡張する方法をご教授願いたく投稿いたしました。

たとえばA２:C２選択されている場合、
Range("A2:C5")というマクロではなく、
-4,－５というような数値で範囲を拡張したいのです。

..........｜A｜B｜C
.....1..｜10..10..10
.....2..｜□□□□
.....3..｜■■■■
.....4..｜■■■■　
.....5..｜■■■■
.....6..｜10..10..10
.....7..｜10..10..10

例：　Range("A2:C2").Select
Selection.Range(Down:=3) みたいな感じで記述できないでしょうか？

初心者のため説明不足で申し訳ないのですが、
よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

sub macro1()
range("A2:C2").select
range(selection.offset(1), selection.offset(4)).select
end sub

sub macro2()
range("A2:C2").select
selection.offset(1).resize(3, selection.columns.count).select
end sub

sub macro3()
range(range("A2").offset(1), range("C2").offset(4)).select
end sub

sub macro4()
range(cells(2 + 1,"A"), cells(2 + 4, "C")).select
end sub
等々。

お礼

沢山のサンプルありがとうございます。
こんなに早く回答いただき心より感謝いたします。
使い分けなどの参考にもなりました。
本当にありがとうございました。

回答No.2

kybo

Resizeで出来ます。以下は、下に4行、右に3列拡張する例です。

With Range("A2:C5")
.Resize(.Rows.Count + 4, .Columns.Count + 3).Select
End With

お礼

ありがとうございました。
無事できました。
こんなに早く回答いただき心より感謝いたします。