批量获取网页列表中的超链接

绝大部分网页都会存在列表，但是有时候我们需要的只是链接而不是标题，怎么办？ 小 Q 这里就有一个用 excel 快速获取列表链接的方法，方法如下：

首先，打开有你需要的列表网页，新建一个 excel，把列表中的内容直接复制粘贴到 excel 里面，贴完之后，接下来，我们在 excel 中按下 Alt+F11，在弹出的对话框中选择 “插入”→“模块”

在插入的模块里面输入如下代码：

代码：

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

输入完毕就可以把这个对话框关掉了。

好了，现在我们在右边的单元格（如第一个数据在A1）输入如下函数：

=GetActAddress(A1)

回车，看看结果吧，标题的链接已经出来了，这时候你只需要继续往下拉，所有的链接就都获取到了