大家好，我们都知道一个Excel工作簿，可能存在非常多的工作表（worksheets集合），有时候多达几百个。当这个时候，我们查找相关数据非常的困难，效率低下。其实我们有办法可以改善这种情况。我们应该都知道Excel有一个工具可以达到这种效果，你也许已经猜到了。他就是超链接，可以通过超链接快速查看相关工作表的内容，也就是我们本文重点介绍的主人公。

那么说起制作工作表目录和超链接，您首先想到的是什么？我们使用什么方法来实现我们的功能呢？其实方法有很多，函数法，VBA法.在正常的情况下，我们可以使用Excel自带的工作表目录功能去实现这个功能或者需求。 但有在某些情况的时候，Excel自带的功能，去实现工作表目录功能就显得有些局限性了，并不是很人性化。

PS：我们看看Excel自带的工作表目录功能去实现这个功能，是不是感觉不是很友好？

比如我们的工作表多达几百个时，一页显示不完全，对于我们查看数据明显就很不方便，很不人性化；哈哈，在我们追求美观的人来说，这个界面其实不是很友好！使用的时不够高大上!所以我们今天和大家分享的是使用Excel VBA自动建立超链接的代码，和大家一起学习！

今天的代码主要涉及2个知识点：

1、For each--Next

利用For each next循环，在我们当前的工作薄的所有的工作表之间进行循环，提取工作表的名字。

2、ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="", SubAddress:="'" & strShtName & "'!a1", TextToDisplay:=strShtName

代码里用到了Hyperlinks.Add语句，这个语句主要是添加超链接，也是本程序的核心代码。大家有时间可以试试录制宏的功能，即可得出此代码。

还是给大家看一下源数据：

原数据中存在10个工作表，我们现在要求在Total工作表中实现一个目录带超链接的功能。

我们看看执行的效果：

看了上面的动画，是不是感觉非常适合批量建立大量的目录带超链接。其实上述的代码也是非常简单.

我们只需要将以下的代码复制到Excel的VBE窗口的模组中即可，然后设置宏代码运行的按键，点击执行，就可看到结果。

附上Excel VBA代码如下：

Sub Hyperlinkadd()

Dim sht As Worksheet, i&, strShtName$

Application.DisplayAlerts = False

Columns(1).ClearContents

'清空A列数据

Cells(1, 1) = "目录"

'第一个单元格写入字符串"目录"

i = 1

'将i的初值设置为1.

For Each sht In Worksheets

'循环当前工作簿的每个工作表

strShtName = sht.Name

If strShtName <> ActiveSheet.Name Then

'如果sht的名称不是当前工作表的名称则开始在当前工作表建立超链接

i = i + 1

'累加i

ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="", SubAddress:="'" & strShtName & "'!a1", TextToDisplay:=strShtName

'建超链接

End If

Next

Application.DisplayAlerts =True

End Sub

以上就是今天要和大家分享的技巧，希望对大家有所帮助,祝各位一天好心情！

唯有不断学习，才能不被淘汰!

Excel中每一个函数都有特定的用途，不是它们没有用，而是你不了解或用不着，建议同学们收藏起来，万一要用着了呢

平时都和大家分享了很多关于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里面的超链接？

相信在Excel里面大家进行邮箱地址输入的时候，软件就会自动默认未一个超链接，这种无疑为大家带来困惑，而且还需要进行一些列操作才能删除超链接。本次讲解让大家学会一些技巧删除系统默认生产的超链接或者别人文件就已经带出来的超链接，而且误点击了这几个超链接，就会进行该网址的浏览。无疑给我们的操作带来一系列的困扰。

删除超链接，大家都希望快而好的操作就能省事，因为超链接有时候确实是挺烦人的。本次讲解涉及几个方式，分别是系统参数设置、基本删除操作、组合键删除操作方法、选择性粘贴、格式刷操作、宏设置删除法等。

首先是第一种Excel系统参数的设置方法，此方法操作步骤是开始→Excel选项→校对→自动更正选项，键入时自动套用格式，以键入值替换剔除“√”选项。

GIF

第二种手动基本删除超链接的方法。步骤是选中超链接单元格，右键→取消超链接。

GIF

第三种方法是组合键删除超链接方法，步骤是选中超链接单元格，然后Ctrl + C，再按一下Enter键即可。温馨提醒，这几个步骤是一步一键，并不是Ctrl + C 和Enter同时按下；是单独进行操作的。

GIF

第三种方法是选择性粘贴，大家首先选中超链接单元格，复制该单元格，粘贴选择选择性粘贴的值粘贴方式，然后就可以删除相应的超链接了。

GIF

第四种方法是使用格式刷。格式刷的使用大家都并不陌生，首先将某一单元格的超链接人工手动进行删除，然后选中已经删除超链接的单元格，按一下「格式刷」，拖动需要删除超链接的单元格即可。

