Alt+F11
Sub test()
For Each cell In Range("A2:A48")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
本文介绍了一个简单的VBA宏示例,该宏用于遍历指定范围内的单元格,并从每个单元格中提取超链接地址,然后将其放置在相应单元格旁边的一列中。此代码适用于需要批量获取Excel表格内超链接的情况。
Alt+F11
Sub test()
For Each cell In Range("A2:A48")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
479
4772

被折叠的 条评论
为什么被折叠?