大批量超連結的資料，要如何截取其連結網址？

如題，要將含有超連結(HyperLink)的文字，萃取出它的超連結網址，這是一個超連結的”反向工程”。
在 Excel 中，要設定一串文字，使其具有超連結的作用，可以用
1. 手動操作設定
2. 配合 Excel 公式 設定
反之，若是要取得相關超連結的網址，可能就要用 VBA 才能完成。
但是，並不是每個人都懂 VBA，那該如何處理呢 !!

   1:  Sub link()

   2:      Dim i As Integer

   3:      Dim DataRows As Integer

   4:      

   5:      Cells(1, 1).Select

   6:      Selection.End(xlDown).Select

   7:      DataRows = ActiveCell.Row()

   8:      

   9:      i = 1

  10:      Do While i <= DataRows

  11:          Cells(i, 2) = Cells(i, 1).Hyperlinks(1).Address

  12:          

  13:          i = i + 1

  14:      Loop

  15:  End Sub

相關函數寫好後，再設計一個按鈕，給操作者使用。

只要按下 [產生 超連結 資料] 按鈕，相關 連結網址 資料，就可以正確取得。是不是很方便呀 !!