问题分析

应用场景：

一个比较大的项目，存在很多项目文件，大多为Excel文件，而Excel文件中又包含较多的工作表，记录着不同部门的数据，工作中经常需要查找文件中的某些资料和数据。

应用问题：

由于文件繁多，每次想找到需要的资料都很费劲，特别是找某个Excel工作表，效率很低，很是耽误时间。

应用需求：

希望创建有效的项目目录索引，能够快速定位到想要的资料。

解决方案：

1、创建专门的文件目录表，以包含所有的项目文件，让查找项目文件不再困难。

2、针对有很多工作表的Excel工作簿，为其创建目录表，可链接定位到其中的某个工作表。

具体实现方法

第一步：创建文件目录表

1、在D盘的“项目文件”目录下存在很多项目文件，我们新建一个Excel文件，命名为“目录”；

2、打开新建的目录文件，切换到【公式】功能页签，点击名称管理器，新建两个工作簿范围的名称：

2.1、第1个名称“路径”，引用位置：=GET.DOCUMENT(2)&T(NOW())；

名称公式简单解释：

GET.DOCUMENT(2)是宏表函数，获取当前文件所在目录的路径；NOW()函数用于得到系统当前日期时间，为易失性函数，T函数将其转换为空文本；在之后增加“&T(NOW())”，目的是使宏表函数可以自动重算，在定义名称时，加入一个易失性函数，只要有单元格触发了重算，宏表函数即可重算；

2.2、第2个名称“文件名列表”，引用位置：=FILES(GET.DOCUMENT(2)&"\*.*")&T(NOW())；

名称公式简单解释：

FILES函数返回指定路径下的所有文件名；GET.DOCUMENT(2)之后再增加“&"\*.*"”，是指返回任意扩展名的文件名；

3、在B3单元格输入公式：

=IFERROR(HYPERLINK(路径&"\"&INDEX(文件名列表,ROW(1:1)),INDEX(文件名列表,ROW(1:1))),"")，下拉填充，直到显示出目录下的所有文件；

公式简单解释：

INDEX(文件名列表,ROW(1:1)，返回定义的名称【文件名列表】数组中的第1个文件名，随着公式向下填充，将依次显示出各个文件名；路径&"\"&INDEX(文件名列表,ROW(1:1)，构造文件名相应的完整路径；HYPERLINK函数使用公式创建超链接，第1参数指定要打开的文件的路径和文档名，第2参数指定单元格中显示的跳转文本，即文件名称；IFERROR函数屏蔽错误值，当下拉超过总文件数量时，HYPERLINK返回错误值“#REF!”，IFERROR将其转换为空；

4、调整表格格式，设置字体、边框、标题等：

5、保存文件，注意，由于使用了宏表函数，所以该文件必须保存为“启用宏的工作簿”，后缀为“xlsm”。

至此，文件目录表创建完成，在文件夹下新增文件，打开目录文件时（注意要选择“启用宏”），目录将自动更新。

第二步：创建工作簿目录

1、在工作簿中新增“目录”工作表，调整位置到第1个，设置工作表标签颜色为红色。

2、切换到【公式】功能页签，点击名称管理器，新建名称“工作表名”，引用位置：

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

名称公式简单解释：

GET.WORKBOOK(1)返回工作簿中所有工作表的名称，为宏表函数，返回的数据形式为：[工作簿名称]工作表名称；在之后增加“&T(NOW())”，目的是使宏表函数可以自动重算；FIND函数查找“]”在GET.WORKBOOK(1)返回的数据中的位置；MID函数从“]”出现的位置之后1位开始，获取其后30位的字符，意在获得纯粹的工作表名称；

3、在B3单元格输入公式：

=IFERROR(HYPERLINK("#"&INDEX(工作表名,ROW()-1)&"!a1",INDEX(工作表名,ROW()-1)),"")

公式简单解释：

ROW()，对于B3单元格，获取当前单元格的行号，为3，随着公式向下复制，将获得3、4、5……的自然数序列；ROW()-1，将自然数-1，获得2、3、4……的自然数序列，目的是使得INDEX函数可以从数组中的第2个开始逐一获得工作表名，要排除掉“目录”工作表自身；HYPERLINK函数使用公式创建超链接，在工作表名前面加“"#"&”，后面加“&"!a1"”，表示链接到当前工作簿中的指定名称工作表的A1单元格；IFERROR函数用于屏蔽错误值；

4、调整目录表的格式，设置字体、边框、标题等：

5、在“目录”工作表之外的其它工作表，添加“返回”链接，在工作表的合适位置输入“返回”，为其插入链接，设置链接到“本文档中的位置”，选择位置为“目录”工作表，输入单元格引用为“B2”：

6、保存文件，注意，此时也需要保存成“启用宏的工作簿”，后缀为“xlsm”。

至此，工作簿目录也创建完成，在工作簿中新增或修改工作表，按F9或重新打开文件时，这个目录将自动更新。

本文版权归Excellive所有，更多Excel好文和示例下载，请关注Excellive！喜欢的话就请点赞、收藏、分享吧！如果您有问题或建议，欢迎留言与大家一起分享！

如果我们的文件夹中有多个个Excel文件，怎么才能把文件名一次的提取到Excel表格中呢？

或许大家可以去通过批处理bat文件提取的方法，但是有时候我们会出现代码想不起来的情况。今天，我就介绍一种超级简单、粗暴的方法直接提取。

1、打开文件夹，在复制地址栏中的地址。

2、把复制的地址粘到IE的地址栏中 按回车打开，文件夹中所有文件名会显示在IE页面中，然后按Ctrl+A全选再复制。

3、粘贴文本到Excel表格中，稍做调整后完工。

提取的文件名到底有用吗？？ 我回毫不犹豫的说：当然有，批量修改文件名称，制作带链接的文件目录、批量从多个文件中提取数据.....

当然，今天的技巧不限于Excel文件，适合于所有类型的文件。但知道这个技巧的人很少，替我分享给你身边的小伙伴吧。

Word中的目录可以一键自动生成，WPS/Excel表格中的工作表太多了，怎么生成一个目录呢？

步骤1：新建名称获取工作表名称列表。

如图，点击“公式”菜单下的“名称管理器”，新建一个名称为“我的目录”，引用位置为“=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW()”的名称。

步骤2：创建目录。

在B1单元格输入公式“=IFERROR(HYPERLINK(我的目录&"!A1",MID(我的目录,FIND("]",我的目录)+1,49)),"")”，向下填充公式，即可生成目录。接着可以将生成的目录复制到每个工作表下。复制时，可以先按Shift键选中所有工作表名称，一次性粘贴公式即可。

更新目录。

不需要额外的操作，不论插入新的工作表还是删除工作表，或者修改工作表名称，目录都会自动更新。

保存。

不论是WPS表格还是Excel，创建好目录，保存时，都会弹出如下的警告，请点击“是”，将文件保存为启用宏的工作簿，否则，下次打开文件时，目录会失效。

公式解释。

第一步操作解释：

宏表函数GET.WORKBOOK(1)将获得工作簿中所有的工作表名称，名称的格式为“[文件名称]工作表名称”（如图B列所示）。

ROW(A1)在向下填充时会变成ROW(A2)、ROW(A3)，从而得到行号1，2，3……

“INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())”，就可以一一获得工作表名称。T(NOW())的结果为空，也可以去掉，NOW()函数在文件重新打开或刷新时，会重新计算，因此公式中加上T(NOW())的作用就是当工作表有增减或修改时，可以自动重新计算。

