VBAのfor文で全シート名を表示する

VBAのfor文は以下のように記述します。

for i = 初期値 To 最大値
  ' 処理
Next

現在のブックのシート数は

ActiveWorkbook.Worksheets.Count

で求めることができます。

for文でループし、カウンタiを引数に渡して

Worksheets(i).Name

とすると各シート名を取得することができます。iは1オリジンです。

for i = 1 To ActiveWorkbook.Worksheets.Count
  Worksheets("Sheet1").Cells(i, 1).Value = Worksheets(i).Name
Next
スポンサーリンク
  • このエントリーをはてなブックマークに追加
スポンサーリンク

コメントをどうぞ

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA