Excel 浅谈工作表目录制作的几种方法

Excel 批量生成目录

方法一：利用函数批量生成目录

可以批量生成目录，新建工作表后自动更新目录，涉及到的函数公式较难理解，不过可以直接套用，具体操作步骤如下：

1、“目录”工作表中选择B2单元格，菜单栏【公式】选项卡下面单击【定义名称】，弹出【新建名称】对话框，在“名称”文本框中输入“目录”。

2、在“引用位置”文本框输入以下公式：=INDEX(GET.WORKBOOK(1),ROW(A3))&T(NOW())，点击确定。

3、B2单元格输入公式：=IFERROR(HYPERLINK(目录&"!A1",MID(目录,FIND("]",目录)+1,99)),"")，将B2的内容向下复制，单击目录中的工作表名称，就会自动跳转到相应工作表。

4、每个工作表中插入“返回目录”按钮：选中除【目录】工作表外其他所有工作表，可以先选中【财务管理1班】工作表，然后按住Shift键，再点击最后一个【实习地点意向调查表】工作表，即可完成所有工作表选中。

然后在I1单元格中输入公式：=HYPERLINK("#目录!a1","返回目录")，按回车即可。

方法二：利用检查兼容性功能生成目录

此方法简单、易学，也不需要函数公式，具体操作步骤如下：

1、选中除【目录】工作表外其他所有工作表，可以先选中【财务管理1班】工作表，然后按住Shift键，再点击最后一个【实习地点意向调查表】工作表，即可完成所有工作表选中。在工作表靠后的单元格，也就是表格用不到的地方，输入公式：=MMM1

2、点击【文件】菜单，在信息页面下，点击【检查问题】-【检查兼容性】

3、在弹出的兼容性检查器窗口中，点击【复制到新表】

4、经过以上操作，生成一个【兼容性报表】，在E列自动生成了带链接的目录，

5、复制E列内容到新建的【目录】工作表下，然后按Ctrl+H快捷键打开查找与替换界面，将单元格中'!W26替换为空。

6、添加序号，美化表格，完成目录制作

方法三：VBA代码生成目录

1、按Alt+F11键调出VBA窗口，左侧的【工程-VBAproject】窗口选择【目录】工作表，单击鼠标右键选择【插入】---【模块】

2、右侧代码【窗口】录入以下代码，点击【运行】按钮，运行代码

3、运行代码后看到，工作表目录生成完毕。

具体VBA代码如下：

Sub ml()
   '关注点赞知乎号@知行合一（Yvain）
   Dim sht As Worksheet, i&, strShtName$
   Columns(1).ClearContents '清空A列数据
   Cells(1, 1) = "目录" '第一个单元格写入标题"目录"
   i = 1 '将i的初值设置为1.
   For Each sht In Worksheets '循环当前工作簿的每个工作表
      strShtName = sht.Name
      If strShtName <> ActiveSheet.Name Then
         '如果sht的名称不是当前工作表的名称则开始在当前工作表建立超链接
         i = i + 1 '累加工作表数量
         ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="", _
         SubAddress:="'" & strShtName & "'!a1", TextToDisplay:=strShtName
        '建超链接
      End If
   Next
End Sub
 

方法四：插件生成目录

利用插件的方法可以简单快速的完成工作表目录的制作，并且插件可以支持其他更多功能，
关于插件的下载安装问题，请参考文章office精灵三合一插件下载安装等问题
具体操作步骤如下：

1、打开菜单栏【E灵】下面【文件工具箱】，点击【创建工作表目录】

2、瞬间完成工作表目录的创建。