このサイトの記事内では「アフィリエイト広告」などの広告を掲載している場合があります。
消費者庁が問題としている「誇大な宣伝や表現」とならないよう配慮しコンテンツを制作しておりますのでご安心ください。
問題のある表現が見つかりましたらお問い合わせよりご一報いただけますと幸いです。

【VBA】シートを別ブックにコピーする方法

2024年3月12日

【VBA】シートを別ブックにコピーする方法

今回はシートをコピーする方法を紹介します。

また、シートを別のブックにコピーする方法についても併せて説明します。

VBAが難しいと感じたら
プロにお任せして代わりに作ってもらうのはいかがでしょうか?
マクロの作成請負をしていますので、こちらからご相談ください。

シートをコピーする方法

Sub CopySht()
    '''シートをコピーする
    
    'コピーしたいシート
    Dim shtCopy As Worksheet
    Set shtCopy = ActiveWorkbook.Sheets(1)
    
    'シート(1)の後ろにコピー
    shtCopy.Copy After:=ActiveWorkbook.Sheets(1)
    
End Sub

シートのコピーはCopyメソッドを使って行います。

コピーしたいシート.Copyとし、その後にAfterプロパティでどのシートの後ろにコピーするかを指定します。

サンプルコードでは1つ目のシートの後ろにコピーしています。

シートを別のブックにコピーする方法

Sub CopyToOtherBook()
    '''シートを別のブックにコピーする
    
    'コピーしたいシート
    Dim shtCopy As Worksheet
    Set shtCopy = ActiveWorkbook.Sheets(1)
    
    'コピー先のブック
    Dim wbOther As Workbook
    Set wbOther = Workbooks("コピー先のブック名")
    
    'コピー先ブックのシート(1)の後ろにコピー
    shtCopy.Copy After:=wbOther.Sheets(1)
    
End Sub

別のブックにコピーしたい場合もCopyメソッドを使って行います。

別のブックにコピーする場合の違いはAfterプロパティの指定についてです。 このAfterプロパティに、コピー先のブック内のシートを指定すれば別のブックにもコピーすることができます。

≪関連記事≫

シートをコピーして、そのまま別ブックとして保存するコードも紹介しています。

VBAが難しいと感じたら
プロにお任せして代わりに作ってもらうのはいかがでしょうか?
マクロの作成請負をしていますので、こちらからご相談ください。

VBA

Posted by やろまい