一键制作目录，Excel里的表再多也不怕！

一键制作目录，Excel里的表再多也不怕

起因

前几天有个做中药贸易的小伙伴找我诉苦，他卖的中药品种有一千多个，他把每种中药都作为一个单独的sheet放到Excel表里去管理，也就是说他的一个Excel表里有一千多个sheet，因此想定位到某个sheet非常麻烦，所以他希望我能帮他做一个目录，可以快速的找到想要的sheet。

实现效果和代码

我推荐他使用数据库去管理这些数据，但他还是觉得Excel亲切，我只好又建议他做一个Excel目录来链接到各个sheet，他觉得这个不错，所以让我帮他做了一个，实现效果如下：

具体实现代码如下：
Sub sheetlist()
Dim Sheet As Worksheet
Dim SheetNo As Integer
SheetNo = 0
For Each Sheet In Worksheets
If Sheet.Name <> “目录” Then
SheetNo = SheetNo + 1
'将列表序号赋值到第一列
Cells(SheetNo + 1, 1) = SheetNo
'将列表名称赋值到第二列
Cells(SheetNo + 1, 2) = Sheet.Name
'增加超链接
Worksheets(“目录”).Hyperlinks.Add Cells(SheetNo + 1, 2), “”, Sheet.Name & “!A1”
Sheet.[a1].Value = “返回目录”
Sheet.Hyperlinks.Add Sheet.[a1], “”, “目录!A1”
End If
Next
End Sub

上述一键生成