我是初学者 有个问题一直在问

wyfcl77

我想批量把excel里的超级链接地址导出到文本里最好和题目一起 请问怎么做

pureshadow

Sub test()
Dim i As Long
For i = 1 To 10
    Range("c" & i) = Range("a" & i).Hyperlinks(1).Address
Next
End Sub

wyfcl77

感谢管理员 你的宏我试过了可以用 但是不能把所有链接都显示出来 只能显示几个 不知道怎么回事。而且还有个问题不知道可以在这咨询不？因为工作原因我需要经常把一些论坛的栏目帖子 链接导入到excel里 但为什么导出后有些帖子标题带有超级链接有些没有呢

pureshadow

我的示例中i是设置成1 to 10的，具体的数量还是要根据你自己表中的内容
也可以设置成
for i = 1 to range("a65536").end(xlup).row
从1到A列的最后一个