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