Excel（セルの結合マクロ）

質問

いつもお世話になっております。

Excelのマクロで、選択範囲の中で、下のセルが空白のものは、上のセルと結合されるマクロを作りたいと考えています。
（例１：A1セルに”TEST”が入力されており、A2,A3セルが空白として、A1:A3を選択し、マクロを実行するとA1からA3がセル結合される
　例２：A1に”TEST2”B2に"TEST3"が入力されており、A1:B3を選択すると、A1からA3が結合され、B2とB3も結合される）

説明が下手で申し訳ないのですが、お力を貸していただけませんでしょうか？
よろしくお願いいたします。

回答No.1

n-jun · ベストアンサー

Sub try()
Dim r As Range

For Each r In Selection

If r.Value = "" And r.Row > 1 Then
Range(r.Offset(-1), r).Merge
End If

Next
End Sub
こんなかな。

お礼

すごい！
まさに私のしたいことでした。

ありがとうございました。
今後ともよろしくお願いいたします。