高效能办公——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 为显示文本 使用方法：

在这里插入图片描述