今天接到一个任务，要给一个excel目录页添加超链接，看起来容易，但是有一个问题在于，这个文档的目录有几百行，几百个sheet，如果手动进行关联这个工作量有点难以想象，堪比上青天！
好直接上操作步骤(以excel2016为例)，
打开需要操作的文档
打开文档中的开发者工具最左边的visual basic（如果找不到开发者工具，请查看我上一篇博客，看看如何设置）
选择你的文档还有你目录页的sheet
然后输入代码，最后执行代码就可以看到效果了
具体运行代码如下
'**********************************************'* 为目录生成超链接，链接到各个sheet中，注意不同的sheet，一般仅需要修改下面三个参数'* param source_colunm: 目录内容所在列'* param des_column: 新生成内容内容所在列，可以与目录内容所在列一致，效果是直接替换'* param content_sheet_name: 改为目录所在sheet的名称'**********************************************Sub createHyperLink() Dim sheetname, content_sheet_name, source_colunm, des_columnsource_colunm = "D" des_column = "E" content_sheet_name = "目录" For i = 2 To Sheets.Count sheetname = Sheets(content_sheet_name).Cells(i, source_colunm).Value ' Sheets(content_sheet_name).Cells(i, des_column).Value = "=HYPERLINK(""#" & sheetname & "!A1"",""" & sheetname & """)"NextEnd Sub