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-04-22 18:29:52
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、完成
