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

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

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

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

よろしくお願いします。

No.1 ベストアンサー 回答者： KenKen_SP 回答日時： 2008/03/27 16:21

こんにちは。

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

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

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

はずしたかな...？

この回答へのお礼

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

お礼日時：2008/03/28 17:21