excel宏批量生成目录超链接

继续上一篇https://blog.csdn.net/whandgdh/article/details/100184529合并多个工作簿，后我们需要在创建目录，并通过目录超链接到工作表。
示列excel如下

我们要在目录中名字链接到工作表中，第一步需要获取工作簿中所有工作表的名字
step 1、获取工作簿所有工作表名字
vba 代码如下：

Sub 获取工作表名称() Dim k As Integer For k = 2 To Sheets.Count Cells(k, 1) = Sheets(k).Name Next End Sub

for k=2 表示从工作簿的第二个工作表开始

进入目录中代码界面，并把代码复制到vba编程区里面如下图

运行后结果如下：

step 2 通过 HYPERLINK生成超链接
在目录中B2单元格输入下面函数

=HYPERLINK("#"&A2&"!A1",A2) ”#” 表示引用的工作表名在当前工作簿中 ”!A1” 表示链接到对应工作表的A1单元格, HYPERLINK第二个参数A2表示以工作表名称命名超链接。

然后只需向下填充即可

我们只需要把A例隐藏即可。
最后为了保存方便还需删除宏。再保存