Sub test()For I = 1 To 100 ' 設定要抓到第幾列Cells(I, 2) = Cells(I, 1).Hyperlinks(1).Address '超連結存放的位置NextEnd Sub
張貼留言
沒有留言:
張貼留言