把excel 欄中的url 複制到指定位置
Dim iRow As Integer
iRow = 1
For Each h1 In Worksheets("sheet1").[B1:B10].Hyperlinks
'MsgBox "在儲存格: " & h1.Range.Address & " 裡有超連結到: " & h1.Address
'Worksheets("sheet1").Cells(iRow, 5).Value = h1.Range.Address '儲存格範圍
Worksheets("sheet1").Cells(iRow, 6).Value = h1.Address '連結位址
iRow = iRow + 1
Next