EExcel 丞燕快速查詢2

EExcel 丞燕快速查詢2
EExcel 丞燕快速查詢2 https://sandk.ffbizs.com/

把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