第二步操作解释：

我们需要的只是工作表名称，因此用“MID(我的目录,FIND("]",我的目录)+1,49)”提取，这个公式表示从“]”之后开始提取49个字符，一般的工作表名称并没有这么长，因此写49就绰绰有余了。

HYPERLINK是链接函数，第一个参数表示链接的位置，第二个表示最后显示的文字。

从上图可以看出公式向下填充，扫描了已有的所有工作表名称后，会有些结果是空或“#REF”，因此用IFERROR忽略这些结果。

不知道这么解释，清楚了没有？

谢谢阅读，每天学一点，省下时间充实自己。欢迎点赞、评论、关注和点击头像。

我们都知道，

在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工作簿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之家，侵联系删

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

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

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

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

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

DIR *.* /B >目录.TXT

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

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

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

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

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

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

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

怎么样，这样的方法是不是很简单呢？赶紧试试吧，欢迎留言评论

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

第二步：定义名称

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

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

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

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

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

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

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

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

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

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

上篇教程介绍了Excel目录的制作！但是，只能定位到每个sheet，有一天，你获得了各门派武功秘籍，该怎么定位到你想要的位置呢？用鼠标滚轮吗？这里介绍一种Excel版凌波微步，让你来去自如！废话不多说，先上效果：

只需3步，即可轻松打造来去自如的索引目录，主要思路是：获取sheet列表→获取非空单元格位置→建立索引链接

下面具体讲述详细过程

1、获取sheet列表：定义名称shname=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(NOW())

2、获取非空单元格位置：选中目录!A2单元格，定义名称

方向=INDIRECT(INDEX(shname,ROW(目录!2:2))&"!B"&SMALL(IF(ISTEXT(INDIRECT(INDEX(shname,ROW(目录!2:2))&"!$B$1:$B$300")),ROW(目录!$B$1:$B$300),999),COLUMN(目录!A:A)))

位置=SMALL(IF(ISTEXT(INDIRECT(INDEX(shname,ROW(目录!2:2))&"!$B$1:$B$300")),ROW(目录!$B$1:$B$300),999),COLUMN(目录!A:A))

此时，方向建立了各种武功秘籍的引用，位置获取了各种武功秘籍的行号，组合起来进入第三步就大功告成啦！

3、建立链接索引

选中目录!A2单元格，

输入公式=IFERROR(IF(方向=0,"",HYPERLINK("#'"&INDEX(shname,ROW(目录!2:2))&"'!B"&位置,方向)),"")

往右往下拖动就完成啦！

把公式范围往下拉，还能自动更新哦，表格内容更改无需手动输入公式啦！

本文涉及的公式较多，但都是基础公式哦，所谓万变不离其宗，熟练掌握每个公式是基本功，练好基本功，走遍天下都不怕！

涉及的主要公式有：GET.WORKBOOK(1)、Mid+Find组合、Index+Row组合、IF+ISTEXT组合、Small+Column组合、单元格的引用等，下节将对这些组合做详细解析，欢迎继续关注！

点击上方

“中税网”

可关注我们！

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技巧精选