「このファイルにあるシート名一覧を作ろう」 と思った時、このファイルには30枚もシートがあるとします。これを一つ一つコピペでやるのは大変だし見落としも起きてしまいそうです。 なので、こういう時に、即席でさくっとマクロを書いて済ませてしまえるようになって頂きたいわけです。 シート名一覧を新しいシート上に書き出すために、先ほど10秒ほどで書いたのが次のマクロです。 Sub sample() Dim i For i = 2 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next iEnd Sub 新規シートをブックの一番左側に置いといてアクティブにした状態で、このマクロを実行すると、そのシートのA列の2行名から順にブック内のシートがすべて書き出されます。 『たった1秒で仕事が片づく Excel自動化の教科書』執筆陣が自ら直接指導。 実務直結・一日集中・受講後無期限サポート付きのマクロVBAセミナー 合わせて読みたい [関連記事]