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
http://www.trirand.com/blog/
http://trirand.com/jqgrid/jqgrid.html#
