☰

如何粘贴一列超链接？

tag-icon • tag-icon microsoft-excel
如何粘贴一列超链接？

这似乎是一个简单的问题，但我不知道答案。如何粘贴一堆超链接？

请查看我发布的截图。

Excel 屏幕截图

如您所见，我有一列文本。每行文本实际上是一个超链接。我不需要文本，但我需要 URL。如何将所有这些文本行粘贴为 URL？我以为有一个“选择性粘贴”选项，但如果有，我没有看到它。

目前，我逐个单元格地操作，右键单击“编辑超链接”，然后手动复制和粘贴。这相当繁琐，所以我想知道如何一次性完成所有操作（如果可能的话）。

有任何想法吗？

答案1

首先正常粘贴。然后选择粘贴的块并运行这个简短的宏：

Sub HyperFixer()
    Dim h As Hyperlink
    Dim rng As Range
    For Each h In ActiveSheet.Hyperlinks
        Set rng = h.Range
        If Not Intersect(rng, Selection) Is Nothing Then
            h.TextToDisplay = h.Address
        End If
    Next h
End Sub

每个超链接的“友好”名称将被更改以反映实际情况网址。

相关内容