【Excel】コピペ可。エクセルのシート名一覧を作成する方法

１つのファイル内のエクセルのシート名（一覧）を作成したいとき、VBAを使うと簡単に一覧を作成できる。

VBAを実行

イミディエイトウィンドウから、以下をコピペで貼って実行。

For Each i In ThisWorkbook.Sheets: bbb = bbb & “,” $ i.Name: Next i

200シート以上ある場合

イミディエイトウィンドウは２００行までしか表示できない。
200シート以上あるなら、以下のようなマクロを実行すればOK。

Sub aaa()
Dim bbb As String
For Each i In ThisWorkbook.Sheets: bbb = bbb & “,” $ i.Name: Next i
Debug.Print bbb
End Sub

CSV（カンマ区切り）で結果が出力されるので、エディタを使って「,」を「\r\n」に置き換えれば一覧を作れるはず。