工具>宏>编辑新宏>输入以下代码>执行【ALT+F11》插入模块》输入代码》F5执行即可】
Sub提取超链接()
ForEachcellInRange("A1:A236")
cell.Offset(0,1)=cell.Hyperlinks(1).Address
Next
EndSub
说明：其中
A1:A236
是待提取链接区域。
延伸知识：文本批量加超链接时候就相对简单多了，直接采用函数：
=hyperlink(链接文本,链接地址)
例如：=hyperlink(B2,A2)
首页>实用小技巧>excel>正文
excle文本超链接网址提取
2019-06-22猜你喜欢
- 24-01-29 VBA代码的作用
- 24-01-29 excle中VBA代码的写作教程
- 23-12-13 excle数据透视与数据看板动态调用数据区域
- 23-09-26 Excel BIN2OCT 函数用法详解及示例
- 23-09-26 Excel BIN2HEX 函数用法详解及示例
- 23-09-26 Excel BIN2DEC 函数用法详解及示例
- 23-09-26 Excel BETAINV 函数用法详解及示例
- 23-09-26 Excel BETADIST 函数用法详解及示例
- 23-09-26 Excel BETA.INV 函数用法详解及示例
