请问如何提取超级链接，谢谢！

robinyuan

如在A1单元格有一个超级链接，如何把该超级链接的地址，如http://club.excelhome.net提取后放到A2单元格，谢谢！

Long_III

手动改呗，编辑》超级链接，原先怎么做的就怎么改

如果大规模的修改的话，就得编程了

robinyuan

编程的话，提取超级链接的函数是什么呢？Thx!

Long_III

Hyperlinks 集合用法
可用 Hyperlinks 属性返回 Hyperlinks 集合。下例检查第一张工作表上包含单词“Microsoft”的链接的超链接。

For Each h in Worksheets(1).Hyperlinks
If Instr(h.Name, "Microsoft") <> 0 Then h.Follow
Next
可用 Add 方法创建一个超链接，并将其添加到 Hyperlinks 集合中。下例为单元格 E5 新建一个超链接。

With Worksheets(1)
.Hyperlinks.Add .Range("E5"), "http://www.gohere.com"
End With

robinyuan

谢谢Long_III！

刚搜索了一下，http://club.excelhome.net/viewthread.php?tid=8180&replyID=&skin=0

请打开VBA编辑器\插入\添加模块,将下列代码拷入
Function Getname(HyCell) Application.Volatile True Getname = HyCell.Hyperlinks(1).Name End Function 返回EXCEL,在任一表元输入 =Getname(A1),即可看到结果,括号内为包含超级链接的表元地址,将此函数复制即可(即使用上同于其他函数)