EXCEL 文档自动生成目录

excel 文档一般都有很多sheet, 需要在sheet1 上面做一个目录，方便快速打开对应的sheet，但是excel没有自动生成的功能，研究了一下excel的开发工具，用vb命令来实现这个功能。

首先把sheet1名字改为目录，然后alt+f11 打开VB编辑器，点击插入-》模块，在模块中输入：

Subcreatemulu()

'自动在第1列生成标签名 Fori=1ToSheets.Count Cells(i,1)=Sheets(i).Name Next

'自动生成链接 Fori=2ToSheets.Count Cells(i,2)="=HYPERLINK(""#""&A"&i&"&""!A1"",A"&i&")" Next

EndSub

F5执行模块,就可以看到 第1列生成标签名，第二列为链接。