我有一个摘要工作表,其中包含对同一工作簿中其他工作表的引用。引用是简单的公式(即= Sheet2!D23)。我想将这些转换为超链接。我希望超链接显示引用单元格的值。
我可以单独执行此操作,但电子表格很大,并且有数百个这样的参考。
有人可以建议一种更简单的方法将这些引用批量转换为超链接吗?
答案 0 :(得分:1)
选择包含您要链接的单元格的单元格范围,然后运行此宏
它只链接驻留在不同工作表上的值,它不会链接到当前工作表上的单元格。如果您要链接所有单元格,即使该值来自同一工作表,也只需移除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