点击上方

“中税网”

可关注我们！

Excel工作薄中的工作表有很多，想要做一个目录索引方便快速查找，该怎么制作呢？

1、打开一个Excel工作簿，我这里就新建一些工作表来举例，如图。

2、在第一个工作表上点击鼠标右键，选择插入命令，然后重命名为【索引目录】。

3、点击选中【索引目录】工作表中的B1单元格，然后点击菜单【公式】中的定义名称。

4、在弹出的定义名称窗口中输入名称【索引目录】，然后在引用位置文本框输入公式 =INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW()) ，最后点击确定。

5、点击B1单元格，输入公式=IFERROR(HYPERLINK(索引目录&"!A1",MID(索引目

录,FIND("]",索引目录)+1,99)),"") 确定后拖拽快速填充下方单元格。

6、现在目录索引建立完毕，单击需要的章节即可直接跳转到工作表。

Excel技巧精选

Excel中建立工作表目录，快速跳转到指定工作表（一）

如果领导给了你一张300多人的名单表，让你根据名单，对应每个人建立一张工作表，并且里面填上人员的详细信息，你是怎么去制作的呢？又如再给领导交演示你做的表格时，该如何快速找到某一个人工作表呢？今天呢，就由我来给大家分享其中一种方法，来让大家在领导面前展现风采！

具体操作步骤

第一步：新建一张工作表。在这300多个工作表之前新建一个工作表，命名为目录。

第二步：设置名称管理器。公式→名称管理器→新建→名称→引用位置→确定。在建的名称管理器中名称位置输入目录二字，在引用位置输入公式=INDEX(GET.WORKBOOK(1),ROW(目录!A1)&T(NOW()))；

第三步：编辑栏输入公式。编辑栏输入公式=IFERROR(HYPERLINK(目录&"!A1",MID(目录,FIND("]",目录)+1,99)),"")。

第四步：快速填充。下拉填充，就会发现所有的工作表名称都会出现在目录工作表单元格内（内容都会变为蓝色，蓝色的就是超链接奥）

第五步：检验。单击目录工作表里面的工作表名称，就会跳转到相对应的工作表。

其实这张表的制作中包含了很多的东西，比如怎么去批量建立这300多张工作表，又怎么去批量填充每个人的具体信息等等！

这就是文件目录的制作全过程，你学会了吗？如有不懂之处，欢迎留言讨论！

接下来还会分享方法（二）、（三）和（四）（只有四适用WPS），期待你的关注和转发分享，更多精彩内容在持续更新中.............

往期精彩文章：

工作表被保护了，打不开怎么办？一招破解其密码

醒醒吧！VLOOKUP的时代马上要过去了，她才是真正的万能查找函数

电脑秘诀：Word哥放大招了！内容被保护限制复制和编辑，怎么办？

Excel或Word未点击保存或异常关机怎么办，不用怕，一招恢复文件

所谓抽奖，背后其实是这样操作的，你不中奖其实很正常！

在电子表格中，如下代码可建目录列表

注意

目录工作表中提取各工作表名称

其余工作表第一个单元格显示返回目录

所有工作标字体，列宽，视图比例大小设置

其中用到FOR NEXT语句，用到单元格链结，用到COPY方法。

代码如下：

Sub 生成目录链接()

Dim i As Long

For i = 1 To Sheets.Count

Sheets(i).Columns.Clear

Sheets(i).Hyperlinks.Add Anchor:=Cells(i, 1), Address:=ActiveWorkbook.Name, SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name

Next

For j = 1 To Sheets.Count - 1

Sheets(j).Cells(1, 1).Copy Sheets(j + 1).Cells(1, 1)

Sheets(j + 1).Cells(1, 1).Hyperlinks(1).TextToDisplay = "返回目录"

Range("A1").Font.Underline = xlUnderlineStyleNone

Range("A1").Activate

For k = 1 To Sheets.Count

With Sheets(k).Columns.Font

.Name = "宋体"

.FontStyle = "加粗"

.Size = 23

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorHyperlink

.TintAndShade = 0

.ThemeFont = xlThemeFontNone

End With

Sheets(k).Select

ActiveWindow.Zoom = 100

Columns.EntireColumn.AutoFit

Sheets("目录").Activate

Cells(1, 1).Font.Color = 255

ThisWorkbook.Save

End Sub

我们都知道，

在WORD中自动创建目录非常简单。

但EXCEL却未提供现成的“生成目录”功能。

那么，EXCEL也可自动创建目录吗？

答案是肯定的！

下面，我们就通过几行简单的代码，实现自动生成目录。

视频演示前，特对本示例说明如下：

1.本示例由目录工作表和多个供应商工作表组成；

2.目录工作表由序号、供应商名称、已开票欠款总计列组成。通过点击“读取数据”按钮，会从各个供应商工作表中取数，并在供应商名称列生成超链接，点击该链接会自动跳转到对应的供应商工作表。

