巧用宏工具提取Excel文字中带的超链接

标题和日期分列开来后就要开始批量提取超链接了,在进行批量处理之前,我们需要确保我们的Excel的宏是能正常使用的,office excel的宏在”工具→宏“。(wps个人版默认是不支持宏的,如果你使用的是wps,需要安装宏)这里主要讲一下office的操作方法,确保表格的宏启用后,按住ALT+F11进入宏菜单界面:

在宏界面的菜单→插入→模块→粘贴下代码:

 

Sub test()

For Each cell In Range("B1:B21")

cell.Offset(0, 1) = cell.Hyperlinks(1).Address

Next

End Sub

注意事项:代码中A1:A21为实际有超链接单元格区域,即标题的实际行数,所以操作的时候需要根据你实际有超链接单元格的区域进行调整