エクセル2010のマクロについて、セル結合の解除

全てのセルを選択して、結合されているセルがあったら全て解除したいのですが、
マクロの記録で作成すると、↓を何百回も繰り返すソースになってしまいます

With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With


長すぎるとエラーになってしまいますし、何回繰り返すかもランダムなので、↑の処理を、
結合されたセルがなくなるまで繰り返すという設定にしたいのですが、可能でしょうか？

よろしくおねがいします。

No.2 ベストアンサー 回答者： mu2011 回答日時： 2012/02/10 09:43

セル全体選択→結合解除でマクロ記録すると以下の様なコードになります。

結合セルがなくなるまで繰り返す必要もないと思います。
Sub Macro1()
Cells.Select　'全体セル選択
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False　'結合解除
End With
End Sub
因みにこのWith～End Withの「.MergeCells = False」以外不要だから削除しても
問題ありません。

No.3 回答者： mar00 回答日時： 2012/02/10 12:08

Cells.UnMergeにすれば一回で済みます。

No.1 回答者： KURUMITO 回答日時： 2012/02/10 06:49

次のようにすればよいでしょう。

Cells.Select
Selection.UnMerge