Excel自动生成目录图解详细教程，通过以下步骤，您可以使用按钮和VBA代码获取Excel工作簿中的所有工作表，并生成如下图所示的目录列表，单击即可。
Step01: 依次点击鼠标，打开VBA编程窗口
步骤02: 如下图所示，在新打开的窗口左侧双击Sheet1，在右侧窗口中输入代码（由step03提供）。
步骤03: 复制并在右侧窗口中输入VBA代码如下：
选项显式
SubCreate_TOC()
调暗wbBook 作为工作簿
调暗wsActive 作为工作表
调暗wsSheet 作为工作表
行内变暗只要
变暗页面长度
变暗lnCount As Long
设置wbBook=ActiveWorkbook
有申请
.DisplayAlerts=False
.ScreenUpdating=False
结束于
'如果目录表已存在，请将其删除并添加新的
'工作表。
出错时继续下一步
与wbBook
.工作表（目录）.删除
.Worksheets.Add Before:=.Worksheets(1)
结束于
出错时转到0
设置wsActive=wbBook.ActiveSheet
使用wsActive
.名称=目录
带.范围(A1:B1)
.Value=VBA.Array(工作表名称， order # - # 它包含多少页)
.Font.Bold=True
结束于
结束于
行数=2
计数=1
'迭代工作簿中的工作表并创建
'sheetnames，添加超链接并count写入流水号
'TOC 表中每张表要打印的页数。
对于wbBook.Worksheets 中的每个wsSheet
如果wsSheet.Name wsActive.Name 那么
wsSheet.Activate
使用wsActive
.Hyperlinks.Add .Cells(lnRow, 1), _
SubAddress:='wsSheet.Name'!A1,_
TextToDisplay:=wsSheet.名称
lnPages=wsSheet.PageSetup.Pages().Count
.Cells(lnRow, 2).Value=' lnCount - lnPages
结束于
行数=行数+ 1
ln 计数=ln 计数+ 1
万一
下一个wsSheet
wsActive.激活
wsActive.Columns(A:B).EntireColumn.AutoFit
有申请
.DisplayAlerts=True
.ScreenUpdating=True
结束于
结束子
Step04: 关闭打开的VBA编辑窗口，依次单击鼠标，拖动绘制工作表的工作区域，会自动弹出指定的宏对话框。选择后，单击“确定”按钮。
最后，单击按钮自动生成带有目录的新工作表
Excel自动生成目录图解详细教程，以上就是本文为您收集整理的Excel自动生成目录图解详细教程最新内容，希望能帮到您！更多相关内容欢迎关注。
