Excelでセルの範囲からシーケンスワークシートを作成するにはどうすればよいですか？

ワークシートにデータの範囲がある場合、そのセルデータに基づいて一連のワークシートを作成したいとします。次のスクリーンショットをご覧ください。もちろん、ワークシート名を手動で一つずつ編集することはできますが、複数のワークシート名を編集する必要がある場合、この方法は面倒で時間がかかります。ここで、いくつかの簡単な方法をご紹介します。

VBAコードを使用してセルのリストからシーケンスワークシートを作成する

Kutools for Excelを使用してセルのリストからシーケンスワークシートを作成する

VBAコードを使用してセルのリストからシーケンスワークシートを作成する

次のVBAコードは、既存のワークシートの後にセルの内容に基づいて名前を付けたいくつかのワークシートを追加するのに役立ちます。以下の手順を行ってください：

1. ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「 挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBAコード：セルのリストに基づいてシーケンスワークシートを追加する

Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
        Ws.Name = arr(i, j)
    Next
Next
Application.ScreenUpdating = True
End Sub

3. そしてF5キーを押してこのコードを実行すると、使用したい範囲を選択するためのプロンプトボックスが表示されます。スクリーンショットをご覧ください：

4. その後、「OK」をクリックすると、セル値によって名前が付けられたワークシートが既存のワークシートの後に追加されます。スクリーンショットをご覧ください：

注意：

1. 新しいワークシートは現在のワークシートの後に挿入されます。

2. 選択した範囲に空白のセルが含まれている場合、ワークシートはデフォルトに基づいて名前が付けられます。スクリーンショットをご覧ください：

Kutools for Excelを使用してセルのリストからシーケンスワークシートを作成する

ここで、便利なツールであるKutools for Excelを紹介します。その「シーケンスワークシートの作成」機能を使用すると、月名、曜日名、カスタムリストなどに基づいてワークシートを迅速に作成できます。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用できます。今すぐ入手してください。

Kutools for Excelをインストール後、次の手順を行ってください：

1. ワークシートを作成する基になる範囲を選択します。

2. 「Kutools Plus」>「ワークシート」>「シーケンスワークシートの作成」をクリックします。スクリーンショットをご覧ください：

3. 「 シーケンスワークシートの作成」ダイアログボックスで、新しいシーケンスワークシートを作成するワークシートタイプを選択し、「選択範囲内のデータ」オプションをチェックします。スクリーンショットをご覧ください：

4. その後、「OK」をクリックしてダイアログボックスを閉じると、選択した範囲データによって名前が付けられたワークシートを含む新しいワークブックが作成されます。スクリーンショットをご覧ください：

注意：

1. 「Sheet 1」または「Sheet 2」を選択した場合、新しく作成されるワークシートは「Sheet 1」または「Sheet 2」と同じ書式になります。

2. 新しいワークシートは新しいワークブックに作成されます。

3. 選択した範囲に空白のセルが含まれている場合、ワークシートはデフォルトに基づいて名前が付けられます。スクリーンショットをご覧ください：

この「シーケンスワークシートの作成」機能についてさらに詳しく知るにはクリックしてください。

関連記事：

Excelでカスタマイズされた名前を持つ新しいワークシートを追加するにはどうすればよいですか？