如何從Excel中的超鏈接中提取實際地址？
假設您有一個包含超鏈接的單元格區域，現在您需要查看超鏈接的真實目的地并從超鏈接中提取它們，如下面的屏幕截圖所示。 有沒有簡單的方法可以快速解決此問題？ 本文將指導您從多個超鏈接中提取實際地址。
使用“超鏈接”功能從超鏈接中提取實際地址
使用VBA代碼從超鏈接中提取實際地址
使用用戶定義功能從超鏈接中提取實際地址
從超鏈接中提取實際地址 Kutools for Excel 快速，方便地
使用“超鏈接”功能從超鏈接中提取實際地址在這里， 超鏈接 函數可以幫助您提取每個超鏈接的基礎URL并將該實際地址放入另一個單元格中。 您可以這樣做：
1。 選擇帶有超鏈接的單元格，然后單擊鼠標右鍵，從上下文菜單中選擇 超鏈接，請參見屏幕截圖：
2。 和 超鏈接 對話框將會出現，選擇并復制（按Ctrl + C）來自 地址 對話框的字段。
3。 然后關閉對話框，然后將實際地址粘貼到所需的任何單元格中。
備注：使用此方法，每次只能提取一個超鏈接地址，但是如果需要提取多個超鏈接，則需要重復應用此功能。
使用VBA代碼從超鏈接中提取實際地址對于許多超鏈接，上面的方法將很繁瑣且耗時，因此下面的VBA代碼可以幫助您一次從超鏈接中快速提取多個地址。
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到“模塊窗口”中。
Sub Extracthyperlinks()Updateby ExtendofficeDim Rng As RangeDim WorkRng As RangeOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)For Each Rng In WorkRngIf Rng.Hyperlinks.Count > 0 ThenRng.Value = Rng.Hyperlinks.Item(1).AddressEnd IfNextEnd SubCopy3。 然后按 F5 鍵運行代碼，并彈出一個對話框供您選擇要提取真實地址的超鏈接，請參見屏幕截圖：
4。 然后點擊 OK，并且所選單元格內容已轉換為原始范圍內的實際超鏈接地址。 查看屏幕截圖：
使用用戶定義功能從超鏈接中提取實際地址以下用戶定義函數也可以從超鏈接中提取實際的URXNUMX。
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊窗口.
Function GetURL(pWorkRng As Range) As StringUpdateby ExtendofficeGetURL = pWorkRng.Hyperlinks(1).AddressEnd FunctionCopy3。 保存代碼并關閉窗口，選擇一個空白單元格以鍵入此公式 = GetURL（A2） (A2 是超鏈接所在的單元格），然后按 輸入 按鈕。 您可以看到實際的超鏈接地址已提取。
從超鏈接中提取實際地址 Kutools for Excel 快速，方便地這是一個方便的工具，稱為 Kutools for Excel，其 轉換超鏈接 功能，您可以快速處理以下操作：
從超鏈接中提取實際地址;將網址文字轉換為可點擊的超鏈接.Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內. 前往下載購買貝寶/ MyCommerce如果你已經安裝 Kutools for Excel，請執行以下操作：
1。 選擇包含需要提取的超鏈接的范圍。
2。 點擊 Kutools > link > 轉換超鏈接，請參見屏幕截圖：
3。 在 轉換超鏈接 對話框中選擇 超鏈接地址替換單元格內容 選項，然后單擊 來自的按鈕 結果范圍 指定要放入結果的單元格。
4。 然后點擊 OK，實際地址已從超鏈接中提取。 看截圖：
備注：如果您想將實際地址放到原始范圍內，請檢查 轉換來源范圍.
點擊 轉換超鏈接 進一步了解此功能。
下載并 Kutools for Excel 現在 ！
演示：從超鏈接中提取實際地址 Kutools for Excel Kutools for Excel：具有300多個方便的Excel加載項，可以在內，沒有任何限制。 立即下載并！相關文章：
如何在Excel中將URL文本轉換為可單擊的超鏈接？
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
