如何将一列文本URL转换为Excel中的活动超链接？

我有一个在Excel中的列，其中我有所有的网站的url值。 我的问题是我想把url值转为活动链接。 该列中有大约200个条目，所有单元格中都有不同的url。 有没有一种方法可以创build活动的超链接到所有单元格，而无需编写macros。

如果你不想制作一个macros，只要你不介意添加一个列，那么只需要在你的URL列旁边创build一个新的列。

在公式=HYPERLINK(A1)的新列中input（用您感兴趣的任何单元格replaceA1）。 然后将配方复制到200个条目的其余部分。

注：如果单元格A1包含超过255个字符的string，此解决scheme不起作用。 这会导致#VALUE! 错误

像这样创buildmacros：

在Microsoft Excel工具菜单上指向macros，然后单击Visual Basic编辑器。 在插入菜单上，单击模块。 将此代码复制并粘贴到模块的代码窗口中。 它会自动命名HyperAdd。 

 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

完成粘贴macros时，请在文件菜单上单击closures并返回到Microsoft Excel。

然后select所需的单元格，然后单击macros并单击运行。

注意不要select整个色谱柱！ 只select你想改变的单元格为可点击的链接，否则你将在一个无休止的循环中结束，必须重新启动Excel！ 完成！

这是我find的一种方法。 我使用Excel 2011在Mac上。如果B列有文本值你想要超链接，把这个公式放在C1单元格（或D1或任何只要它是一个=HYPERLINK(B1,B1)列）： =HYPERLINK(B1,B1)这将插入一个超链接作为链接文本和“友好名称”作为链接文本。 如果你有另一个列有每个链接的友好名称，你也可以使用它。 然后，如果你不想看到它，你可以隐藏文本列。

如果您有某个ID的列表，并且这些url都是http://website.com/folder/ID ，例如： 

 A1 | B1 101 | http://website.com/folder/101 102 | http://website.com/folder/102 103 | http://website.com/folder/103 104 | http://website.com/folder/104

你可以使用=HYPERLINK("http://website.com/folder/"&A1,A1) ，你不需要的URL列表。 这是我的情况，很好地工作。

根据这个职位： http : //excelhints.com/2007/06/12/hyperlink-formula-in-excel/此方法也将在Excel 2007中工作。

