excle文本超链接网址提取

工具>宏>编辑新宏>输入以下代码>执行【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)

本文链接：https://www.weguiding.com/excel/549.html