Excel/Power BI批量提取网页链接

Excel/Power BI批量提取网页链接，以豆瓣电影Top250为例演示，网址为https://movie.douban.com/top250

操作视频如下：

https://www.zhihu.com/zvideo/1337092040166019072

Excel以VBA方式演示实现，适用于各种Excel版本：

Sub 提取链接()

Dim i

For i = 3 To 24 Step 8 '从第一行到最后一行，间隔8行

Range("B" & i) = Range("A" & i).Hyperlinks(1).Address

Next

MsgBox "完成"

EndSub

首先确认电影链接起始于哪行（3），下一个电影链接在哪行（11），得到每个链接间隔8行。因此，For循环的步长是8。

Power BI零代码实现，关键点是“使用示例添加表”：

输入一个示例看Power BI能否准确识别整个网页内容，如无法识别，接着再输入一个。

由这个案例可以看出，Power BI中的Query取代了很多VBA的工作。在处理数据方面，VBA发挥的余地越来越小，Excel/Power BI 中的Query更加智能与强大。

但是，VBA目前无法被取代，Power 仅擅长数据，对工作簿、工作表、图片等对象的操作，VBA仍然是利器。