【エクセルマクロ】別シートにコピーする：使用例１０選

エクセルマクロで、データをコピーして別シートに貼り付けるExcelVBAコードを記載しています。

条件書式、罫線、背景色も一緒に別シートへコピーします。

※すべて「Sheet1」を開いた状態でマクロを実行しています。

別シートにコピー

以下のマクロを実行すると、セルを別シートにコピーします。

Sub 別シートにコピー()

    Range("B1").Copy Sheets("Sheet2").Range("A1")

End Sub

マクロ実行後

アクティブシートのセル [B1] コピーして、「Sheet2」に貼り付けます。

別シートにコピー（指定範囲）

以下のマクロを実行すると、指定範囲を別シートにコピーします。

Sub 別シートにコピー()

    Range("B1:D6").Copy Sheets("Sheet2").Range("A1")

End Sub

マクロ実行後

アクティブシートのセル範囲の [B1:D6] コピーして、「Sheet2」に貼り付けます。

別シートにコピー（Cells使用）

以下のマクロを実行すると、指定範囲を別シートにコピーします。

Sub 別シートにコピー()

    Range(Cells(1, 2), Cells(6, 4)).Copy Sheets("Sheet2").Cells(1, 1)

End Sub

マクロ実行後

アクティブシートのセル範囲の [B1:D6] コピーして、「Sheet2」に貼り付けます。

別シートにコピー（シートを変数格納）

以下のマクロを実行すると、指定範囲を別シートにコピーします。

Sub 別シートにコピー()

Dim Sht1 As Worksheet
Dim Sht2 As Worksheet

    Set Sht1 = Sheets("Sheet1")
    Set Sht2 = Sheets("Sheet2")

    Sht1.Range(Cells(1, 2), Cells(6, 4)).Copy Sht2.Cells(1, 1)

End Sub

マクロ実行後

[Sht1] のセル範囲の [B1:D6] コピーして、[Sht2] に貼り付けます。

別シートにコピー（特定の列）

以下のマクロを実行すると、A列を別シートへコピーします。

Sub 別シートにコピー()

    ActiveSheet.Columns("A").Copy Sheets("Sheet2").Range("A1")
    
End Sub

マクロ実行後

アクティブシートのA列を「Sheet2」にコピーします。
 

 

別シートにコピー（特定の複数列）

以下のマクロを実行すると、A～C列を別シートへコピーします。

Sub 別シートにコピー()

    ActiveSheet.Columns("A:C").Copy Sheets("Sheet2").Range("A1")
    
End Sub

マクロ実行後

アクティブシートのA～C列を「Sheet2」にコピーします。
 

 

別シートにコピー（離れた特定複数列）

以下のマクロを実行すると、離れた列を別シートへコピーします。

Sub 別シートにコピー()

    Range("A:A,G:G").Copy Sheets("Sheet2").Range("A1")

End Sub

マクロ実行後

アクティブシートのA列とG列を「Sheet2」にコピーします。
 

 

別シートにコピー（特定の行）

以下のマクロを実行すると、2行目を別シートへコピーします。

Sub 別シートにコピー()

    ActiveSheet.Rows("2").Copy Sheets("Sheet2").Range("A1")
    
End Sub

マクロ実行後

アクティブシートの2行目を「Sheet2」にコピーします。
 

 

別シートにコピー（特定の複数行）

以下のマクロを実行すると、2～4行目を別シートへコピーします。

Sub 別シートにコピー()

    ActiveSheet.Range("2:4").Copy Sheets("Sheet2").Range("A1")

End Sub

マクロ実行後

アクティブシートの2～4行目を「Sheet2」にコピーします。
 

 

別シートにコピー（離れた特定複数行）

以下のマクロを実行すると、離れた行を別シートへコピーします。

Sub 別シートにコピー()

    Range("1:1,7:7").Copy Sheets("Sheet2").Range("A1")

End Sub

マクロ実行後

アクティブシートの1行目と7行目を「Sheet2」にコピーします。
 

 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】別ファイルにコピーする
 

【エクセルマクロ】別ファイルにコピーする：使用例5選

...

kirinote.com

2022.09.11