在 Excel 中，我粘贴了一堆 URL，但它们不是实时链接——如何将它们批量转换为实时链接？

Question

在 Excel 中，我将一堆 URL 粘贴到一列中。

然而，粘贴后它们并不是有效链接。

我如何快速将它们批量转换为实时链接？

Answer 1

这应该可以解决问题。

Sub Test()
  Dim rngRange As Range
  For Each rngRange In Selection
    If Trim(rngRange.Value) <> "" Then
      rngRange.Hyperlinks.Add _
               Anchor:=Cells(rngRange.Row, rngRange.Column), _
               Address:=rngRange.Text, _
               ScreenTip:=rngRange.Text, _
               TextToDisplay:=rngRange.Text
      End If
  Next rngRange
End Sub

如果您需要经常这样做，我会将其连接到键盘快捷键。

要在 Excel 2010 中实现此目的（赞美的@Excellll）

1. 转到“查看”，然后单击“宏”按钮。
2. 这将打开一个对话框，询问新宏的名称。输入“测试”并单击“创建”。
3. 这将打开 VBA 编辑器。将上面的代码复制到这个新窗口中。
4. 现在转到您的电子表格并选择包含要修复的超链接的单元格范围。
5. 返回 VBA 编辑器。按 F5。这将执行代码。