Sub test()
For I = 1 To 100 ' 設定要抓到第幾列
Cells(I, 2) = Cells(I, 1).Hyperlinks(1).Address '超連結存放的位置
Next
End Sub文章標籤
全站熱搜
- 6月 10 週一 201314:13
取得Excel儲存內的超連結
Sub test()
For I = 1 To 100 ' 設定要抓到第幾列
Cells(I, 2) = Cells(I, 1).Hyperlinks(1).Address '超連結存放的位置
Next
End Sub