一键制作目录,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), “”,