EXCEL使用技巧：[4]自动生成目录-Excel教程

EXCEL中有个属性叫sheet页，有时候我们会在一个EXCEL文档中建很多个sheet页，这种情况下查找某个sheet页有可能会不太方便。本文将介绍一种很简答、直观的方法：建立一个目录

前期准备工作（包括相关工具或所使用的原料等）

EXCEL

详细的操作方法或具体步骤

一、文档说明

以下面文档为例， 共有16个sheet页，其中sheet2~sheet16是有内容的，sheet1作为目录页

修改sheet1，使其作为目录页

二、写VBA处理

首先打开VBA开发环境（其实就是打开"开发工具"->"Visual Basic"），此处略去不说，如果没有"开发工具"，百度吧，调出方法一堆一堆的。

其次，复制以下代码到开发环境

Sub getAllWorkSheets()

' 得到所有的sheet页名称，并加上超连接

totalNum=Worksheets.Count

Sheet1.Activate

Range("B:B").Select

Selection.NumberFormatLocal="@"

' 从2开始就是不带“目录”Sheet页，如果要带，则从1开始

For index_i=2 To totalNum

sheetName=Worksheets(index_i).Name

Cells(index_i, 2)=sheetName

tar_sheet="'" & sheetName & "'"

Cells(index_i, 2).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=_

tar_sheet & "!A1", TextToDisplay:=sheetName

Next index_i

Sub

其中第四行的 Sheet1 需灵活设定。

复制上述代码后

如果第四行不是Sheet1，打开此处查看Sheet名称，方式如下：

打开 视图->工程资源管理器 然后查看，参考图

这里目录页是Sheet1

三 运行VBA

在复制的代码中按 “F5”,或者在工具栏点击绿色三角，"运行子过程/用户窗体"

最后，打开"目录"sheet页，OK，搞定

EXCEL使用技巧(共4篇)上一篇：宏与VBA妙用（颜...经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。