跳到主要内容

如何在Excel中一次打开多个超链接？

如果电子表格中有很多超链接，通常您必须一一打开它们，这可能很乏味。幸运的是，有一些简单的方法可以一次打开所有选定的超链接。通过遵循下面描述的方法，您可以轻松完成此任务。

使用VBA代码一次打开多个超链接

使用 Kutools AI Aide 一次打开多个超链接

使用VBA代码一次打开多个超链接

要一次打开选定的某个范围的超链接，以下VBA代码可以为您提供帮助：

1。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications窗口。

2。 点击 插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：一次打开多个超链接

Sub OpenHyperLinks()
'Updateby Extendoffice
	Dim xHyperlink As Hyperlink
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
	For Each xHyperlink In WorkRng.Hyperlinks
		xHyperlink.Follow
	Next
End Sub

3。 然后按 F5 键运行此代码，然后会弹出提示框，提醒您选择一个范围，其中包括您想一次打开的超链接，请参见屏幕截图：

文档打开多个超链接-1

4。 然后点击 OK，无需单击即可同时打开所有超链接。

使用 Kutools AI Aide 一次打开多个超链接

释放效率的力量 Kutools 人工智能助手！告别一一打开超链接或复杂代码的麻烦。和 Kutools 人工智能助手，只需单击一下即可轻松同时打开多个超链接。利用这一创新工具简化您的工作流程并节省宝贵的时间。体验无缝浏览并提高您的工作效率 Kutools 人工智能助手 ！

备注: 要使用这个 Kutools 人工智能助手 of Kutools for Excel请 下载并安装 Kutools for Excel 第一。

安装 Kutools for Excel 后，请单击 Kutools人工智能 > 人工智能助手 打开 Kutools 人工智能助手 窗格：

  1. 选择数据列表，然后在聊天框中输入您的需求，然后单击 提交 按钮或按下 输入 发送问题的键；
    “一次打开所选内容中的所有超链接：”
  2. 分析完后点击 执行 按钮运行。 Kutools AI Aide 将使用 AI 处理您的请求，并直接在 Excel 中打开所选内容的所有超链接。

文档打开多个超链接-1

相关文章：

  • 在 Excel 中一次更改多个超链接路径
  • 出于某种目的，您可以为工作表中的数据创建多个超链接，并且所有超链接都链接到相同的文件路径或地址，但是现在，您需要一次用另一个地址替换该超链接路径。 单独更改超链接的路径可能会浪费大量时间，是否有解决此问题的快速方法？
  • 将多个电子邮件地址转换为Excel中的超链接
  • 现在，如果您在工作表中具有纯文本电子邮件地址列表，则希望将这些电子邮件地址转换为可在单击地址时发送电子邮件的超链接。 当然，您可以将它们转换为超链接的电子邮件地址，但是，如果需要转换多个地址，此方法将很无聊。 在本文中，我将讨论一些处理此任务的好技巧。
  • 通过超链接访问 Excel 中的隐藏工作表
  • 例如，我有一个包含多个工作表的工作簿，第一个主工作表具有指向其他工作表的超链接，现在，我隐藏了除第一个工作表之外的所有工作表。在这种情况下，链接到隐藏工作表的超链接不可用。但是，如何才能使这些超链接成功工作呢？当您单击一个超链接时，链接的隐藏工作表将立即打开。

最佳办公生产力工具

🤖 Kutools 人工智能助手：基于以下内容彻底改变数据分析： 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup  |   多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧   |  工作簿和工作表管理器   |  资源库 （自动文本）   |  日期选择器   |  合并工作表   |  加密/解密单元格   |  按列表发送电子邮件   |  超级筛选   |   特殊过滤器 （过滤粗体/斜体/删除线...）...
前 15 个工具集:  12 文本 工具 (添加文本, 删除字符，...）   |   50+ 图表 类型 (甘特图，...）   |   40+ 实用 公式 (根据生日计算年龄，...）   |   19 插入 工具 (插入二维码, 从路径插入图片，...）   |   12 转化 工具 (小写金额转大写, 货币兑换，...）   |   7 合并与拆分 工具 (高级组合行, 分裂细胞，...）   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

产品描述

Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松

  • 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50％，并减少数百次鼠标单击！
Comments (20)
No ratings yet. Be the first to rate!
Carlos Pereira
Carlos Pereira
This comment was minimized by the moderator on the site
Thanks for the code.
Could make it work for a "https link instead a hyperlink?
Reply
0
0
Matt
Matt
This comment was minimized by the moderator on the site
Got a compile error on Microsoft Visual Basic for Applications 7.1 on Mac High Sierra
Reply
0
0
Joe
Joe
This comment was minimized by the moderator on the site
This works fine, except for a problem, how can I make it that it only opens filtered cells?

Thank you
Reply
0
0
Avalon
Avalon
This comment was minimized by the moderator on the site
Can i select which browser the links need to open
Reply
0
0
Al
Al
This comment was minimized by the moderator on the site
Hi, it worked perfectly, thanks! Is there a way to copy the text from the pages of these links in the cell next to each of them?
That would save me hundreds of hours of work!
Reply
0
0
Guest
Guest
This comment was minimized by the moderator on the site
Its works awesome.
Reply
0
0
James
James
This comment was minimized by the moderator on the site
When I use this on a column of hyperlinks generated by the =HYPERLINK() formula, it doesn't seem to work. When I copy/paste the values into a new column and run it there, it doesn't work. When I go to each individual cell, go to the end of text, and hit enter (causing it to become a hyperlink) it DOES work.


This didn't work for my needs, unfortunately. I have thousands of rows and clicking enter at the end of each line of text is pretty much what I'm having to do anyway.
Reply
0
0
Johan Nersnæs
Johan Nersnæs     James
This comment was minimized by the moderator on the site
Found a solution?
Reply
0
0
SimpleDude
SimpleDude     Johan Nersnæs
This comment was minimized by the moderator on the site
@James @Johan - Select the text you wish to convert into hyperlink, then use this code to convert the text into hyperlink directly. Then run the code above, works like a charm.


Sub HyperAdd()

'Converts each text hyperlink selected into a working hyperlink

For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell

End Sub
Reply
0
0
HowDoIComputer
HowDoIComputer     SimpleDude
This comment was minimized by the moderator on the site
Hello! What I did was to copy/paste the values from the =HYPERLINK code into a different column, and then I used @SimpleDude's code to convert the pasted text into the hyperlinks that worked with the original hyperlink-opening code. Thank you for the help!
Reply
0
0
maov
maov
This comment was minimized by the moderator on the site
Thanks!
Works exactly as expected. Must be sure that the links are already valid URLs.
I opened 15 at one time.
Reply
0
0
John
John
This comment was minimized by the moderator on the site
Freezes excel - links never open
Reply
0
0
vaibhavjain1902@gmail.com
This comment was minimized by the moderator on the site
Please let me know hpw does it work in Mac
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations