如何在Excel中将一堆文本URL转换为可点击的超链接？

如果你有一系列纯文本格式的URL地址，如何将这些文本URL激活为如下截图所示的可点击超链接呢？

使用公式将一堆文本URL转换为可点击的超链接

使用Kutools for Excel将一堆文本URL转换为可点击的超链接

使用VBA代码将一堆文本URL转换为可点击的超链接

使用公式将一堆文本URL转换为可点击的超链接

逐个双击单元格以激活超链接会浪费大量时间。这里我可以为你介绍一些公式，请按照以下步骤操作：

在你想要输出结果的空白单元格中输入此公式： =HYPERLINK(A2, A2)，然后向下拖动填充柄以将此公式应用到其他需要的单元格中，所有文本URL都将被转换为可点击的超链接，见截图：

使用Kutools for Excel将一堆文本URL转换为可点击的超链接

这里有一个方便的工具——Kutools for Excel，通过其“转换超链接”功能，你可以快速 将一堆文本URL转换为可点击的超链接，并从超链接文本字符串中提取真实的超链接地址。

安装Kutools for Excel后，请按以下步骤操作：

1. 选择包含要激活的文本URL的单元格。

2. 然后点击 Kutools > 链接 > 转换超链接，见截图：

3. 在“转换超链接”对话框中，在“转换类型”部分下选择“单元格内容转超链接地址”选项，如果你想将实际地址放入原始区域，请勾选“转换来源区域”，见截图：

4. 然后点击“确定”按钮，文本URL将立即被激活，见截图：

注意：如果你想将结果放到另一个单元格而不是原始单元格，请取消勾选“转换来源区域”，并从“结果区域”中选择一个你需要输出结果的单元格，如下图所示：

立即点击下载Kutools for Excel并免费试用！

使用VBA代码将一堆文本URL转换为可点击的超链接

以下VBA代码也可以帮助你解决此任务，请按以下步骤操作：

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

2. 点击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：将一堆文本URL转换为可点击的超链接：

Sub activateHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
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 Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

3. 然后按 F5 键运行此代码，会弹出一个提示框，提醒你选择要转换为可点击超链接的单元格，见截图：

4. 然后点击“确定”按钮，纯文本URL已被转换为可点击的超链接，见截图：