2013年6月10日 星期一

取得Excel儲存內的超連結

Sub test()
For I = 1 To 100 ' 設定要抓到第幾列
Cells(I, 2) = Cells(I, 1).Hyperlinks(1).Address '超連結存放的位置
Next

End Sub

沒有留言: