假设我们在工作表中使用定义的名称通过**HYPERLINK（）**函数实现了超链接。例如：

=HYPERLINK("#MyCell","destination")

并且我们想将它们转换为插入的超链接。选择包含公式的单元格并运行这个小宏：

Sub HyperConverter()
    Dim r As Range, s As String, rLook As Range
    Dim DQ As String
    DQ = Chr(34)
    Set rLook = Intersect(ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas), Selection)
    If Not rLook Is Nothing Then
        For Each r In rLook
            s = r.Formula
            If InStr(s, "HYPERLINK") > 0 And InStr(s, "#") > 0 Then
                ary = Split(s, DQ)
                r.Clear
                ss = Mid(ary(1), 2, 9999)
                ActiveSheet.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:=ss, TextToDisplay:=ary(3)
            End If
        Next r
    End If
End Sub

当我需要基于单元格范围内容生成超链接时，我遇到了类似的情况。我所做的：
1.使用HYPERLINK Excel函数基于单元格范围生成链接
1.在Word中复制了生成的列：这是摆脱公式，并生成一个带有链接的表。
1.已将Word中的内容复制到Excel中。现在Excel中单元格的内容是显示文本，并且单元格具有构建它的超链接。