用VBA做个目录管理你的工作表！

前面章节我们讲过了利用VBA创建一个目录，可以打开指定的各个工作簿。

工作簿目录

也讲过利用兼容性检查来给工作表做个目录

工作表目录

今天我们学习下如何用VBA来创建目录。

如下图，一个工作簿中有很多工作表，通过点击创建目录，瞬间就生成了一个目录。

代码如下：

Sub mulu()

Dim ws As Worksheet, n%

For Each ws In Worksheets

    If ws.Name <> '首页' Then

    n = n 1

    Cells(n 3, 4) = ws.Name

    Worksheets('首页').Hyperlinks.Add Cells(n 3, 4), '', ws.Name & '!A1'

    ws.[a1].Value = '返回目录'

    ws.Hyperlinks.Add ws.[a1], '', '首页!d3'

    End If

Next

End Sub

这种做法的好处在于，不管你添加多少个明细表都能一次性生成目录，而且别的工作簿中需要创建目录时直接复制代码过去，运行就可以了！

视频教程正在陆续录制中，进入公众号后台菜单中可了解详情！