如何使用VBA提取Excel中的超链接地址

1、打开如图带超链接的表格文件，下面的操作将会提取B列中的超链接到D列，所以将D列拉宽一些；

2、按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【批量获取单元格超链接】；

3、通过循环语句依次遍历单元格（For Each cell In Range("B3:B12")  Next)；

4、在循环体中加入语句cell.Offset(0, 2) = cell.Hyperlinks(1).Address，取单元格的超链接地址并赋值给所在单元格右边第二个单元格；

5、执行完宏代码后，返回表格可看到超链接已经被提取到D列中。