​​Excel技巧，运用Excel-vba快速生成工作表目录！

在日常工作中，Excel工作簿中会有很多工作表，建立一个目录方便进行工作表管理，下面分享一个用vba快速生成工作表目录的方法。

如下图，工作簿中共有以下7个工作表，现在开始建立工作表目录。

1.打开vba编辑器

右键单击任意工作表，选择“查看代码”。

2.输入代码

点击"ThisWorkbook"，在代码窗口中输入以下代码：

Public Sub Hyperlink()

Dim ws As Worksheet

Dim sh As Worksheet, i%

On Error Resume Next '如遇错误继续运行

Application.DisplayAlerts = False '禁用警告提示

Worksheets("目录").Delete '删除原目录工作表

Set ws = Worksheets.Add(before:=Sheets(1)) '新建工作表

ws.Name = "目录" '新建工作表命名为目录

i = 1

For Each sh In Sheets: '遍历所有工作表

If sh.Visible <> 0 Then '判断工作表是否隐藏

'建立目录

ws.Hyperlinks.Add Anchor:=ws.Cells(i, 1), Address:="", SubAddress:="'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name

sh.Hyperlinks.Add Anchor:=sh.Range("K1"), Address:="", SubAddress:="目录!A1", TextToDisplay:="目录" 'range("K1")可调整至合适的位置

i = i + 1

End If

Next

Application.DisplayAlerts = True '恢复警告提示

MsgBox "目录已生成"

End Sub

3.运行程序

点击绿色三角形或按F5，运行程序。

程序运行成功后，会弹出对话框，显示消息如下：

4.查看结果

注：若希望代码在下次打开工作簿时可以继续使用，需将工作簿另存为97-2003工作簿或启用宏的工作簿。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

学习资料见知识星球。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！

更多技巧， www.excelbook.cn

欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；