VBAのMergeCellsで実現出来るのでしょうか？

質問

結合されたセルに数式を代入して何度か？コピーペーストを行なっていたら、いつの間にか？結合したセルの中で、左上のセルのアドレス以外(例えば、A1:C3のセルを結合した時のA1:C3の範囲のA1以外のセル)にも参照式が入ってしまいました。かなり大きな表を作っているので、おかげで、1Mバイトぐらいになっています。手で一つ一つの結合セルを選択して、結合の解除と再結合で削除してみると、なんと、600kバイトぐらいまで減少しました。VBAで、自動で行ないたいと思うのですが、何かいい方法がないかと質問させていただきました。因みに、
For Each セルアドレス In Selection
Selection.UnMerge
Selection.Merge
Next セルアドレス
でやってみると、手動の時と同じく再結合の時に"選択範囲には複数のデータ値があります。１つのセルとして結合すると、・・・・"と警告が出て、okを押を押す必要が出てきます。強制的にokを押すか？別の方法ってあるのでしょうか？(一つの結合セルのみ選択した場合)
また、任意の範囲(極端に言えばシート全体)を選択して、複数の結合セルを各々で、結合の解除、再結合ってできるのでしょうか？
上記のループでやると、複数の結合セルを選択すると選択範囲全体が結合されてしまいました。(^^;)A
どなたか？助けてください。よろしくお願い致します。

回答No.1

merlionXX · ベストアンサー

とりあえず警告を出さない方法です。
Mergeする前に
Application.DisplayAlerts = False
を入れておけば無警告で結合します。

最後に
Application.DisplayAlerts = True
で、もとにもどして警告がでるようにしておきましょう。

お礼

ありがとう御座います。警告が出ないだけでも、macroが継続しなんとかなりそうです。大変助かりました。
今後とも宜しくお願い致します。