Excelでリストからシート名を作成するにはどうすればよいですか？

ここでは、データのリストがあり、そのデータを使用して新しいワークブックを作成し、シートに名前を付けたいとします。リストにいくつかのデータしかない場合、ワークブックを作成してシートを1つずつ手動で名前変更することもできます。しかし、リストに数百のデータがある場合はどうでしょうか？ここで、Excelでデータのリストに基づいてシート名を作成するためのいくつかの方法を紹介します。

VBAを使用してリストからシート名を作成する

Kutools for Excelを使用してリストからシート名を持つ新しいワークブックを作成する

VBAを使用してリストからシート名を作成する

Excelでは、このタスクを解決するための特別な方法はVBAコード以外にありません。

1. Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

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

VBA: リストからシート名を作成する

Sub CreateSheetsFromAList()
'UpdatebyKutoolsforExcel20150916
    Dim Rg As Range
    Dim Rg1 As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        If Rg1 <> "" Then
            Call Sheets.Add(, Sheets(Sheets.Count))
            Sheets(Sheets.Count).Name = Rg1.Value
        End If
    Next
End Sub

3. 「 実行」をクリックするか F5キーを押すと、Kutools for Excelダイアログが表示され、シート名を作成する基準となるセルを選択するように促されます。

4. 「OK」をクリックします。これで、現在のワークブックの最後に一連のシートが作成されます。

現在のワークブック内の指定されたリストに基づいて、新しいワークブックを作成し、シート名を設定したい場合は、Kutools for Excelの「シーケンスワークシートの作成」機能を使用できます。

Kutools for Excelを使用してリストからシート名を持つ新しいワークブックを作成する

Kutools for Excelを使用すると、「シーケンスワークシートの作成」ユーティリティを使用して、新しいワークブック内の値のリストに基づいてシーケンスワークシートを迅速に作成できます。

Kutools for Excelを無料でインストール した後、以下のように操作してください：

1. 必要なリストを選択し、Kutools Plus > ワークシート > シーケンスワークシートの作成をクリックします。スクリーンショットをご覧ください：

2. 表示されるダイアログで、基準となるワークシートのリストから「空白のワークシート」を選択し、「 ワークシート名の基準」セクションで「選択範囲内のデータ」をチェックし、テキストボックスで範囲が選択されていることを確認します。スクリーンショットをご覧ください：

3. 「OK」をクリックすると、特定のシート名を持つ新しいワークブックが作成されているのがわかります。

ヒント: 特定のシートと同じ書式を持つ複数のシートを作成したい場合は、基準となるワークシートのリストからシート名を選択し、ダイアログでシート名を指定するだけで済みます。