excel宏批量生成目录超链接

冷不防 2024-04-17 21:32 73阅读 0赞

继续上一篇https://blog.csdn.net/whandgdh/article/details/100184529合并多个工作簿，后我们需要在创建目录，并通过目录超链接到工作表。  
示列excel如下  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70]

我们要在目录中名字链接到工作表中，第一步需要获取工作簿中所有工作表的名字  
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编程区里面如下图

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 1]  
运行后结果如下：

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 2]  
step 2 通过 HYPERLINK生成超链接  
在目录中B2单元格输入下面函数

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

![在这里插入图片描述][20190901163931159.png]  
然后只需向下填充即可  
![在这里插入图片描述][20190901164249687.png]  
我们只需要把A例隐藏即可。  
最后为了保存方便还需删除宏。再保存  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 3]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/8dcf0da1ee854247b26e337a82e3954b.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 1]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/612e65eabac74360a64d5f98a5ee1430.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 2]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/7c39fa8249a241dfb862ea94fbb18f6b.png
[20190901163931159.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/11fde3bcc2a0493e82fe1baa9e3360f4.png
[20190901164249687.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/b8493423d3fc45c4917ddf59af9f09f0.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 3]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/2843a290c87e43e4a10da4429d1e261f.png