标题: 我是初学者 有个问题一直在问 [打印本页] 作者: wyfcl77 时间: 2009-11-20 13:19 标题: 我是初学者 有个问题一直在问 我想批量把excel里的超级链接地址导出到文本里最好和题目一起 请问怎么做作者: pureshadow 时间: 2009-11-20 21:48
Sub test()
Dim i As Long
For i = 1 To 10
Range("c" & i) = Range("a" & i).Hyperlinks(1).Address
Next
End Sub作者: wyfcl77 时间: 2009-11-21 12:03
感谢管理员 你的宏我试过了可以用 但是不能把所有链接都显示出来 只能显示几个 不知道怎么回事。而且还有个问题不知道可以在这咨询不？因为工作原因我需要经常把一些论坛的栏目帖子 链接导入到excel里 但为什么导出后有些帖子标题带有超级链接有些没有呢作者: pureshadow 时间: 2009-11-21 15:31
我的示例中i是设置成1 to 10的，具体的数量还是要根据你自己表中的内容
也可以设置成
for i = 1 to range("a65536").end(xlup).row
从1到A列的最后一个