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