【エクセルマクロ】セル値から新規シート作成(挿入)：動画あり

エクセルマクロで、セルの入力値をもとに新規シートを自動作成(挿入)するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。

セル値から新規シート作成(挿入)

以下のExcelVBAを実行すると、セルに入力した名前のシートを自動で追加します。

Sub セルに入力した文字列から複数シートをまとめて挿入()

Dim Sht1 As Worksheet

Dim LastRow As Long
Dim i As Long

    Set Sht1 = Sheets("Sheet1")

    '最終行を取得
    LastRow = Sht1.Cells(Rows.Count, 1).End(xlUp).Row
       
    Application.ScreenUpdating = False

        '2～最終行までループ
        For i = 2 To LastRow
    
            'シート追加
             Worksheets.Add Before:=Worksheets(1)

　　　　　　 'シート名はセル値から取得してつける
             ActiveSheet.Name = Sht1.Cells(i, 2)
    
        Next i

    Application.ScreenUpdating = True

End Sub

マクロ実行前

「Sheet1」のB列に、作成したいシート名の一覧を入力しておきます。

マクロ実行後

セル値をもとに、新規シートを個別に自動作成します。

セル値をシート名にします。

 
※社名はジェネレーターで作成したものです。

この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】シートの追加・削除を自動化まとめ
 

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

...

kirinote.com

2023.09.03