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

Question

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

我可以单独做到这一点，但电子表格很大，并有数百个这些参考。

有人可以建议一个更简单的方法批量转换这些引用超链接？

Answer 1

选择包含要链接的单元格的范围，然后运行此宏。
它只会链接驻留在不同工作表上的值，不会链接到当前工作表上的单元格。如果您想链接所有单元格，即使该值来自同一张表格，只需删除围绕rng.Hyperlinks.Add rng, "", Replace(rng.Formula, "=", "")的If..End If包装。

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