Excel マクロ(VBA) でシート一覧を作成
備忘録としてVBAマクロを掲載していくシリーズ。
いまあるシート名一覧を出力する方法。
ブックの末尾に新たにシートを追加して、そこに現在あるシート名一覧を出力する。
Sub シート一覧を作成() Dim cnt as Long cnt = Sheets.Count Dim work As Worksheet Set work = Worksheets.Add(, Sheets(cnt)) Dim i As Long For i = 1 To cnt work.Cells(i, 1) = Sheets(i).Name Next i End Sub