新建個Excel2010然後開啟，把有連結的字串 複製到excel裡面去，如下：

然後 點“檔案”有個選項：

會彈出選項框，然後點 “快速訪問工具欄”

然後在紅色地方選“開發工具 選項卡”，再把下面左側的東西全部 新增 到 右面。然後確定。

然後 上面的工具欄就會有你剛才新增的東西，點選 ”選擇程式碼“ 按鈕：

點選 ”選擇程式碼“ 按鈕：之後就會出現另一個介面：

然則把下面這段程式碼考到 裡面去：
Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub
如下圖：

 然後在原來的Excel裡面點選”檢視巨集“按鈕：

然後點執行 就ok了：
結果如下：

請注意：，這段程式碼裡面有個（0,1）表示的事第0列第一行，所以該巨集的執行 是從第0列第一行開始執行的，如果該單元格沒有值就會出錯。