1、首先把待提取链接复制到新excel表中

2、点击开发工具

3、点击Visual Basic

4、输入代码函数定义:
Sub test()
For Each cell In Range("A1:A11")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub

5、完成

1、首先把待提取链接复制到新excel表中

2、点击开发工具

3、点击Visual Basic

4、输入代码函数定义:
Sub test()
For Each cell In Range("A1:A11")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub

5、完成
