livedoor ナレッジ

Excelで目次を作成したいのですが、効率の良い方法あれば教えてください

Excelで、とあるマニュアルを作成しています。構成としては各項目ごとでワークシートが別々になっており、各シートのセルA1に見出しの名前が入っています。

中身が完成したので、最後にこれら一覧として新しいシートに目次を作成するのですが、項目数がかなりたくさんあるので、直接入力しようとすると膨大な時間がかかります。

何か効率よく各シートセルA1に書かれてる内容の一覧を作成する方法はないものでしょうか？
(目次のシートセルA1に次のシートのセルA1を表示させて、セルA2に次の次のセルA1の値を表示させる。これの繰り返し)
何か関数とか使えれば楽な気がするのですが、目的の合う関数もわからない状態です＞＜
説明が下手でよく伝わらないかもしれませんが、わからないことがありましたら、遠慮なくコメント・回答をお願いします～。

では、ＶＢＡで
[Alt]+[F11]でＶＢＥ画面にして
左のリストから目次シートを(ダブル)クリックして右側に空白部分が表示されたら

Public Sub make_index()
Dim i As Integer
Dim cell As Range

Set cell = Range("A1")

For i = 1 To Sheets.Count
    If Sheets(i).Name <> "目次" Then
        cell.Offset(i - 1).Value = Sheets(i).Range("A1").Value
    End If
Next

End Sub

を貼り付ける
"目次" を実際の目次シートの名前に変更して
ツールバーの三角ボタン|>をクリックして実行する

シート名が単純に
Sheet1,Sheet2,…
のような数字で増加していく形式なら、
目次シートの
Ａ１に
=INDIRECT("Sheet"&ROW()&"!A1")
のように入力して、以下ドラッグします。

シート名に規則がないならＶＢＡを使うのが簡単かもしれません。