【Excel+VBA】複数のシートを一括追加

プログラミング

2021.12.18

　ひとつのExcelブックにシートを追加するとき、普通は、

「＋」ボタンでシート追加
右クリックで名前

としますよね？

しかし、たくさんのシートを追加するのはとても手間のかかる作業です。

　そこで、一度にたくさんのシートを追加して、なおかつハイパーリンクを付けてくれるVBAプログラムを作成しました。

　単純な作業は自動化しましょう。

この記事でできること

Excelブックに複数のシートを一括追加できる。

完成形

　以下が完成形です。簡単にできました。

Sub シートの一括追加()
    
    '追加するシートの名前が書かれたリスト
    Set SheetNameList = Sheets("目次").Range("$A$2:$A$5")
    
    For Each ListRow In SheetNameList
        '追加するシート名
        NewSheetName = ListRow.Value
        
        '右端にシートを追加
        Set NewSheet = Sheets.Add(After:=Sheets(Sheets.Count))
        
        'シート名をセット
        NewSheet.Name = NewSheetName
        
        '追加したシートへのハイパーリンクを「目次」シートに追加
        NewSheet.Hyperlinks.Add Anchor:=ListRow, Address:="", SubAddress:=NewSheetName + "!$A$1", TextToDisplay:=NewSheetName
    Next
    
    'フォーカスを「目次」シートに戻す
    Sheets("目次").Select

End Sub

参考になればうれしいです。