高效能办公——Excel提取超文本链接

提取超链接：
宏：alt+f11
插入模板
修改A1:A21：为选区范围根据实际情况调整
f5

Sub test()

For Each cell In Range("A1:A21")

cell.Offset(0, 1) = cell.Hyperlinks(1).Address

Next

End Sub

注意：具有局限性选区不可有 间隔/输出在右侧

二、插入超链接
使用excel中的HYPERLINK函数
HYPERLINK函数
含义：创建一个快捷方式（跳转），用来打开存储在网络服务器、Intranet或internet中的文件。
格式: HYPERLINK(link_location，friendly_name).
   其中：HYPERLINK 为函数名
   link_location 为链接位置
   friendly_name 为显示文本
使用方法：

PS：本文原创首发于公众号「让我遇见相似的灵魂」，回复关键字获取更多高效能办公资讯