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

End Sub
arrow
arrow
    全站熱搜
    創作者介紹
    創作者 alyoou 的頭像
    alyoou

    電腦學習園地

    alyoou 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