如何在EXCEL中生成目录

Question

如题所述

Answer 1

工具\材料

excel表格

方法如下

1、首先打开excel表格，依次点击“公式”、“名称管理器”，然后选择“新建”选项。

2、按下图提示输入目录名称点击“确定”选项。

3、接着关闭名称管理器窗口。

4、按照下图所示输入图中的公式，并点击确定。

5、双击鼠标向下填充公式，可以得到所有工作表的名称。

6.最后保存文件即可。

Answer 2

有两种方法：
1、用宏函数取出各工作表的名称，方法：

Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)

确定

2、用HYPERLINK函数批量插入连接，方法：

在目录工作表（一般为第一个sheet）的A2单元格输入公式：=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))

将公式向下填充，直到没有数据为止，目录就生成了 。

Answer 3

打开一个excel工作簿，我这里就新建一些工作表来举例，如图。

在第一个工作表上点击鼠标右键，选择插入命令，然后重命名为【索引目录】。

点击选中【索引目录】工作表中的B1单元格，然后点击菜单【公式】中的定义名称。

在弹出的定义名称窗口中输入名称【索引目录】，然后在引用位置文本框输入公式 =INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW()) ，最后点击确定。

点击B1单元格，输入公式=IFERROR(HYPERLINK(索引目录&"!A1",MID(索引目录,FIND("]",索引目录)+1,99)),"") 确定后拖拽快速填充下方单元格。
现在目录索引建立完毕，单击需要的章节即可直接跳转到工作表。

Answer 4

打开要创建目录的EXCEL文件--------Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中Sub mulu()On Error GoTo TuichuDim i As IntegerDim ShtCount As IntegerDim SelectionCell As RangeShtCount = Worksheets.CountIf ShtCount = 0 Or ShtCount = 1 Then Exit SubApplication.ScreenUpdating = FalseFor i = 1 To ShtCountIf Sheets(i).Name = "目录" ThenSheets("目录").Move Before:=Sheets(1)End IfNext iIf Sheets(1).Name < "目录" ThenShtCount = ShtCount + 1Sheets(1).SelectSheets.AddSheets(1).Name = "目录"End IfSheets("目录").SelectColumns("B:B").Delete Shift:=xlToLeftApplication.StatusBar = "正在生成目录…………请等待！"For i = 2 To ShtCountActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _Sheets(i).Name & "!R1C1", TextToDisplay:=Sheets(i).NameNextSheets("目录").SelectColumns("B:B").AutoFitCells(1, 2) = "目录"Set SelectionCell = Worksheets("目录").Range("B1")With SelectionCell.HorizontalAlignment = xlDistributed.VerticalAlignment = xlCenter.AddIndent = True.Font.Bold = True本回答被提问者采纳

Answer 5

在同一工作簿做超链接：
1把每个工作表标签重命名与目录相同的名字。
2右键点击目录的物品名称一点超连接一点书签（插入超连接对话框右则中上方）里面与之相同的品名一确定一再确定上。以此类推。。。
如果不在同一工作簿做超链接，只需要找到路径，其他别的方法都一样。