【VBA】Excelで「複製」ボタンを作ってシートを簡単コピーする方法

2024年2月7日2025年12月22日

経緯

Excelで作業していると、既存のシートをコピーして再利用したい場面がよくあります。
これまではシートのタブを右クリックして「移動またはコピー」を選び、手動で複製していましたが、この作業が面倒に感じたため、VBAで自動化できないかを検討しました。

そこで今回は、Excel上のボタンをクリックするだけで、現在のシートを複製できるマクロを作成しました。

実現したい仕様

Excelシート上に「複製」ボタンを配置
ボタンを押すと、新しいシート名を入力するダイアログボックスが表示される
入力された名前で、現在のシートをブックの先頭に複製
シート名が既存のものと重複していた場合は無視

実装コード（VBAマクロ）

以下が実際に使用しているマクロのコードです。

Sub DuplicateSheetAnd()
    Dim newSheetName As String
    Dim newSheet As Worksheet

    ' シート名の入力を求めるダイアログボックスを表示
    newSheetName = Application.InputBox("新しいシート名を入力してください:", "シート名入力", Type:=2)

    ' 入力がキャンセルされた場合は処理を終了
    If newSheetName = "False" Then Exit Sub

    ' 現在のシートを複製し、複製されたシートを変数に格納
    ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1)
    Set newSheet = ActiveSheet

    ' 新しいシートに名前を設定
    On Error Resume Next ' 既に同じ名前のシートが存在する場合のエラーを無視
    newSheet.Name = newSheetName
    On Error GoTo 0 ' エラーハンドリングを元に戻す
End Sub

このマクロは、選択中のアクティブシートをそのままコピーして先頭に配置し、指定した名前に変更する仕様です。