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

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

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

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

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

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

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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

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

3。 次に、 F5 このコードを実行するためのキー。現在のワークブックのすべてのシートの後に新しいシートが作成されています。スクリーンショットを参照してください。

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

上記のコードに熟練していない場合は、ここに便利なツールがあります-Kutools for Excelそのと シーケンスワークシートの作成 関数の場合、ワークシートは新しいワークブックのセル値に基づいて作成されます。

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツールズプラス > ワークシート > シーケンスワークシートの作成、スクリーンショットを参照してください：

2。 の中に シーケンスワークシートの作成 ダイアログボックス：

（1.）シーケンスワークシートを作成するワークシートをXNUMXつ選択します。

（2.）次に、 且つ からの範囲オプションで に基づくシート名 リストボックスをクリックし、 ボタンをクリックして、使用するセル値を選択します。

3。 そして、 Ok ボタンをクリックすると、ワークシートが新しいワークブックのセル値の名前で作成されました。スクリーンショットを参照してください。

今すぐExcel用のダウンロードと無料トライアルKutoolsをクリックしてください！