如何将单元格引用列表转换为其他工作表中的单元格为超链接

时间:2013-03-26 19:05:52

标签: excel excel-vba vba

我有一个摘要工作表,其中包含对同一工作簿中其他工作表的引用。引用是简单的公式(即= Sheet2!D23)。我想将这些转换为超链接。我希望超链接显示引用单元格的值。

我可以单独执行此操作,但电子表格很大,并且有数百个这样的参考。

有人可以建议一种更简单的方法将这些引用批量转换为超链接吗?

1 个答案:

答案 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