[ Excel-VBA ] シート間でセルをコピーする ( Range.Copy )

Tweet

Pocket

ここでは、VBA でワークシートをまたいでセルの内容をコピーするサンプルスクリプトを掲載しています。詳細はコメントを参照ください。

シート間でセルをコピーする

以下に3つの方法でセルのコピーを行うサンプルスクリプトを掲載しています。詳細はサンプル内のコメントを参照ください。

    '--------------------------------
    ' サンプルコードその１
    '--------------------------------
    
    ' シート"Sheet1"のセルA1をコピーする
    Worksheets("Sheet1").Range("A1").Copy
    
    ' コピー先であるシート"Sheet2"をアクティブにする
    Worksheets("Sheet2").Activate
    
    ' アクティブシート"Sheet2"のセルA2にコピーした内容を貼り付ける
    ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("A2")
    
    '--------------------------------
    ' サンプルコードその２
    '--------------------------------
    
    ' シート"Sheet1"のセルA3をコピーする
    Worksheets("Sheet1").Range("A3").Copy
    
    ' コピー先であるシート"Sheet2"をアクティブにする
    Worksheets("Sheet2").Activate
    
    ' コピー先のセルを選択状態にする
    ActiveSheet.Range("A3").Select
    
    ' アクティブシートの選択されているセルにコピーした内容を貼り付ける
    ActiveSheet.Paste
    
    '--------------------------------
    ' サンプルコードその３
    '--------------------------------
    
    ' シート"Sheet1"のセルA2をコピーして、シート"Sheet2"のセルA1に張り付ける
    Worksheets("Sheet1").Range("A2:A2").Copy (Worksheets("Sheet2").Range("A1:A1"))
    
    ' コピー先のシート"Sheet2"をアクティブにする
    Worksheets("Sheet2").Activate

一度にコピー＆ペーストまで行ったり、ひとつずつ手順を踏んで記述することもできることがサンプルにより確認できます。

参考

• Worksheet.Paste メソッド (Excel)

Tweet

Pocket