Excel VBA 以下のメッセージが出ないようにするにはどうしたらいいですか？

Excel VBA

以下のメッセージが出ないようにするにはどうしたらいいですか？

ペースト（ActiveSheet.Paste)実行後、
「コピーまたは移動先のセルの内容を置き換えますか？」とメッセージが出ます。
「OK」押下して問題ございませんが、いちいち出るのが嫌なので
出ないようにできないでしょうか？もしくは代わりとなるプログラムがあれば教えてください。
※コピー先、ペースト先ともセルが結合してます。

不明点ありましたら補足します。

よろしくお願いいたします。

No.2 ベストアンサー 回答者： tom04 回答日時： 2018/08/28 22:12

こんばんは！

未検証ですが・・・

コピー＆ペーストのコードの前に
＞Application.DisplayAlerts = False
を
コピー＆ペーストのコードの次に
＞Application.DisplayAlerts = True

をそれぞれ追加したらどうなりますか？

※　本来であれば結合セルをそのままコピー＆ペーストしたい場合は
貼り付け先の結合セルを解除しておく方が無難だと思います。
仮に「Sheet2」へ貼り付ける場合は

Worksheets("Sheet2").UnMerge
といった感じで・・・m(_ _)m

この回答へのお礼

ありがとうございました！

お礼日時：2018/08/29 11:41

No.3 回答者： tom04 回答日時： 2018/08/28 22:20

No.2です。

投稿後気づきました。
前回の
＞Worksheets("Sheet2").UnMerge
は
＞Worksheets("Sheet2").Cells.UnMerge
でした。

どうも失礼しました。

※　上記コードでは「Sheet2」のすべてのセルの結合が解除されます。
貼り付け先の範囲がある範囲！と決まっているのであれば
セル範囲を指定してやる必要があります。m(_ _)m

No.1 回答者： yokomaya 回答日時： 2018/08/28 21:51

基本vbaで迷わないためには結合をやめるべきとは思いますが。

結合セルの場合、ペーストは使わずに代入すべきなんです。
Range(コピー先)=コピー元
みたいな感じで。
コピー先、コピー元ともに先頭１セルで