excel2003生成目录索引（excel生成目录索引）

大家好,小东方来为大家解答以上的问题。excel2003生成目录索引，excel生成目录索引这个很多人还不知道,现在让我们一起来看看吧！

1、有两种情况吧。

2、第一种您的表很少时。

3、自己建一个目录表，挨个添加链接。

4、主要就是在最前面插入一张表。

5、选中一个单元格，点插入-超级链接-本文档中的位置-选中一个表。

6、对应的目录就建好了。

7、以此类推。

8、第二种情况是表很多，很难一个个的加是就按住ALT+F11出来一个表，点插入-模板，将下面的代码输入进去。

9、然后按F5，再关闭文件。

10、去看看原来的表就有一个目录了。

11、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 If Next i If Sheets(1).Name <> "目录" Then ShtCount = ShtCount + 1 Sheets(1).Select Sheets.Add Sheets(1).Name = "目录" End If Sheets("目录").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).Name Next Sheets("目录").Select Columns("B:B").AutoFit Cells(1, 2) = "目录" Set SelectionCell = Worksheets("目录").Range("B1") With SelectionCell .HorizontalAlignment = xlDistributed .VerticalAlignment = xlCenter .AddIndent = True .Font.Bold = True .Interior.ColorIndex = 34 End With Application.StatusBar = False Application.ScreenUpdating = TrueTuichu:End Sub。

本文到此分享完毕，希望对大家有所帮助。

免责声明：本文由用户上传，如有侵权请联系删除！