如何從Excel中的超鏈接中提取實際地址？

假設您有一個包含超鏈接的單元格區域，現在您需要查看超鏈接的實際目的地，並從超鏈接中提取它們，如下面的屏幕截圖所示。 有沒有簡單的方法可以快速解決此問題？ 本文將指導您從多個超鏈接中提取實際地址。

使用“編輯超鏈接”功能從超鏈接中提取實際地址

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

使用VBA代碼從超鏈接中提取實際地址

使用用戶定義功能從超鏈接中提取實際地址

使用“編輯超鏈接”功能從超鏈接中提取實際地址

在這裡， 編輯超鏈接 函數可以幫助您提取每個超鏈接的基礎URL並將該實際地址放入另一個單元格中。 您可以這樣做：

1。 選擇帶有超鏈接的單元格，然後單擊鼠標右鍵，從上下文菜單中選擇 編輯超鏈接，請參見屏幕截圖：

2。 和 編輯超鏈接 對話框將會出現，選擇並複制（按Ctrl + C）來自 地址 對話框的字段。

3。 然後關閉對話框，然後將實際地址粘貼到所需的任何單元格中。

備註：使用此方法，每次只能提取一個超鏈接地址，但是如果需要提取多個超鏈接，則需要重複應用此功能。

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

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

• 從超鏈接中提取實際地址;
• 將網址文字轉換為可點擊的超鏈接.

如果你已經安裝 Excel的Kutools，請執行以下操作：

1。 選擇包含需要提取的超鏈接的範圍。

2。 點擊 庫工具 > Link > 轉換超鏈接，請參見屏幕截圖：

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

4。 然後點擊 OK，實際地址已從超鏈接中提取。 看截圖：

備註：如果您想將實際地址放到原始範圍內，請檢查 轉換來源範圍.

立即下載和免費試用Excel的Kutools！

使用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。 然後點擊 OK，並且所選單元格內容已轉換為原始範圍內的實際超鏈接地址。 查看屏幕截圖：

使用用戶定義功能從超鏈接中提取實際地址

以下用戶定義函數也可以從超鏈接中提取實際的URXNUMX。

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文本轉換為可單擊的超鏈接？