GIF

第五种方法是利用宏进行自动删除超链接，步骤：开发工具→代码，宏→命名一个宏名称，“删除超链接”，创建→Sub 删除超链接() End Sub，在这两者中间键入，“Cells.Hyperlinks.Delete”；保存宏即可。然后可以执行该宏操作了。

GIF

超链接有时候会带来便利，有时候带来困扰，大家在使用删除的时候，结合实际情况，不要盲目使用删除功能，因为可能把超链接带来的便利一起被删除，这样得不偿失。

Excel的学习离不开练习，大家在练习的时候可以思考还有什么操作可以带来同样的效果。因为Excel操作并不是唯一的，不同的人可能有不同的操作方法。

大家好，我是超爱高效率的秋小叶~

最近有一位同学求助，他需要在 Excel 文件里加很多超链接，可他只会一个个加，感觉太麻烦了。

那可不，身为超爱高效率的我，今天就教大家一个一键搞定超链接添加的函数！

先来看看这位同学的具体问题：

有一张 Excel 汇总表，其中一列是合同编号，每个合同编号都有个对应的 Excel 文件。现在需要实现：点击总表中的合同编号时能自动跳转到对应的明细表。可我只会一个个加链接，好慢啊！

原始表格长这样，我给它打了个码。

乍一看这个问题很特殊，好像自己不会碰到。

但要解决的问题本质上是：如何批量创建超链接到其他工作表。

只要会这一个函数，就能轻松搞定，这个函数就是Hyperlink(超级链接函数)。

链接到其它工作表

下面以一个简单的表格作为示例，在 B2:B6 区域创建可以跳转到对应工作表的链接：

操作过程很简单：

用 Hyperlink 这个函数，你需要告诉 Excel 跳转的目的地在哪，也就是链接地址，还有显示出来的超链接名称是什么。

你也可以用链接地址的形式显示：hyperlink(链接地址,显示名称)

上面这个案例，链接的目标是当前 Excel 文件的其他工作表，有一个固定结构，就是前面必须有一个 # 号：

= hyperlink("#"&工作表名&"!A1",显示名称)

这个公式结构的含义是：创建一个超链接，跳转到指定工作表中的 A1 单元格。

用 Hyperlink 函数还可以实现很多好玩的效果。

跳转到指定网址

例如，要创建一个跳转到百度页面的超链接时，可以这样写：

= hyperlink("https://baidu","百度一下")

点击展示搜索结果

要创建一个自动搜索关键词的链接，比如用百度搜索「秋叶」的结果页面。可以把具体的网址替换掉链接地址这个参数：

= hyperlink("https://baidu/s?wd=秋叶","百度秋叶")

点击搜索相应关键词

想要根据单元格里的数据进行搜索？那就利用 & 连字符，拼接单元格，构建出一个可以生成完整链接地址的公式结构。

这样就能向下填充，得到自动搜索对应关键词的按钮。

= hyperlink("https://baidu/s?wd="&A2,"点击搜索")

打开某个文件夹下的文件

同样的，在自己电脑上的文件，也可以通过超链接的形式点击就打开。

我们需要的是提取出文件名，用 & 构建出一个链接地址，然后用 Hyperlink 函数批量生成跳转链接。

例如，在 D 盘下有一个相片集的文件夹，包含很多照片：

我们可以通过 Hyperlink 函数批量添加超链接，在 Excel 表中就可以直接打开对应的照片文件。

例如张三的照片，完整路径应该是 D:\相片集\张三.jpg，张三这个名字直接引用 A2 单元格的内容，于是写成公式就是：

= hyperlink("D:\相片集\"&A2&".jpg","查看照片")

看吧，函数其实并不可怕，只要搞懂它的语法结构，告诉 Excel 怎么按部就班的处理数据，它就会乖乖听话，帮你搞定大量的重复操作。

Excel单元格中输入网址时会自动的转化为超级链接，有时因为工作的需要，取消掉所有的超级链接。一个两个的好解决，点击右键就能轻松搞定，但要是大批量的取消就比较烦人了。批量取消超链有好几种方法，今天讲两种比较简单的方法。

下面开始设置：点击office按钮——Excel选项——“校对”标签里的“自动更正选项”——选择“键入时自动套用格式”——把“Internet及网络路径替换为超链接工作时应用”前面的复选框勾去掉。

设置1

设置2

设置3

设置完成后Excel中的超链还没有取消掉，因为这是还没有设置前键入的，所以还需要一步才能去掉超链。把超级链接复制到文本文档里，再从文本文档里复制回来就可以了。

不过设置后再输入网址类的数据就不会是超链的形式了，这种方式最好就是输入前设置。

重新录入网址已无超链形式

另一种方法更简单，不用设置。就是利用复制粘贴，粘贴时选择——选择性粘贴——数值，把原来的超链删除，再复制过来就行了。

Excel科技收藏