Office中国论坛/Access中国论坛

标题: 如何提取单元格上的超级连接信息 [打印本页]

作者: williamlee 时间: 2004-9-5 18:26
标题: 如何提取单元格上的超级连接信息
如：A列上有超级连接信息，我想把这超级连接信息显示到B列上该怎么做？

作者: tanjh 时间: 2004-9-13 23:17
Dim i As Integer

For i = 1 To ActiveSheet.Range("a:a").Hyperlinks.Count

ActiveSheet.Range("b" & i) = ActiveSheet.Range("a1:a65536").Hyperlinks(i).Address

Next i

[此贴子已经被作者于2004-9-13 15:17:55编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)