如何從Excel中的超連結中抓取網址URL【批次轉換XLS儲存格為真實網址的方法】

在 EXCEL裡，附有超連結的文字儲存格，可打開滑鼠右鍵選單，再透過「編輯超連結」將網址複製起來。

不過它並不支援批次大量轉換，若筆數數量大將會很困擾!

大量抓取儲存格內網址的方法，EXCEL 內並沒有簡單的函數可利用，但有別的方式可以辦到。

如何從Excel中的超連結中抓取網址URL

以下是一個示範工作表，C2 到 C611都是內含 URL 的儲存格。

我們希望能將 URLs 全部抓出來，並存到 D2 到 D611。

在 EXCEL 內按下「ALT + F11」，畫面將彈出 Microsoft Visual Basic for Applications 視窗。

執行 VBA 「插入」選單內之「模組」。

批次轉換XLS儲存格為真實網址的方法

緊接著將出現一個編輯視窗。

複製貼上以下全部程式碼:

Sub copyurl()
For Each cell In Range("C2:C611")
cell.Offset(0，1) = cell.Hyperlinks(1).Address
Next
End Sub

複製貼上後，VBA 編輯畫面會變以下這樣。

如果你的 XLS 來源儲存格位於不同欄位，請更改為正確欄位 & 範圍。

我的範例是對應到「C2:C611」。

點選 VBA 「執行」選單之下的「執行 Sub 或 Userform」。

神奇的事出現了! 原本空白的 D 欄將逐一出現 URL 網址。

很快的 C 欄儲存格內的超連結已擷取出來，並全部儲存到 D 欄內。

做複製貼上沒有問題，確實是真實網址。

如果需要保留 VBA 巨集，請另存新檔為「EXCEL 啟用巨集的活頁簿」，將會以副檔名 xlsm 存檔。

(返回文章最開頭之索引區，請點擊)   

謝謝閱讀，Thank you! 敬請持續關注 鑫部落。心經營! (http://newguest88.pixnet.net/blog)

如果您喜歡這篇文章，歡迎到鑫部落粉絲團幫我們按讚(直接點擊此處 or 右邊浮動 FB or 下面連結 or 左側欄)，感恩!

歡迎點擊此處，訂閱鑫部落

合作信箱: mandy.sun@msa.hinet.net 

******************************** 

Title:如何從Excel中的超連結中抓取網址URL【批次轉換XLS儲存格為真實網址的方法】

Pixnet-1243

https://bit.ly/3a08L7C