<146>一键制作目录，省事至极（给你的工作表们做个目录方法之五）

工作簿中的工作表太多了，鼠标滚来滚去的让人眼花缭乱，那就给工作表们做个目录吧，点击目录就可以自动跳转，方便多了。

5、一键制作目录，省事至极

今天给大家分享的是：一键制作目录，省事至极

代码如下，直接复制到模块里就可以了。

Public Sub 生成目录() Worksheets.Add(before:=Sheets(1)).Name = "目录" i = 1 For Each sht In Worksheets Sheets("目录").Cells(i, 1) = i Sheets("目录").Cells(i, 2).FormulaR1C1 = "=HYPERLINK(""#'" & sht.Name & "'!A1"",""" & sht.Name & """)" i = i + 1 NextEnd Sub

有任何疑问，请带着excel文件来提问。泛泛提问，可能得不到有效回答。

‍