构造超链接

HYPERLINK(D1,C1)  ✍️构造超链接

提取超链接

1. sheet页→右键→查看代码（Alt+F11 ）
2. 粘贴如下代码，并保存
   

Sub link()
    Dim hl As Hyperlink
    For Each hl In ActiveSheet.Hyperlinks
        hl.Range.Offset(0, 1).Value = hl.Address
    Next
End Sub

3. 工具栏→运行→运行子过程
4. 可以查看到已提取所有超链接地址 （ 覆盖的方式写在超链接的右边一列）
   

批量打开多个链接

1. sheet页→右键→查看代码（Alt+F11 ）
2. 插入 → 模块 → 插入代码 → 保存
   

Sub 打开网页()
For Each A In Selection
Shell ("C:\Users\zhang\AppData\Local\Google\Chrome\Application\chrome.exe -url " & A.Value)
Next
End Sub

3. Alt+F8 → 执行
   
   参考：Excel—如何快速打开Excel中的多个链接/网址