Excel VBA シートコピー書式でシートを別シートやブックに複製する方法

以下のようなシーンで利用されます。

・テンプレートシートの作成で、特定の書式設定やデザインを保持したシートを複数作成する。

・バックアップで、シートの内容を他のブックにバックアップしたいときに、書式を崩さずにコピーする。

Excel VBA シートコピー書式そのまま｜使い方とポイント

Option Explicit

Sub CopySheetWithFormatting()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    
    ' コピー元シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' シートをコピーして新しいシートを作成
    ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    
    ' コピーされた新しいシートを取得
    Set newWs = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    
    ' 新しいシートの名前を変更
    newWs.Name = "CopiedSheet"
    
    ' メッセージを表示
    MsgBox "シートが書式を維持してコピーされました！"
End Sub

Excel VBAのシートコピー機能を使うことで、書式を崩さずにシートを複製することが可能です。これはテンプレートを利用したり、書式が重要なデータを扱う場合に非常に有効です。注意点としては、リンクや名前の重複に気をつけてください。