たった1日で即戦力になるExcelの教科書

エクセル解説記事

エクセルセミナー【マクロVBA】シート名一覧を書き出すマクロ

エクセルセミナー【マクロVBA】シート名一覧を書き出すマクロ

 

こんにちは。

すごい改善の吉田です。

 

「このファイルにあるシート名一覧を作ろう」


と思った時、このファイルには30枚もシートがあるとします。これを一つ一つコピペでやるのは大変だし見落としも起きてしまいそうです。


なので、こういう時に、即席でさくっとマクロを書いて済ませてしまえるようになって頂きたいわけです。


シート名一覧を新しいシート上に書き出すために、先ほど10秒ほどで書いたのが次のマクロです。


Sub sample()
  Dim i
  For i = 2 To Sheets.Count
    Cells(i, 1) = Sheets(i).Name
  Next i
End Sub


新規シートをブックの一番左側に置いといてアクティブにした状態で、このマクロを実行すると、そのシートのA列の2行名から順にブック内のシートがすべて書き出されます。

 

★一日集中で本当に仕事に使えるマクロの作り方を詰め込みます。

実務直結・すごい改善ExcelマクロVBAセミナー初級編