シート一覧(リストや目次)からシートを作成する方法
やりたいこと
やりたいことは「目次」シートのB列の目次の動物の名前でシート名を指定してワークシートを作成する方法を解説します。
マクロを実行すると以下のようにシートが作成できます。
サンプルコード
Sub createWorkSheet() Dim i As Long Set ws = Worksheets("目次") For i = 2 To 6 Worksheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.Name = ws.Cells(i, 2) Next i End Sub
コメント