- 博客(1)
- 收藏
- 关注
转载 提取excel中的链接地址
Alt+F11 Sub test() For Each cell In Range("A2:A48") cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next End Sub
2016-06-21 10:17:26 948
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人
Alt+F11 Sub test() For Each cell In Range("A2:A48") cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next End Sub
2016-06-21 10:17:26 948
TA创建的收藏夹 TA关注的收藏夹
TA关注的人