まさ工房

ExcelVBAとAcessDBを利用した業務支援ツールを作成する工房です

【Excelマクロ・VBA】セル範囲をコピー(Copy)する方法を教えて!

       f:id:m_kbou:20190826123746p:plain

セル範囲をコピーする方法について説明します。コピーするにはCopyメソッドを使用します。以下の説明では、セル範囲を一括でコピー&貼り付けする方法について紹介します。

 

【目次】

 

構文

記述方法は、以下の通りとなります。

=======================================================================

Range(”[コピー範囲]”).Copy Destination: =
                                                   Range(”[貼り付け先]”)

=======================================================================

[説明]:

[コピー範囲]には、コピーするセル範囲を記述します。[コピー範囲]は「”」(ダブルクォーテーション)で囲みます。指定した[コピー範囲]をコピーするには、Copyメソッドを記述します。また、コピーした範囲を貼り付けるには、引数のDestinationを使用します。[貼り付け先]には貼り付ける先頭セルを指定します。[貼り付け先]は[切り取り範囲]と同様に「”」(ダブルクォーテーション)で囲みます。内容を纏めると、「[コピー範囲]でコピーしたデータを、[貼り付け先]で指定した先頭セルに貼り付けて下さい。」との意味になります。

[記述例]:

Range("A1:C3").Copy Destination:=Range("E5")
Range("A1:C3").Copy Destination:=Sheets("Sheet2").Range("E5")

 

使い方

使い方について、具体的に説明していきます。

同じシート内にセル範囲をコピーする方法

同じシート内にセル範囲をコピー方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Range("A1:C3").Copy Destination:=Range("E5")
    MsgBox "コピーしました。"
End Sub

-------------------------------------------------

内容は、「A1セル~C3セルの範囲をコピーして同シート内のE5セルを先頭に貼り付けし、最後にMsgBoxで”コピーしました。”のメッセージを表示して下さい。」との意味になります。

[実行例]:

・初期表示

※データが入力されているA1セル~C3セルの範囲をコピーします。

f:id:m_kbou:20190826123808p:plain

・実行後

※上記でコピーした範囲を同シート内のE5セルを先頭に貼り付けした後、”コピーしました。”のメッセージが表示されます。(赤枠がシート名となります)

f:id:m_kbou:20190826123823p:plain

同じシート内にセル範囲をコピーする方法についての説明は以上です。

 

別シートにセル範囲をコピーする方法

別シートにセル範囲をコピー方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Range("A1:C3").Copy Destination:=Sheets("Sheet2").Range("E5")
    MsgBox "コピーしました。"
End Sub

-------------------------------------------------

内容は、「A1セル~C3セルの範囲をコピーしてSheet2シートのE5セルを先頭に貼り付けし、最後にMsgBoxで”コピーしました。”のメッセージを表示して下さい。」との意味になります。

[実行例]:

・初期表示

※データが入力されているA1セル~C3セルの範囲をコピーします。

f:id:m_kbou:20190826123808p:plain

・実行後

※上記でコピーした範囲をSheet2シートのE5セルを先頭に貼り付けした後、”コピーしました。”のメッセージが表示されます。(赤枠がシート名となります)

f:id:m_kbou:20190826124125p:plain

別シートにセル範囲をコピーする方法についての説明は以上です。

  

おわりに

今回は、セル範囲をコピーする方法について説明しました。類似内容にセル範囲を切り取り&貼り付けする方法があります。是非一緒に覚えておいて下さい。