特定の名前を持つ新しいシートをExcelに追加するにはどうすればよいですか？

時々、Excelで新しいシートを作成し、それを特定の名前で自動的に命名したい場合があります。この記事では、現在のワークブックに特定の名前を持つ新しいシートを追加する2つの方法と、新しいワークブックに特定の名前を持つワークシートを作成する方法を紹介します。

VBAコードを使用して現在のワークブックに特定の名前を持つ新しいシートを自動追加する
Kutools for Excelを使用して新しいワークブックに特定の名前を持つ新しいシートを自動追加する

VBAコードを使用して現在のワークブックに特定の名前を持つ新しいシートを自動追加する

次のVBAコードを使用して、現在のワークブックの最後に特定の名前を持つ新しいシートを追加できます。

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

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。

3. 下記のVBAコードをモジュールウィンドウにコピーして貼り付けます。

VBAコード：現在のワークブックの最後に特定の名前を持つ新しいシートを追加する

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. F5キーを押してコードを実行します。表示されるKutools for Excelダイアログボックスで、このシートの名前を入力し、OKボタンをクリックしてください。スクリーンショットをご覧ください:

その後、特定の名前を持つ新しいワークシートが作成され、現在のワークブックの最後に配置されます。

Kutools for Excelを使用して新しいワークブックに特定の名前を持つ新しいシートを自動追加する

このセクションでは、 Kutools for Excelの「シーケンスワークシートの作成」機能を紹介します。この機能を使用すると、新しいワークブックに特定の名前を持つ新しいシートを簡単に追加できます。

1. 特定の名前を持つ新しいシートを追加するには、事前にその名前をセルに入力しておく必要があります。そして、Kutools Plus > ワークシート > シーケンスワークシートの作成をクリックします。

2. 「シーケンスワークシートの作成」ダイアログボックスで、 ベースワークシートのドロップダウンリストから空白のワークシートを選択し、選択範囲内のデータオプションを選択し、特定のワークシート名を含むセルを指定し、最後にOKボタンをクリックします。スクリーンショットをご覧ください:

その後、セルから取得した特定の名前を持つ新しいワークシートが新しいワークブックにすぐに作成されます。

注: