Excel2007を利用しています。

VBAで作ってみました。

実行すると、B列のHYPERLINK関数の形式から、A列にハイパーリンクを追加します。

Sub ChangeHyperlinks()
    
    Dim r As Long
    Dim m As Long
    Dim t As String
    Dim url As String
    
    m = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
    For r = 1 To m
        t = Trim$(Cells(r, 2).Formula)
        If Left$(t, 10) = "=HYPERLINK" Then
            t = Left$(t, Len(t) - 2)             ' 右端の ") を削除
            t = Right$(t, Len(t) - 12)           ' 左端の =HYPERLINK(" を削除
            url = Left$(t, InStr(t, """") - 1)   ' URL切出し
            Cells(r, 1).Value = _
                Right$(t, Len(t) - Len(url) - 3) ' 別名を切出し、A列にセット
            ActiveSheet.Hyperlinks.Add _
                Cells(r, 1), url                 ' リンク追加
        End If
    Next r
    
End Sub

URLはダミー

http://q.hatena.ne.jp/1200671971