Excel VBA - 引用超链接的单元格

Question

让我描述一下我的情况，

基本上，有一个名为'test'的单元格，其中包含名为Click Me的文本，其中包含一个超链接。 我想将这个单元格及其超链接引用到另一个单元格中。

例如： - 小区标识符名称：测试       姓名：点击我       超链接：www.google.com

这里我想将Test与其超链接一起引用到另一个单元格中 P.S = Test仅给出Cell Identifier的值（Click Me） 但我想要“点击我的超链接”。

这可能吗？

提前致谢

Link

Answer 1

试试这个：

Sub CopyHyperlinks()
    Dim Source As Range
    Dim Destination As Range
    Dim SearchRange As Range

    Set SearchRange = Sheets(1).Range("A1:A5") '---> set your range here
    Set Source = SearchRange(1, 1)
    Set Destination = Sheets(1).Range("B1") '---> range will be copied here

    For Each Source In SearchRange
        If Source.Hyperlinks.Count > 0 Then
            Destination.Hyperlinks.Add Destination, _
                Source.Hyperlinks(1).Address, , , Source.Text
        End If
        Set Destination = Destination(2, 1)
    Next Source
End Sub

来自here。