忙碌在路上

摘要： #获取制定单元格内超链接对应的链接地址Sub geturi() For Each cell In Range("E3:E43") If cell.Hyperlinks.Count 0 Then cell.Offset(0, 7) = cell.Hyperlinks(1).Address End If Next End Sub #获取这些路径对应文档的最后修改时... 阅读全文