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

2、点击开发工具

3、点击Visual Basic

4、输入代码函数定义:Sub test()For Each cell In Range("A1:A11")cell.Offset(0, 1) = ce造婷用痃ll.Hyperlinks(1).AddressNextEnd Sub

5、完成

时间:2024-10-18 21:02:03
1、首先把待提取链接复制到新excel表中
2、点击开发工具
3、点击Visual Basic
4、输入代码函数定义:Sub test()For Each cell In Range("A1:A11")cell.Offset(0, 1) = ce造婷用痃ll.Hyperlinks(1).AddressNextEnd Sub
5、完成