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

ms excelmicrosoft technologiescomputers更新于 2025/3/4 16:12:17

您是否尝试过在 Excel 中将文本转换为超链接?如果您遇到任何困难，本文将帮助您完成任务。HYPERLINK 函数会创建一个快捷方式，用于跳转到当前工作簿中的其他位置，或打开存储在网络服务器、内联网或互联网上的文档。

当您点击包含 HYPERLINK 函数的单元格时，Excel 会跳转到列出的位置或打开您指定的文档。如果您尝试使用右键菜单中的直接菜单将文本转换为 Excel 中的超链接，那么这可能是一个枯燥乏味的过程。此外，如果文本分散在工作表的不同位置(即不是以列表的形式)，那么完成我们的任务可能非常耗时。我们可以使用 VBA 应用程序更快地解决这个问题。阅读本教程，了解在 Excel 中将 URL 文本转换为可点击超链接的过程。

在 Excel 中将 URL 文本转换为可点击超链接

首先，我们将打开 VBA 应用程序，并使用 VBA 代码将 URL 转换为超链接。让我们看一个使用 VBA 应用程序将 URL 文本转换为可点击超链接的简单过程。

步骤 1

假设有一个 Excel 工作表，其中包含类似于下图的 URL 文本列表。

现在右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 ->查看代码

步骤 2

点击"插入"，选择"模块"，然后在文本框中输入以下程序代码 -

程序

Sub ConvertToHyperlinks()
'Updated By Nirmla
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Converrt Hyper Link"
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