君语贤
时光静好,与君语;细水流年,与君同;繁华落尽,与君老...

实用小技巧>excel>正文

excle文本超链接网址提取

2019-06-22 14:38 君语贤excle文本超链接网址提取

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

excle文本超链接网址提取

Sub 提取超链接()
     For Each cell In Range("A1:A236")
     cell.Offset(0, 1)=cell.Hyperlinks(1).Address
     Next
End Sub

excle文本超链接网址提取

说明:其中

A1:A236

是待提取链接区域。

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

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

例如:=hyperlink(B2,A2)

excle文本超链接网址提取

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