批量提取excel中的超链接

1. 打开开发者工具

2. 插入模块

3. 在模块中插入代码

Function GetHyperlink(cell As Range) As String
    On Error Resume Next
    GetHyperlink = cell.Hyperlinks(1).Address
    If Err.Number <> 0 Then
        GetHyperlink = ""
    End If
End Function

4. 使用的时候直接在单元格中输入公示

=GetHyperlink(A1)