创建宏如下所示:

在microsoftexcel的“工具”菜单上指向“宏”，然后单击“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

粘贴完宏后，单击“文件”菜单上的“关闭并返回到microsoftexcel”。

然后选择所需的单元格，单击宏，然后单击运行。

说明不要选择整个列!只选择单元格，你希望被改变为可点击的链接，否则你将结束在一个永无休止的循环，并必须重新启动Excel! 完成了!

有一个非常简单的方法。创建一个超链接，然后使用格式绘制器复制格式。它将为每个项目创建一个超链接。

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

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

如果不允许添加带有超链接的额外列， 另一种方法是使用外部编辑器将您的超链接包含到=hyperlink(" and ")，以获得=hyperlink("originalCellContent")

如果你有notepad++，这是一个你可以用来半自动执行这个操作的配方:

Copy the column of addresses to Notepad++ Keeping ALT-SHIFT pressed, extended your cursor from the top left corner to the bottom left corner, and type =hyperlink(". This adds =hyperlink(" at the beginning of each entry. Open "Replace" menu (Ctrl-H), activate regular expressions (ALT-G), and replace $ (end of line) with "\). This adds a closed quote and a closed parenthesis (which needs to be escaped with \ when regular expressions are activated) at the end of each line. Paste back the data in Excel. In practice, just copy the data and select the first cell of the column where you want the data to end up.

对于使用Excel 2016登陆这里的任何人，您可以简单地突出显示该列，然后单击样式框中Home ribbon上的超链接选项卡。

编辑:不幸的是，这只更新单元格样式，而不是函数。

我发现，如果超链接不包括http://，因为它们链接到本地位置，那么这里的方法都不起作用。

我还想让脚本万无一失，因为用户无法自己维护它，而我也无法使用。

它只会在选定范围内包含点且没有空格的单元格上运行。它最多只能运行1万个细胞。

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