我有一个摘要工作表,其中包含对同一工作簿中其他工作表的引用。参考是简单的公式(即=Sheet2!D23)。我想将这些转换为超链接。我希望超链接显示引用单元格的值。
我可以单独执行此操作,但电子表格很大,并且有数百个这样的参考。
有人可以建议一种更简单的方法将这些引用批量转换为超链接吗?
选择包含您要链接的单元格的一系列单元格,然后运行此宏。
它只会链接驻留在不同工作表上的值,不会链接到当前工作表上的单元格。如果您想链接所有单元格,即使值来自同一张表,只需If..End If
删除rng.Hyperlinks.Add rng, "", Replace(rng.Formula, "=", "")
.
Sub makeLinks()
Dim rng As Range
For Each rng In Selection
If rng.Formula Like "=*!*" Then
rng.Hyperlinks.Add rng, "", Replace(rng.Formula, "=", "")
End If
Next rng
End Sub