excle文本超链接网址提取

工具>宏>编辑新宏>输入以下代码>执行【ALT+F11》插入模块》输入代码》F5执行即可】

Sub提取超链接()
ForEachcellInRange("A1:A236")
cell.Offset(0,1)=cell.Hyperlinks(1).Address
Next
EndSub

说明：其中

A1:A236

是待提取链接区域。

延伸知识：文本批量加超链接时候就相对简单多了，直接采用函数：

=hyperlink(链接文本,链接地址)

例如：=hyperlink(B2,A2)