|
需求：对excel表格中文字链接实现批量提取
方法：
第一步：现在需求提取链接的那一列后边新增一列。我上面截图已经插入了一列（P列）
第二部：按Alt+F11进入宏操作界面，选择插入-->模块，输入以下代码
Sub test()
For Each cell In Range("O2:0431")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
需要注意的是，Range()中的内容为要转换的那一列。我这里是转换O列第二行到第431行。这里可根据自己需求进行修改
第三步：点击F5运行该宏
运行结果：
| 
转播
