スキルアップ・問題解決なら、モーグにおまかせ！

指定したセル範囲をコピーします。引数Destinationを省略した場合はクリップボードにコピーされ、Destinationを指定した場合には、クリップボードを介さずに別のセル範囲に内容が貼り付けられます。

　構文  Object.Copy(Destination) 

　設定項目        内容
  Object          Rangeオブジェクト
  Destination     貼り付け先のセル範囲を表すRangeオブジェクト [省略可能]

Sub CopySamp1()

    Worksheets("Sheet1").Range("A1:B9").Copy _
           Destination:=Worksheets("Sheet2").Range("B1")

End Sub

上のサンプルはSheet1のセルA1〜B9をクリップボードを使わずに、Sheet2のB1を先頭とするセル範囲にコピーします。貼り付け先にデータが入っていても上書きされます。書式も全てコピーされますが、セル範囲を対象とした場合には列幅・行の高さはコピーされません。列幅もコピーしたい場合には列全体を対象にして行ってください。行の高さも同じです。あるいはSpacialPasteメソッドを使用して、列幅のみをコピーしてください。

●注意●
コピー元のセル範囲と貼り付け先のセル範囲の形が違うと、エラーが発生することがあります。エラー発生の条件はマニュアル操作でコピーするときと同じです。