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