使用公式=HYPERLINK()创建一个临时的超链接新列 将该列复制到Microsoft Word(仅在Word运行后复制到剪贴板)。 复制新word文档中的所有内容(ctrl+a，然后ctrl+c)。 粘贴到Excel中，替换原来的文本列。使用公式删除临时列。

这是我发现的一个方法。我在Mac上使用Excel 2011。 如果列B有你想要超链接的文本值，把这个公式放在单元格C1(或D1或其他，只要它是一个空闲列):=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中工作。

对我来说，我只是复制了整个列，其中有文本格式的url到另一个应用程序(说Evernote)，当他们粘贴在那里，他们成为链接，然后我只是复制回Excel。

这里唯一需要做的是确保复制回来的数据与其余列对齐。

将url放入HTML表格，将HTML页面加载到浏览器中，复制该页面的内容，粘贴到Excel中。此时，url被保留为活动链接。

解决方案是由(Jim Gordon Mac MVP)在http://answers.microsoft.com/en-us/mac/forum/macoffice2008-macexcel/how-to-copy-and-paste-to-mac-excel-2008-a-list-of/c5fa2890-acf5-461d-adb5-32480855e11e上提出的[http://answers.microsoft.com/en-us/profile/75a2b744-a259-49bb-8eb1-7db61dae9e78]

我发现这很有效。

我有这些url:

https://twitter.com/keeseter/status/578350771235872768/photo/1 https://instagram.com/p/ys5ASPCDEV/ https://igcdn-photos-g-a.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-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg">https://igcdn-photos-g-a.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没有自动做这个，所以这是我的解决方案，我希望对其他人有用，

将整个列复制到剪贴板 在Chrome或Firefox上打开这个

data：text/html，<button onclick=“document.write（document.body.querySelector（'textarea'）.value.split（'\n'）.map（x => '<a href=</a>\'' + x + '\'>' + x + ''）.join（''））<br>”>Linkify</button><br><textarea></textarea>

将该栏粘贴到刚刚在浏览器上打开的页面上，然后按“链接”键 将结果从选项卡复制到Excel的列中

代替第二步，您可以使用下面的页面，首先，单击“运行代码片段”，然后将列粘贴在上面 <按钮onclick = " document . write (document.body.querySelector(文本区域).value.split(“\ n”)。地图(x = > < a href = \”+ x + '\'>' + x + < / >) . join(“< br >”))按钮“>其内< / > < br > < textarea > < / >文本区域

谢谢仙后座的代码。我更改了他的代码，使其与本地地址一起工作，并对他的条件做了一些更改。我删除了以下条件:

将http:/修改为file:/// 删除了所有类型的空白条件 改变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