マクロでセルの結合の方法をお願いいたします

質問

沢山の方にお世話になり有難うございます
今回はセルの結合なのですが、一か所は出来るのですが、連続して出来ません

例えば
A1とA２を結合次にB1とB2、C1とC2を結合出来るように同じ式の中で作りたいと思っています。（　）の中の番地を変えて複数作るしか無いのでしょうか

Sub テスト()

Dim range1 As Range

Set range1 = Range("A１:A2")　　（この後ろにB1:B2を追加したいのですが、方法をお願いします）
range1.MergeCells = True

End Sub

XPでの方法もお願いいたします
以上宜しくお願いいたします

回答No.1

tom04 · ベストアンサー

こんばんは！

Sub test1()
Range("A1:A2, B1:B2, C1:C2").Merge
End Sub

とか

Sub test2()
Dim j As Long
For j = 1 To 3
Range(Cells(1, j), Cells(2, j)).Merge
Next j
End Sub

といった感じではどうでしょうか？m（_ _）m

お礼

有難うございます
おかげさまで助かります