Excel内の1つ1つの項目を拾い目次化するには？

質問

よろしくお願いします。

Excel2007(or2003)で作成した文章があり、
1つのBook内に複数のシートがあります。

各シート名を拾い、目次化するマクロはいくつか
Googleで検索して見つけたのですが、
各シート内に記載されている1つ1つの項目を拾って
目次を作成する方法はないものでしょうか？
あまりに大量の文章であるため、困っています。
なお、そういったマクロは見つかりませんでした・・・。
自身で作成しようと試みましたが、私にはハードルが高すぎるようです。

ぞうぞ、アドバイス・ヒントなど御座いましたらよろしくお願いします。

回答No.5

n-jun · ベストアンサー

ANo.4です。
今一つ自信はありませんが。

まずファイルをコピーしておいて下さい。
次にテストするファイルに”目次”という名前でワークシートを作成して下さい。
目次したいセルデータは
・"1."と言うように数字＋"."で始まるデータである。
・または"1-"と言うように数字＋"-"で始まるデータである。
・上記は必ず半角である。
事が条件です。

Sub　Test()
　Dim　RegExp　As　Object
　Dim　ws　As　Worksheet,　M_ws　As　Worksheet
　Dim　rs　As　Range
　Dim　i　As　Long

　Set　M_ws　=　Worksheets("目次")
　Set　RegExp　=　CreateObject("VBScript.RegEXp")
　RegExp.Pattern　=　"^\d+[.-][^()]"

　For　Each　ws　In　Worksheets
　　　　　If　ws.CodeName　<>　M_ws.CodeName　Then
　　　　　　　　With　ws
　　　　　　　　　　　　　For　Each　rs　In　.Range(.Range("B1"),　.Cells(Rows.Count,　4).End(xlUp))
　　　　　　　　　　　　　　　　　If　RegExp.Test(rs.Value)　Then
　　　　　　　　　　　　　　　　　　　　i　=　i　+　1
　　　　　　　　　　　　　　　　　　　　M_ws.Cells(i,　rs.Column).Value　=　rs.Value
　　　　　　　　　　　　　　　　　End　If
　　　　　　　　　　　　　Next
　　　　　　　　End　With
　　　　　End　If
　Next
　Set　M_ws　=　Nothing
　Set　RegExp　=　Nothing
End　Sub
試してみて下さい。

お礼

アドバイスありがとうございます。
見事に、目次ができました。
非常に助かりました。本当にありがとうございます。