把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