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


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

スポンサーリンク




VBAを実行

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

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

200シート以上ある場合

イミディエイトウィンドウは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」に置き換えれば一覧を作れるはず。

スポンサーリンク







シェアする

  • このエントリーをはてなブックマークに追加

フォローする