セル・セル範囲をコピーする（Copy メソッド）

サイト管理人

9年前

Copy メソッド

Copy メソッドは、セル範囲をコピーし、指定したセル範囲にペーストします。ペースト先の指定を省略するとクリップボードにコピーされます。

【書式】

Object.Copy destination

引数・戻り値

object ・・・対象となるRange オブジェクト
destination ・・・ペースト先のセル範囲。省略するとクリップボードにコピーされます。

引数 destination には、ペースト先のセル範囲を指定します。
（例）Range(“A1:C2”), Range(Cells(2,2),Cells(5,5)) など
または、ペースト先のセル範囲の起点となるセル（範囲内の左上セル）を指定します。
（例）Range(“A1”), Cells(1,1) など

Copy メソッドでコピーされる内容は、値・書式・罫線などです（セル幅はコピーされません）。
（ ※ 特定の要素のみ（「セルの値のみ」「セルの書式のみ」など）をコピーしたい場合は、PasteSpecial メソッドを使用します。）

Copy メソッドの使用例

サンプルVBAソース

　
Sub Sample_Copy()

    '「A1」から「E4」の範囲をコピー、
    '「G1」から「K4」の範囲へペースト
    ActiveSheet.Range("A1:E4").Copy Range("G1:K4")

    '「A5」から「E5」の範囲をコピー、
    '「G7」セルを起点とした範囲へペースト
    ActiveSheet.Range("A5:E5").Copy Range("G7")
        
    '「A1」セルを含む「アクティブセル範囲」をコピー
    '「A10」セルを起点とした範囲へペースト
    Range("A1").CurrentRegion.Copy Cells(10, 1)

End Sub

Sub Sample_Copy()

'「A1」から「E4」の範囲をコピー、

'「G1」から「K4」の範囲へペースト

ActiveSheet.Range("A1:E4").Copy Range("G1:K4")

'「A5」から「E5」の範囲をコピー、

'「G7」セルを起点とした範囲へペースト

ActiveSheet.Range("A5:E5").Copy Range("G7")

'「A1」セルを含む「アクティブセル範囲」をコピー

'「A10」セルを起点とした範囲へペースト

Range("A1").CurrentRegion.Copy Cells(10, 1)

End Sub

実行結果

サンプルVBA実行前

実行後