如何把html裡面帶有連結的文字導入excel 實作文字與連結分離

以“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~