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、完成

时间:2026-02-12 23:37:08
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、完成
