セル値のリストから複数のワークシートを作成するにはどうすればよいですか？

Excelでセル値のリストに基づいて複数のワークシートを簡単に作成する方法はありますか？この記事では、その作業を解決するためのいくつかの良いテクニックについて説明します。

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

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

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

セル値のリストで名前を付けた複数の新しいワークシートを迅速に作成するには、次のVBAコードが役立ちます。

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

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

VBAコード: セルのリストから複数のワークシートを作成する:

Sub AddSheets()
'Updateby Extendoffice
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A1:A7")
        With wBk
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xRg.Value
            If Err.Number = 1004 Then
              Debug.Print xRg.Value & " already used as a sheet name"
            End If
            On Error GoTo 0
        End With
    Next xRg
    Application.ScreenUpdating = True
End Sub

注釈: 上記のコードでは、A1:A7はシートを作成したいセル範囲です。必要に応じて変更してください。

3. そして、F5キーを押してこのコードを実行すると、現在のブック内のすべてのシートの後に新しいシートが作成されます。スクリーンショットをご覧ください:

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

上記のコードに慣れていない場合、ここに便利なツールがあります - Kutools for Excel。シーケンスワークシートの作成機能を使用すると、新しいワークブック内でセル値に基づいてワークシートが作成されます。

Kutools for Excelをインストール後、次のように操作してください:

1. [Kutools Plus] > [ワークシート] > [ シーケンスワークシートの作成]をクリックします。スクリーンショットをご覧ください:

2. [シーケンスワークシートの作成]ダイアログボックスで:

(1.) シーケンスワークシートを作成する基準となるワークシートを選択します;

(2.) 次に選択します データ 範囲オプションから ワークシート名の基準 リストボックス、そして ボタンをクリックして、使用したいセル値を選択します。

3. その後、[ OK]ボタンをクリックすると、新しいワークブック内にセル値の名前でワークシートが作成されます。スクリーンショットをご覧ください:

今すぐKutools for Excelをダウンロードして無料体験版をお試しください！