セルを結合するマクロで表示されるメッセージの回避

質問

マクロで
.meargeCells=true　
によって結合使用とすると
「選択範囲には複数のデーター値があります、、、」
のメッセージがでます。セルを結合する回数が多いのでいちいちOKボタンを押しているわけに行かないので
このメッセージがでないようにするにはどうしたらよいでしょうか。

回答No.1

kigoshi · ベストアンサー

直前に
Application.DisplayAlerts = False
を入れておけばＯＫかな。

結合が終わったらTrueに戻しておいた方がよろしいかと思います。

うまくできますように。

回答No.2

imogasi

＃１のご回答が正解ですが
Sub test02()
Dim cl As Range
n = 0
For Each cl In Range("b3:c4")
If n = 0 Then
Else
cl = ""
End If
n = n + 1
Next
Range("b3:c4").MergeCells = True
End Sub
のような発想も可能かと。
マージされるセルを空白にして、セルを結合する。