以“http://uedfans.cn/”这个网站里面UX团队下面的链接文字为例
1、新建一个excel文档
选择数据--来自网站,导入网站内容
想要获得带有链接地址的网页文字记得要选择“完全HTML”格式--详情查看第五步,然后点击转到
点击转到之后的界面 加载完成之后点击导入 这个页面的所有文字和链接就导入到excel中了
直接点击确定
里面有很多我们不需要的内容 把不需要的单元格删除 只留下含有“UX团队”标题下面的内容
整理后的单元格为A2--A75
现在已经成功一半了 如何把链接分离出来呢?看下面代码 打开宏界面记得摁“ALT+F11”啊亲
Sub test()
For Each cell In Range("A2:A48")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
将A2:A48换成A2:A75 然后摁“F5”即可到见证奇迹的阶段了
这就是科技的力量啊~~~~O(∩_∩)O~