Mac-Excel快速批量提取超链接

网上搜索不是安装格子工具就是一些不可行的方法，现记录此文章，通过Excel宏的方式，批量抓取隐藏的超链接

 

---

1、首先要找到设置宏的入口

 

1. 打开视图

   在Excel偏好设置中，点击视图。

   

    

    

2. 勾选开发工具选项卡

   在页面下侧的功能区中，勾选开发工具选项卡即可。

   

    

    

3. 查看选项卡

   返回Excel主页面后，在选项卡后侧即可看到开发工具选项卡。

   

 

2、Alt+F11或者直接点击跳转到开发工具-Visual Basic
在左上方VBA project空白处右键点击空白区域-插入-模块，放入以下函数

Function GetAdrs(Rng)
Application.Volatile True
With Rng.Hyperlinks(1)
GetAdrs = IIf(.Address = "", .SubAddress, .Address)
End With
End Function

或者

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

 

3、之后在超链接的列上插入一列使用对应的函数

 =GetAdrs(A1)