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。
本文就讲到这里，希望大家会喜欢。