好吧，这里有一个hokey的解决scheme，但我不知道如何让Excel评估一列URL的批量超链接。

  1. 创build公式， ="=hyperlink(""" & A1 & """)"
  2. 拖累
  3. 复制新的公式列
  4. 将特殊值粘贴到原始列上
  5. 突出显示列，单击Ctrl – H （replace），查找和replace= = （以某种方式强制重新评估单元格）。
  6. 单元现在应该可以点击作为超链接。 如果您想要蓝色/下划线样式，那么只需突出显示所有单元格并select“超链接”样式。

单独的超链接样式不会转换为可单击的链接，并且“插入超链接”对话框似乎无法将文本用作批量单元格的地址。 除此之外， F2和Enter通过所有的单元格都可以实现，但是对于很多单元格来说这是很乏味的。

相当简单的方法，相当短的名单：

  1. 双击URL所在的框
  2. input

你有你的链接;）

这种方法适用于我使用超链接function： 

 =HYPERLINK("http://"&B10,B10)

其中B10是包含URL文本版本的单元格（在本例中）。

用Windows 2007上的Excel 2007，我发现这些步骤最简单;

  1. select非活动url的单元格
  2. 复制
  3. 粘贴为超链接

尝试这个：

= HYPERLINK（“mailto：”＆A1，A1）

将A1replace为电子邮件地址单元格的文本。

对我来说，我只是将整个包含文本格式URL的列复制到另一个应用程序（如Evernote）中，当它们粘贴在那里时，它们变成链接，然后我将它们复制回Excel。

这里唯一的事情是你需要确保你复制的数据与其余的列保持一致。

对于任何在Excel 2016中login的用户，只需突出显示该列，然后单击“ Styles框中“ Homefunction区上的“ Hyperlink选项卡即可。

在这里输入图像说明

您可以将公式=HYPERLINK(<your_cell>,<your_cell>)插入相邻的单元格，并一直拖到底部。 这会给你一个所有链接的专栏。 现在，您可以通过单击标题来select原始列，单击鼠标右键，然后select“ Hide 。

我发现这里没有任何方法，如果超链接没有包含http：//链接到本地​​位置。

我也想用傻瓜式的脚本，因为用户将无法自己维护它，我将无法使用。

只有当它们包含一个点并且没有空格时，它才会在选定范围内的单元格上运行。 它将只运行多达10,000个单元格。 

 Sub HyperAdd() Dim CellsWithSpaces As String 'Converts each text hyperlink selected into a working hyperlink Application.ScreenUpdating = False Dim NotPresent As Integer NotPresent = 0 For Each xCell In Selection xCell.Formula = Trim(xCell.Formula) If xCell.Formula = "" Or InStr(xCell.Formula, ".") = NotPresent Then 'Do nothing if the cell is blank or contains no dots Else If InStr(xCell.Formula, " ") <> 0 Then CellsWithSpaces = CellsWithSpaces & ", " & Replace(xCell.Address, "$", "") GoTo Nextxcell End If If InStr(xCell.Formula, "http") <> 0 Then Hyperstring = Trim(xCell.Formula) Else Hyperstring = "http://" & Trim(xCell.Formula) End If ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring End If i = i + 1 If i = 10000 Then Exit Sub Nextxcell: Next xCell If Not CellsWithSpaces = "" Then MsgBox ("Please remove spaces from the following cells:" & CellsWithSpaces) End If Application.ScreenUpdating = True End Sub

谢谢你的Cassiopeia的代码。 我改变了他的代码，以本地地址工作，并没有改变他的条件。 我删除了以下条件：

  1. 将http:/更改为file:///
  2. 删除了所有types的空白条件
  3. 将10k单元格范围条件更改为100k 
 Sub HyperAddForLocalLinks() Dim CellsWithSpaces As String 'Converts each text hyperlink selected into a working hyperlink Application.ScreenUpdating = False Dim NotPresent As Integer NotPresent = 0 For Each xCell In Selection xCell.Formula = Trim(xCell.Formula) If InStr(xCell.Formula, "file:///") <> 0 Then Hyperstring = Trim(xCell.Formula) Else Hyperstring = "file:///" & Trim(xCell.Formula) End If ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring i = i + 1 If i = 100000 Then Exit Sub Nextxcell: Next xCell Application.ScreenUpdating = True End Sub

如果添加超链接的额外列不是一个选项，如果你有记事本++安装，你可以：

  • 将地址列复制到Notepad ++
  • 按ALT – SHIFT键，将光标从左上angular延伸到右下angular，然后键入=hyperlink(" 。这添加=hyperlink("在每个条目的开始。
  • 打开“replace”菜单（ Ctrl – H ），激活正则expression式（ ALT – G ），并用"\)replace$ （行尾"\) 。这会添加一个闭合的引号和一个闭括号（需要用\当正则expression式被激活时）在每行的末尾。
  • 将数据粘贴回Excel中。 在实践中，只需复制数据并select数据最后一列的第一个单元格即可。

如果您将文本内容复制到新列中并使用： 

 =HYPERLINK("http://"&B10,B10)

在你原来的专栏上。 然后使用$作为列，所以它看起来像这样： 

 =HYPERLINK("http://"&$B10,$B10)

这是它在Windows 7上的Excel 2010上为我工作的唯一方法。您可以复制公式。

将url放入HTML表格，将HTML页面加载到浏览器中，复制该页面的内容，粘贴到Excel中。 在这一点上，URL被保存为活动链接。

解决scheme是build议在http://answers.microsoft.com/en-us/mac/forum/macoffice2008-macexcel/how-to-copy-and-paste-to-mac-excel-2008-a-list-of/ （Jim Gordon Mac MVP）[ http://answers.microsoft.com/ zh-

我发现它的工作。

我有这些url：

https://twitter.com/keeseter/status/578350771235872768/photo/1 https://instagram.com/p/ys5ASPCDEV/ https://igcdn-photos-ga.akamaihd.net/hphotos-ak-xfa1/t51 .2885-15 / 10881854_329617847240910_1814142151_n.jpg https://twitter.com/ranadotson/status/539485028712189952/photo/1 https://instagram.com/p/0OgdvyxMhW/ https://instagram.com/p/1nynTiiLSb/

我把它们放到一个HTML文件（links.html）中，像这样： 

 <table> <tr><td><a href="https://twitter.com/keeseter/status/578350771235872768/photo/1">https://twitter.com/keeseter/status/578350771235872768/photo/1</a></td></tr> <tr><td><a href="https://instagram.com/p/ys5ASPCDEV/">https://instagram.com/p/ys5ASPCDEV/</a></td></tr> <tr><td><a href="https://igcdn-photos-ga.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg">https://igcdn-photos-ga.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg</a></td></tr> <tr><td><a href="https://twitter.com/ranadotson/status/539485028712189952/photo/1">https://twitter.com/ranadotson/status/539485028712189952/photo/1</a></td></tr> <tr><td><a href="https://instagram.com/p/0OgdvyxMhW/">https://instagram.com/p/0OgdvyxMhW/</a></td></tr> </table>

然后，我将links.html加载到我的浏览器中，复制，粘贴到Excel中，链接处于活动状态。

这里最简单的方法

  • 突出显示整个列
  • 点击“插入”
  • 点击“超链接”
  • 点击''在这个文件的地方''
  • 点击确定
  • 就这样

Excel 2010中最简单的方法：select带有URL文本的列，然后从“主页”选项卡中select“超链接样式”。 该列中的所有url现在都是超链接。

同时双击URL文本末尾的每个单元格，并添加一个空白或只是input也将产生一个超链接。 类似于您必须在MS Outlook电子邮件中创buildURL链接的方式。

有一个非常简单的方法来做到这一点。 创build一个超链接，然后使用“格式刷”复制格式。 它会为每个项目创build一个超链接。

Interesting Posts

我怎样才能从一个<td>表单元格的链接

如何在HTML中点击链接？ （机器人）

如何强制在父窗口中打开iframe的链接

在Gmail中撰写邮件的URL（包含完整的Gmail界面，指定给，密件抄送，主题等）

是否有可能使用URL参数链接到PDF内的书签？

查找Android应用的软件包名称以使用Intent从Web启动Market应用

如何创build锚点并将其redirect到Ruby on Rails中的特定锚点

在新标签或窗口中打开链接

使用GET从jqGrid中的列值链接到新页面

如何在XAML中做一个简单的超链接？