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列中。
