取得Excel儲存內的超連結

Sub test()
For I = 1 To 100 ' 設定要抓到第幾列
Cells(I, 2) = Cells(I, 1).Hyperlinks(1).Address '超連結存放的位置
Next

End Sub