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

ExcelVBA-別シートにコピー-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、データをコピーして別シートに貼り付ける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」にコピーします。
 

 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する:超便利33選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!