シートのデータをクリアしてクリップボードの内容を貼り付ける方法

質問

シートのデータをクリアしてからクリップボードのデータを貼り付けるマクロを作成しています。
■処理内容
Sheets("Sheet1").Cells.Clear
Sheets("Sheet1").Paste

別アプリのデータをクリップボードに保存した場合は問題ないのですが、同一のエクセルウィンドウ内にあるセルデータをコピーした場合、Cells.Clearを実行した時点でシートのデータだけでなくクリップボード内のデータも消えてしまう為、張り付けることができません。

※クリップボード内のデータを消さずにシートの内容をクリアする方法はありますか？

よろしくお願いします。

回答No.1

KenKen_SP · ベストアンサー

こんにちは。

> 同一のエクセルウィンドウ内にあるセルデータをコピーした場合

それなら、データをコピーするのもクリアするのも自由にタイミング
が取れるはずですから、データをクリアした後にコピーすれば良い
だけでは？

　　Worksheets("Sheet2").Cells.Clear
　　Worksheets("Sheet1").Range("A1:C10").Copy _
　　　　Destination:=Worksheets("Sheet2").Range("A1")

はずしたかな...？

お礼

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