エクセルのセルの結合範囲を可変にする場合

質問

教えて下さい。
ＶＢＡでセルの結合範囲を可変にする場合、行を可変にするのはわかるのですが、列を可変にするにはどのように記述すればよいのでしょうか？よろしくお願い致します。
以下の場合の「Ａ」や「Ｅ」を可変にしたいのですが？？？
Range("A1:E5").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

回答No.1

noname#35109 · ベストアンサー

ご質問の趣旨をちゃんと把握できていない回答かもしれません。

「VBA基本(Range,Cellsの組み合わせでシート指定)」
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_200_070.html

上のページにあるように，
Rabge と Cells を組み合わせれば良いのではないでしょうか。

～引用～
> With Worksheets("Sheet1")
> .Range(Cells(GYO1, COL1), Cells(GYO2, COL2)).Value = 1
> End With

ご質問のパターンだと，

Range(Cells(1, 1), Cells(5, 5)).Select
　With Selection
　.HorizontalAlignment = xlGeneral
　…省略…

のようになります。

お礼

ありがとうございました。
知りたかった事に対してズバリの回答です。
本当にありがとうございました。