Question

excel里一个工作簿里的工作表太多了，怎么添加工作表的目录表

Answer 1

http://zhidao.baidu.com/question/584599915.html?fr=iks&word=Excel+%C4%BF%C2%BC&ie=gbk
我参考上面的答案！
打开要创建目录的EXCEL文件--------Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中
Sub mulu()On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)End IfNext iIf Sheets(1).Name < "目录" Then
ShtCount = ShtCount + 1
Sheets(1).SelectSheets.AddSheets(1).Name = "目录"End IfSheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待！"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
Sheets(i).Name & "!R1C1", TextToDisplay:=Sheets(i).NameNextSheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True

Answer 2

http://jingyan.baidu.com/article/414eccf6681ddf6b431f0aea.html
这里有一步一步说明如何设置目录,看看吧,希望对你有用!