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

让我描述一下我的情况，

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

例如： – 单元格标识符名称：testing名称：Click Me超链接：www.google.com

在这里，我想引用testing到另一个单元格连同其超链接PS =testing只给出了单元格标识符（单击我）的值，但我想要“点击我的超链接”。

这可能吗？

提前致谢

链接

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 

从这里得到这个。