【エクセルマクロ】セル値から新規シート作成(挿入):コピペで使えるコード

vba-セル値からシート作成-アイキャッチ ExcelVBA

エクセルマクロで、セルの入力値をもとに新規シートを自動作成(挿入)する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列に、作成したいシート名の一覧を入力しておきます。


 

マクロ実行後

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

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


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

この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】1か月分の日付のシート作成:動画あり
...

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説