如何将Excel中的数百个文本URL转换为可单击的超链接?


13

如何将一列网址变成超链接,以便用户可以单击单元格中的网址并在浏览器中打开它?

我粘贴了100个网址,每个网址都进入了自己的单元格。当我双击该单元格,然后将其保留时,Excel会将文本变成蓝色,并从中链接出来。我不想双击一百次,但仍然想将所有单元格格式化为链接。


1
顺便说一句,但是需要注意的是,超链接是否无法按预期工作:当您单击此类URL时,Office使用奇怪的Microsoft Office存在发现工作流(即使不是默认浏览器,也会涉及Internet Explorer)。
Arjan 2010年

Answers:


12

做一个超链接在Excel的功能是=Hyperlink("http://www.techonthenet.com","Tech on the Net")哪里"http://www.techonthenet.com"是互联网地址,"Tech on the Net"是出现在Excel单元格的称号。

因此,当您将网址写入Excel文件时,只需将此函数包装在每个网址周围即可。如果您不想使用动态名称,也可以始终将url用作名称。

如果您不是通过编程方式插入值,则此站点会提及使用HYPERLINK工作表功能。尽管这是一个更好的参考,它会逐步引导您如何向excel添加宏,并且它们为宏提供了代码。因此,当您添加此宏后,您可以选择网址列并运行宏,它将整个列转换为超链接


1
我粘贴了100个网址,每个网址都进入了自己的单元格。很好,但是它们是纯文本。当我dblcick进入单元格,然后将其保留为excel时,该文本将变为蓝色,并从中链接出来。我不想dbl单击一百次,并且想要像对我一样将所有单元格格式化为链接。

1
我为您添加了另一种方法。我假设您是通过某个以某种方式编写的程序进行此操作的,因为您处于stackoverflow上。
凯拉(Kyra)2010年

是否有机会仅使用一些不同的格式也可以解决问题?我有点怀疑Excel hyperlink在执行自动魔术时会真的插入公式。(我这里没有Excel,但按Ctrl-1键显示单元格属性可能会显示有用的内容?)
Arjan 2010年

12

从此处:将URL转换为Excel中的可单击链接

Public Sub Convert_To_Hyperlinks()
  Dim Cell As Range
  For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
    If Cell <> "" Then
      ActiveSheet.Hyperlinks.Add Cell, Cell.Value
    End If
  Next
End Sub

创建宏

  • 打开您的Excel文档
  • 通过按ALT + F11打开宏编辑器。
  • 在“工具”菜单中,右键单击“视图”,然后选择“项目资源管理器”。
  • 查找名为“模块”的文件夹,右键单击它,选择“插入”,然后选择“模块”。
  • 将代码粘贴到所选的项目模块中。
  • 按ALT + F11返回到您的Excel工作簿(或单击Windows任务栏中的其图标)。

运行宏

  • 要执行宏,请选择要转换为可点击超链接的不可点击文本链接。
  • 按ALT + F8打开宏选择器窗口,然后单击您刚刚创建的宏。
  • 您的链接现在都是可点击的!节省您的时间和数据输入疲劳:)

清晰的宏指令的奖励积分。如果您必须定期执行此类操作,则有助于将宏集中保存在某个位置,以便可以将其加载到所需的任何工作簿中。您也可以在工作簿中为宏创建快捷键。
NateJ

在Excel中功能区的重要补充。突出显示字段,单击按钮,轰!超链接的细胞。
杰·基林

2

难以置信,没有可选的设置告诉Excel将URL视为实时链接。毕竟,Outlook会自动执行此操作。但话又说回来-叹气,这是Microsoft产品。

我在Excel中有一列链接。我选择了该列并将其粘贴到自己的电子邮件中。当我收到邮件时(仍选中“ Excel”列),我将实时链接粘贴回该列中。做完了!

或者,您可以将电子邮件另存为草稿,然后再次打开保存的草稿。无需实际发送和接收电子邮件。


1

简单的方法就是将Excel文件另存为HTML页面。然后在Excel中重新打开HTML页面,然后单击链接即可。

更新
有时这不起作用。但这似乎总是可行的。右键单击位于其中的选定列URL。然后单击“超链接”,然后单击“放置在此文档中”。


有时这不起作用。但这似乎总是可行的。右键单击位于其中的选定列URL。然后单击“超链接”,然后单击“放置在此文档中”。这似乎总是可行的。
理查德

我已将您的评论添加到您的答案中。随时欢迎您更新您的答案
Shekhar

1

以下将在一个公式中创建可点击的链接

=CONCAT("<",HYPERLINK(M28,M28),">")

如果要覆盖公式并清理,<>则:
将值复制并粘贴到公式上。
使用Ctrl+ H代替<>单独使用。


0

凯拉(Kyra)的答案在这里指出从本质上给您带来的好处,并且是一个很好的方向。允许您根据需要进行较大的选择,并将它们全部转换。

Sub addHypers()

For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
    If cell <> "" Then
    ActiveSheet.Hyperlinks.Add cell, "http://" + cell.Value
    End If
    Next cell
End Sub

Sub removeHypers()
Intersect(Selection, ActiveSheet.UsedRange).Hyperlinks.Delete
End Sub

0

请参阅如何在Excel中将URL文本转换为可单击的超链接,以 获取简单的操作说明。

在Excel中,单击要转换为可单击超链接的列。
遵循第一个选项:使用VBA代码将URL文本转换为可点击的超链接

完成所有步骤,然后按F5,关闭Microsoft Visual Basic应用程序以返回到Excel文件。您的网址现在可以点击了!


0

在较新版本的Excel(从2018年开始)中,只需在主菜单栏中打开“样式”下拉菜单,然后选择“超链接”作为样式。这会将文本超链接格式设置为所选范围的可单击超链接。


-1

如果您不想创建宏并且只要您不介意添加其他列,则只需在URL列旁边创建一个新列即可。

在新列中,输入公式= HYPERLINK(A1)(用您感兴趣的任何单元格替换A1)。然后将公式向下复制到其余条目中。


1
该建议已由接受的答案提出。您可以编辑答案以解释这有何不同吗?
Burgi
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.