3.供应商工作表中包括采购金额、采购发票和付款金额3个小计行，对应单元格分别为C2、E2和G2。另外还包括供应商名称、期初欠款和欠款总计3个数据区域，对应单元格分别为B1、E1和G1。

4.添加一新供应商工作表时，须通过复制工作表的方式进行（选择一供应商工作表，按Ctrl键拖动鼠标左键）。

演示效果如下：

制作过程

1.创建供应商工作表

①设计供应商工作表，其内容和格式如下图（本步操作不再演示）。

其中：

C2单元格公式为：=SUM(C4:C10000)

E2单元格公式为：=SUM(E4:E10000)

G2单元格公式为：=SUM(G4:G10000)

G1单元格公式为：=E1+E2-G2

②在J2单元格输入“返回”，创建超链接，链接至目录页。

供应商工作表制作完毕后，其效果如下：

2.创建目录工作表

①按下图要求设计工作表格式（本步操作不再演示）。

②添加一按钮控件，显示文字为“读取数字”，并输入宏代码如下：

'清除区域内容

Range("A2:C10000").ClearContents

'从第2个工作表开始循环操作

For i = 2 To Sheets.Count

'生成目录

Cells(i, 1) = i - 1

Cells(i, 2) = Sheets(i).Cells(1, 2).Value

Cells(i, 3) = Sheets(i).Cells(1, 7).Value

'生成超链接

t = Cells(i, 2)

Cells(i, 2).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Sheets(i).Name & "!B1", ScreenTip:="查看明细", TextToDisplay:=t

Next

经过上述几部操作，现已大功告成！让我们来看看最终效果吧。

PS：本示例是根据一朋友所需，并根据他提的要求，为其“量身定做”的表格。表格设计合理与否，且不讨论。本文主要目的是通过制作该示例，演示如何从分表中提取数据。

工作中常常会遇到一些特殊情况，一个Excel工作簿中可能会有几十，或者上百个工作表。

这么多工作表存在一个Excel表中，该如何快速定位到特定的表格呢？如果能有一个工作表目录真是太方便了！

最常见的方法，要定义名称 + 长长的让人很难记住的Excel公式。制作这个目录对新手还是有点难度。

定义名称：Shname =MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(NOW())在目录表中任一单元格输入并复制以下公式=IFERROR(HYPERLINK("#'"&INDEX(Shname,ROW(A1))&"'!A1",INDEX(Shname,ROW(A1))),"")

这里分享一个非常简单的Excel目录制作方法（适合2003以上版本）

操作步骤：

1、输入公式

全选所有表，在前面添加一空列。然后在单元格A1中输入公式 =xfd1

注：这个方法的原理是输入让03版无法兼容的公式（03版没有XFD列），然后检查功能诱使Excel把所有工作表名列出来。

2、生成超链接列表

文件 - 信息 - 检查兼容性 - 复制到工作表，然后Excel会插入一个内容检查的工作表，并且在E列已自动生成带链接的工作表名称。

3、制作目录表

把带链接的工作表名称列表粘贴到“主界面”工作表中，替换掉'!A1，稍美化一下，目录效果如下：

4、制作返回主界面的链接

全选工作表 - 在任一个表的A1输入公式（会同时输入到所有表中）

=HYPERLINK("#主界面!A1","返回主界面")

注:HYPERLINK函数可以在Excel中用公式生成超链接

完工！如果以后新增了表格，手工添加校新表超链接也不麻烦，如果想完全自动，可以使用本文开头所介绍的使用宏表函数创建目录。

excel默认情况下可以创建256张工作表，一般很多企业都会在一个工作簿中创建很多工作表，但是我们在查找这些工作表的时候非常浪费时间，我们可以利用excel工作表目录工具创建目录，excel工作表目录工具就是利用excel自有的功能来创建excel目录。

1、设定Excel的宏安全性：

因为此目录表中引用了宏表函数4.0中相关的公式，因此需要大家将宏的安全性设定为中或低，如下图所示：

工具-----宏-------安全性--------设定为中或者低，保存后并关闭Excel。

图1

2、打开附件中的工具表格，如安全性设置为“中”的话，会提示如下图，请选择“是”。

将附件中的目录整张移动到所需建立目录的工作表中，如下图所示，将附件工具表中“目录”这张表移动到所需“国内10月”的表格中的最前面。

图2

图3

图4

3、如下图所示，目录移动到相应excel工作表后就会将该工作中所有的sheet以列表的形式显示出来，然后点击后面的“定位”即可自动链接到相应的表格。

图5

我们通过excel里面自有的excel工作表目录工具创建了一个很好很实用的目录，很多朋友可能会问目录在哪里呢，其实目录就是excel的功能这个工具并不存在的。

日常工作中，一个项目的文件往往会有很多个，在Excel中制作一个项目文件目录，可以快速方便的查看不同的文件。

如下图所示，就是一个项目文件夹内的所有文件：

接下来，先提取文件名称。

如果文件比较少，可以直接输入到Excel文档中，但是如果文件比较多，就要想想办法了。

在需要提取文件名称的文件夹内，新建一个记事本文档，输入下面的内容后保存：

DIR *.* /B >目录.TXT

将记事本文档的后缀名.txt 修改为.bat

然后双击这个文件，就会得到一个名为“目录”的记事本文件。

这样就可以将目录中的文档名复制到Excel文档中了。

然后在B1单元格输入公式，建立超链接：

=HYPERLINK("D:\一期工程文件\"&A1,A1)

具体操作时，公式中的"D:\一期工程文件\"部分，要换成实际的磁盘位置和文件夹地址。

OK，项目文件目录制作完毕，单击超链接，即可打开对应的文件哦。

Excel工作簿Sheet一多是否一团乱麻？超链接设置目录点坏鼠标？不用VBA，Excel也能自动生成目录!

废话不多说，先看效果:

怎么实现呢？轻松三步轻松实现!

首先，定义一个名称：

SheetsName=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(NOW())

第二步，输入以下函数（目录一般在A列哦）：

=IFERROR(HYPERLINK("#'"&INDEX(SheetsName&"'!A1",ROW(1:1)),INDEX(SheetsName,ROW(1:1))),"")

第三步，将目录复制到每个sheet就完成啦，按住shift键可以选择多个sheet一步复制哦！

这个目录还能自动更新哦，新建了sheet也能自动更新，再也不用使用超链接一个一个点啦!

下面详细解析一下实现原理！

首先：GET.WORKBOOK(1) 提取工作表名称，得到工作表的名称数组。（GET.WORKBOOK(1) 是宏表函数，只能定义名称时使用）

定义名称 Sheetlist=GET.WORKBOOK(1)

然后，用Index获取第N个名称，=INDEX(SheetList,ROW(1:1))

然后，用Mid+Find组合提取工作表名称：=MID(L2,FIND("]",L2)+1,99)

然后，用“&”连接符组合成位置引用形式：="#'"&M2&"'!A1"

然后用HYPERLINK函数加入超链接，Iferror函数排错：=IFERROR(HYPERLINK(N5,M5),"")

最后，修改文字和填充颜色就完成啦！

PS：若有疑问欢迎留言一起探讨哦！

平时都和大家分享了很多关于Excel方面的使用技巧，之前有个群友问到一个这样的问题！

主要是想实现自动获取工作表名，而且要链接到对应的工作表，之前有和大家分享过超链接函数HYPERLINK。但是用函数的话是不能满足这个群友问的问题，只能一个个去链接操作，那么今天关于这个问题为大家分享一个使用技巧吧！

第一步：我们先在Excel工作薄的前面新建一个工作表，命名为Excel技巧目录

这个工作薄里面包含了很多张工作表，

第二步：定义名称

把光标放在对应B1单元格，然后选择公式下方的定义名称。在引用位置书写如下的函数，

=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())然后点击确定即可。

第三步：然后在B1单元格编辑函数

在B1单元格中输入这样的函数：=IFERROR(HYPERLINK(索引目录&"!A1",MID(索引目录,FIND("]",索引目录)+1,99)),"")，然后往下填充就可以获得相应的工作表标题了！

而且点击后也能实现对应工作表的链接！

最后可以按照直接的想法去美化设置一下，一个完美的Excel目录就完成了！

希望这篇文章能帮助到大家！

作者：小菜，一个热爱学习的人，对Excel情有独钟的人，一个善于终结分享的人……

如果你是新朋友，扫码关注下方二维码，便每天可以和小菜一起学习，一起提升技能！当然大家也可以关注技巧分享，学习更多办公技巧哦！

每天一起学习，一起进步。

1.图片增加或减少，如何能反应到Excel中？

01在文件夹增加图片，效果如动画。

02 在文件夹减少图片，效果如动画。

Step01 新建一个工作簿，单击数据→新建查询→从文件→从文件夹。

Step02 浏览到文件夹的存放的位置，单击确定按钮。

Step03 在弹出来的对话框中保持默认不变，单击编辑按钮。

Step04 只保留.jpg格式，并删除不需要的列。

Step05 单击关闭并上载，就完成了提取。

Step06 设置超链接公式，这样就完成了，文件夹有更新，就刷新一下表格，搞定。

2.如何提取工作表名称，创建目录？

Step01 新建一个工作簿，单击数据→新建查询→从文件→从工作簿。

Step02 浏览到指定的工作簿，单击导入。

Step03 单击工作簿这样就默认将所有工作表选中，再单击编辑。

Step04 删除不需要的列，关闭并上载就完成了导入工作表名称。

Step05 设置超链接公式，这样就完成了。

=HYPERLINK("#"&[@Name]&"!A1","打开")

[@Name]其实只要引用表格的单元格自然就会出现，也可以直接手工写实际单元格A2。

最后，希望看文章的你，用点心思学习。