如何從 Excel 中的超連結提取實際地址？

假設您有一個包含超連結的單元格區域，現在您需要查看這些超連結的真實目標並將它們從超連結中提取出來，如下方截圖所示。有沒有什麼簡單的方法可以快速解決這個問題呢？本文將指導您從多個超連結中提取實際地址。

使用「編輯超連結」功能從超連結中提取實際地址

使用 Kutools for Excel 快速輕鬆地從超連結中提取實際地址

使用 VBA 代碼從超連結中提取實際地址

使用用戶自定義函數從超連結中提取實際地址

使用「編輯超連結」功能從超連結中提取實際地址

這裡，「編輯超連結」功能可以幫助您提取每個超連結的底層 URL，並將該實際地址放入另一個單元格中。您可以按照以下步驟操作：

1. 選擇帶有超連結的單元格並右鍵單擊，在彈出的快捷菜單中選擇「編輯超連結」，請參見截圖：

2. 接著會出現一個「編輯超連結」對話框，選擇並複製（Ctrl+C）對話框中「地址」欄位中的整個 URL。

3. 然後關閉對話框並將實際地址粘貼到您想要的任何單元格中。

注意：使用此方法，每次只能提取一個超連結地址，但如果有多個超連結需要提取，則需要重複應用此功能。

使用 Kutools for Excel 快速輕鬆地從超連結中提取實際地址

這裡有一個方便的工具，稱為 Kutools for Excel，通過其「轉換超鏈接」功能，您可以快速處理以下操作：

• 從超連結中提取實際地址；
• 將 URL 文本轉換為可點擊的超連結。

如果您已經安裝了 Kutools for Excel，請按照以下步驟操作：

1. 選擇包含需要提取的超連結的區域。

2. 點擊 Kutools > 連結 > 轉換超鏈接，請參見截圖：

3在 轉換超鏈接 對話框中，選擇 超鏈接地址替換單元格內容 選項，然後點擊 按鈕來自 結果範圍 指定一個單元格來放置結果。

4. 然後點擊「確定」，實際地址已從超連結中提取出來。請參見截圖：

注意：如果您想將實際地址放到原始範圍內，請勾選「轉換來源區域」。

立即下載並免費試用 Kutools for Excel！

使用 VBA 代碼從超連結中提取實際地址

對於大量超連結，上述方法可能會繁瑣且耗時，因此以下 VBA 代碼可以幫助您一次性快速提取多個地址。

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模組，並將以下代碼粘貼到模組窗口中。

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. 然後按下 F5 鍵運行代碼，會彈出一個對話框讓您選擇要提取真實地址的超連結，請參見截圖：

4. 然後點擊「確定」，所選單元格內容已被轉換為原始範圍內的真實超連結地址。請參見截圖：

使用用戶自定義函數從超連結中提取實際地址

以下用戶自定義函數也可以從超連結中提取實際 URL。

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模組，並將以下代碼粘貼到模組窗口中。

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. 保存代碼並關閉窗口，選擇一個空白單元格輸入公式 =GetURL(A2) （A2 是包含超連結的單元格），然後按下 Enter 鍵。您可以看到真實的超連結地址已被提取。

相關文章：

如何在 Excel 中將 URL 文本轉換為可點擊的超連結？