实用小技巧>excel>正文
工具>宏>编辑新宏>输入以下代码>执行【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
猜你喜欢
- 22-06-16 excle创建动态数据区域，便于做数据透视
- 22-04-08 excle随机插入a-z字符
- 20-01-07 vlookup函数从中间开始查找
- 19-07-06 利用Excel实现图片批量命名
- 19-06-25 Excle表格多文件内容合并与多表单合并操作
- 19-06-22 excle文本超链接网址提取
- 19-05-15 Excel使用连接情况下小数强制百分数化
- 19-05-15 Excel数据表之间的数据同步引用
- 01-07vlookup函数从中间开始查找
- 05-15Excel使用连接情况下小数强制百分数化
- 06-25Excle表格多文件内容合并与多表单合并操作
- 05-15Excel数据表之间的数据同步引用
- 06-22excle文本超链接网址提取
- 06-16excle创建动态数据区域，便于做数据透视
- 04-08excle随机插入a-z字符
- 04-08excle随机插入a-z字符
- 01-07vlookup函数从中间开始查找
- 07-06利用Excel实现图片批量命名
- 06-25Excle表格多文件内容合并与多表单合并操作
- 06-22excle文本超链接网址提取
- 05-15Excel使用连接情况下小数强制百分数化
- 05-15Excel数据表之间的数据同步引用
- 04-08excle随机插入a-z字符
- 06-16excle创建动态数据区域，便于做数据透视
- 图文推荐
