经验直达：
- 请问excel怎样生成目录
- excel如何快速制作目录
一、请问excel怎样生成目录
【excel如何快速制作目录 请问excel怎样生成目录】有两种情况吧 。第一种您的表很少时 。自己建一个目录表 ， 挨个添加链接 。主要就是在最前面插入一张表 。选中一个单元格 ， 点插入-超级链接-本文档中的位置-选中一个表 。对应的目录就建好了 。以此类推 。。。。
第二种情况是表很多，很难一个个的加是就按住ALT F11出来一个表，点插入-模板 ， 将下面的代码输入进去 。然后按F5 ， 再关闭文件 。。去看看原来的表就有一个目录了 。
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 = ShtCount1
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 = True
Tuichu:
End Sub
二、excel如何快速制作目录
打开excel工作簿 ， 点击“公式”下的“名称管理器”，接着点击“新建” 。
输入名称“我的目录”，和引用位置“=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())”，点击“确定” 。
这样就会返回名称管理器窗口，并可以在窗口中看到该名称 ， 关闭该名称管理器窗口 。
在单元格中输入公式“=IFERROR(HYPERLINK(我的目录&"!A1",MID(我的目录,FIND("]",我的目录) 1,50)),"")” 。
向下填充公式，这样就可以得到工作簿中所有的工作表名称，且每个名称下都有链接 。
将步骤5得到的目录复制到每个工作表下，这样就可以在各个工作表中任意切换目录了 。
最后，一定要将excel文件保存为“Excel启用宏的工作簿(*.xlsm）” 。