Excelで同じフォーマットを持つ複数のシートを迅速に作成するにはどうすればよいですか？

特定のフォーマットでExcelのシートを作成し、そのフォーマットを複数のシートに適用したい場合、どのようにしてそれを迅速に行うか疑問に思うかもしれません。このチュートリアルでは、同じフォーマットを持つ複数のシートを効率的に作成するためのいくつかの方法を紹介します。

「移動またはコピー」を使用して同じフォーマットのワークシートを作成する

VBAを使用して同じフォーマットのワークシートを作成する

Kutools for Excelを使用して同じフォーマットのワークシートを作成する

「移動またはコピー」を使用して同じフォーマットのワークシートを作成する

Excelでは、「移動またはコピー」コマンドを使用して、選択したシートと同じフォーマットを持つシートを作成できます。

1. 必要なフォーマットを持つシートを「シートタブバー」上でクリックし、右クリックしてコンテキストメニューから「移動またはコピー」を選択します。スクリーンショットをご覧ください：

2. 表示されるダイアログで、「コピーを作成」オプションをチェックします。スクリーンショットをご覧ください：

3. 「OK」をクリックすると、選択したシートの前に同じフォーマットを持つ新しいシートが作成されます。スクリーンショットをご覧ください：

注釈：

(1) 「ホーム」＞「書式」＞「シートの移動またはコピー」をクリックして「移動またはコピー」ダイアログを開くこともできます。

(2) この方法は、数百の同じフォーマットのシートを作成する必要がある場合には時間がかかることがあります。

VBAを使用して同じフォーマットのワークシートを作成する

VBAコードを使用して、一度に同じフォーマットを持つ複数のワークシートを迅速に作成することができます。

1. 「Alt」＋「F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを開き、「挿入」＞「モジュール」をクリックし、以下のコードを「モジュール」ウィンドウにコピーして貼り付けます。

VBA: 同じフォーマットを持つワークシートを作成する

Sub CopyWorkSheets()
'Updateby20150526
Dim xNumber As Integer
Dim xWsName As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
xWsName = Application.InputBox("Copy worksheet name", xTitleId, , Type:=2)
xNumber = Application.InputBox("Copy number", xTitleId, , Type:=1)
For i = 1 To xNumber
    Application.ActiveWorkbook.Sheets(xWsName).Copy _
    After:=Application.ActiveWorkbook.Sheets(xWsName)
Next
End Sub

2. 「F5」キーを押してVBAコードを実行すると、コピーするフォーマットを持つワークシート名を入力するダイアログが表示されます。

3. 「OK」をクリックし、別のポップアップダイアログに必要なコピー数を指定します。スクリーンショットをご覧ください：

4. 「OK」をクリックすると、同じフォーマットを持つ6つのワークシートが作成されます。

Kutools for Excelを使用して同じフォーマットのワークシートを作成する

VBAを使用したくない場合、便利なツールである「Kutools for Excel」をご紹介します。「ワークシートのコピー」機能を使用して、簡単に同じフォーマットを持つシートを作成できます。

1. 「Kutools Plus」＞「ワークシート」＞「ワークシートのコピー」をクリックします。スクリーンショットをご覧ください：

2. 「ワークシートの一括コピー」ダイアログで、以下のように操作します：

(1) 「選択したワークシートのコピー」リストボックスからフォーマットをコピーしたいワークシート名をチェックします；

(2) コピー数を指定します；

(3) コピーを配置したい場所を指定します。

3. 「OK」をクリックすると、コピーが正常に作成されたことを知らせるダイアログが表示されます。「OK」をクリックして閉じます。

これで、指定した数のワークシートが同じフォーマットで作成されました。

「ワークシートの一括コピー」についての詳細はこちらをクリックしてください。