読者です 読者をやめる 読者になる 読者になる

ゴミ溜め@技術系日常系雑文

主にWeb技術やそのほかつまづいたこととか引っかかって調べたこととかをまとめてます。

はてなダイアリーから引っ越しました。)

Excel マクロ(VBA) でシート一覧を作成

VBA Excel

備忘録として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