如何对一个工作薄中多个表格生成目录并建立链接？

知识点

---

宏表函数get.workbook、分列、hypelink函数

难题背景

---

从同事那边得到一份Excel公式学习的资料，是一份表格，里面有82个表格。从第一个sheet点到最后一个表格需要很长的时间，也不利于查找学习，于是想新增一个目录表格，放在第一位，然后从目录中可以直接跳转到想要的表格，并可以从当前的表格跳转到目录。 

思路

---

1. 首先要把所有表格的名字全部复制到目录页当中，并且按照列排序。

2. 其次要根据表名进行链接到sheet。

3. 要设置每一个表格都有回到目录页的功能。

复制所有表格名字：

把所有的表格名字全部复制到目录页当中，并按照列排序（可以用VBA，也可以用宏表函数，本文用的宏表函数）

---

1. 建立宏表公式

书写宏表函数

公式----定义名称---输入名称----输入宏表公式。

2. 应用宏表公式

=INDEX(get,ROW(A1))  

在某一个单元格中输入以上公式，就会得到第一个sheet的名字，然后下拉到出现错误为止

一直下拉到出现错误

3. 分列（只需要表名，不需要工作簿名）

分列

4. 得到结果

得到所有表格的名称

根据表名链接表格

---

=HYPERLINK("#"&E2&"!A1",E2)

在表名单元格旁边输入以上公式，就能链接到该表格。

链接表格

设置回到目录功能

---

=HYPERLINK("#目录!A1","目录")

在各个表格某一个显眼的单元格中输入这个公式，就能随时调整到目录。