工具>宏>编辑新宏>输入以下代码>执行【ALT+F11》插入模块》输入代码》F5执行即可】
Sub 提取超链接() For Each cell In Range("A1:A236") cell.Offset(0, 1)=cell.Hyperlinks(1).ADDRESS Next End Sub
说明:其中
A1:A236
是待提取链接区域。
延伸知识:文本批量加超链接时候就相对简单多了,直接采用函数:
=hyperlink(链接文本,链接地址)
例如:=hyperlink(B2,A2)
工具>宏>编辑新宏>输入以下代码>执行【ALT+F11》插入模块》输入代码》F5执行即可】
Sub 提取超链接() For Each cell In Range("A1:A236") cell.Offset(0, 1)=cell.Hyperlinks(1).ADDRESS Next End Sub
说明:其中
A1:A236
是待提取链接区域。
延伸知识:文本批量加超链接时候就相对简单多了,直接采用函数:
=hyperlink(链接文本,链接地址)
例如:=hyperlink(B2,A2)