- 确定”宏“可以正常使用后;直接在Excel中同时按Alt和F11进入宏界面的菜单
在宏界面的菜单→插入→模块→粘贴下代码:
Sub test() For Each cell In Range("A1:A11") cell.Offset(0,1) = cell.Hyperlinks(1).Address Next End Sub
注:代码中A1:A11为实际有超链接单元格区域,所以在你直接操作的时候,需要根据你实际有超链接单元格的区域进行调整
- 在宏界面,直接按F5运行此宏,运行完成后,关闭宏界面即可
Comments | NOTHING