Excel VBA 任意の個数のセルの統合

質問

Excel VBAの質問です。

整数型の変数　colNo は2～50の値を取ります。
任意の１セルが選択されていて、そのセルから右にcolNo個のセルを統合（MergeCells）
したいのですが、方法がわかりません。
どのようにコーディングしたらよいのでしょうか。
Excel2002を使用しています。
よろしくお願いいたします。

回答No.1

pbforce · ベストアンサー

Range(Cells(1, 1), Cells(1, colno)).MergeCells = True

でA1から任意のcolno個右に結合できます。

お礼

素早く的確なご回答ありがとうございました。
たいへん助かります。

回答No.2

hana-hana3

こんな感じでしょうか？

Dim n As Integer
n = ActiveCell.Value
Range(ActiveCell, ActiveCell.Offset(, n - 1)).Merge

お礼

素早いご回答ありがとうございました。
大変参考になりました。