セルを結合するマクロ

質問

マクロ初心者です。
Aセルをブランク領域で選択してマクロを実行しますとセルが結合します。
最後の空白がどこまでかは、何か指定がないといけないので、仮にエンドと名付けます。
このコードはA列のみです。A列からM列またはL列までと指定するにはどうすれば良いですか？
ご教鞭をお願いします。

Sub test()
Set Rng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
Set blanks = Rng.SpecialCells(xlCellTypeBlanks)
For Each ar In blanks.Areas
Union(ar(1).Offset(-1), ar).Merge
Next
Cells(Rows.Count, 1).End(xlUp).ClearContents
End Sub

回答No.1

watabe007 · ベストアンサー

>A列からM列
Sub test()
　　Dim Rng As Range, blanks As Range
　　Dim ar As Range, 列 As Long
　　For 列 = 1 To 13
　　　　Set Rng = Range(Cells(1, 列), Cells(Rows.Count, 列).End(xlUp))
　　　　Set blanks = Rng.SpecialCells(xlCellTypeBlanks)
　　　　For Each ar In blanks.Areas
　　　　　　Union(ar(1).Offset(-1), ar).Merge
　　　　Next ar
　　　　Cells(Rows.Count, 列).End(xlUp).ClearContents
　　Next 列
End Sub

お礼

For 列 = 1 To 13の13はセル1からMまで数えて13番めということですね。
ご教鞭をありがとうございます。

回答No.2

watabe007

文字は上揃いにするのなら
　　For 列 = 1 To 13
　　　　Set Rng = Range(Cells(1, 列), Cells(Rows.Count, 列).End(xlUp))
　　　　Rng.VerticalAlignment = xlTop

お礼

それもやってくださって恐縮です。
ありがとうございました。