☰

将超链接从一张工作表复制到多张其他工作表

tag-icon • tag-icon microsoft-excel microsoft-excel-2016
将超链接从一张工作表复制到多张其他工作表

我有一本有 12 张表的工作簿，每个月一张，分别名为 JAN、FEB 等。

我在 JAN 的 B2 单元格中有一个超链接，该超链接跳转到 JAN 的 B200 单元格。我想将该超链接复制到所有其他工作表，但当我这样做时，超链接的范围不会更改为新工作表，它仍然引用 JAN

那么，如何将超链接从一张工作表复制到另一张工作表，并让链接引用新工作表上的位置，而不是创建链接的工作表

谢谢

答案1

Sub LocalizeAllHyperlinks()
Dim sh As Worksheet
Dim lnk As Hyperlink
For Each sh In Sheets
    For Each lnk In sh.Hyperlinks
        lnk.SubAddress = "'" & sh.Name & "'!" & Split(lnk.SubAddress, "!")(1)
        ' lnk.TextToDisplay = lnk.SubAddress
    Next
Next
End Sub

此子程序将工作簿中的所有超链接定位到它们所属的工作表，而无需进行任何检查。除当前工作簿中单个单元格的超链接外，所有超链接都将被破坏！

相关内容