EXCEL 文档自动生成目录

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

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

Sub createmulu()

'自动在第1列生成标签名

For i = 1 To Sheets.Count

Cells(i, 1) = Sheets(i).Name

Next

'自动生成链接

For i = 2 To Sheets.Count

Cells(i, 2) = "=HYPERLINK(""#""&A" & i & "&""!A1"",A" & i & ")"

Next

End Sub

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