如果我后来删除了其中任何一个超链接，为什么excel会删除所有粘贴的超链接？

Question

我正在使用下面的代码将超链接从一个单元格复制到一个范围。
超链接已粘贴并正常工作，
但如果我后来从任何一个粘贴的超链接中删除了任何超链接，那么来自目标单元格的所有超链接都将被删除！！
这个问题发生在我使用vba（复制，粘贴

Sub Hyperlinks_Issue()
 
    Range("R2").Copy Range("N2:N15")
 
    Range("N2").Hyperlinks.Delete
 
End Sub

Answer 1

问题与Range（"R2"）这一事实有关。Copy Range（"N2： N15"）将R2中的超链接附加到N2： N15的整个范围。您可以通过随后立即插入以下代码来检查这一点：

调试。打印（范围（“N2:N15”）。超链接。计数）

这将返回1，这意味着整个范围只有一个超链接（而不是您可能期望的14）。如果您选中此项：

调试。打印（范围（“N2”）。超链接（1）。范围地址）

您将看到它返回$N2美元：$N15美元。因此，当您使用Range（“N2”）时。超链接。删除，您只需删除附加到整个范围的一个超链接。

要避免这种情况，请在目标区域的所有单元格中循环，并分别为每个单元格附加超链接。例如。

Sub copyHyperlinks()

For Each myCell In Range("N2:N15")

    Range("R2").Copy myCell

Next myCell

Debug.Print (Range("N2:N15").Hyperlinks.Count) '= 14

End Sub

现在，范围（“N2”）。超链接。删除只会删除此特定单元格中的超链接。