excel批量生成超链接(VBA代码)

今天接到一个任务，要给一个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_column

source_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 & """)"
Next

End Sub