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セミナー初級編

無料メールセミナー

最短の時間と最小の努力でExcelをマスターする手順教えます

  • 日本で一番売れているExcelの本
  • Excelで業務効率化を実現!
  • 約1万人の業務効率を劇的に改善!Excel速技BEST100
  • Excel女子 ワンランク上の事務サービス
  • LINE@はじめました!