如何在Excel中快速列出所有超鏈接？
當(dāng)使用工作表時，也許我們在其中創(chuàng)建了許多超鏈接，有時我們需要知道文本鏈接到的位置。 如果您一一點擊它們，這將很繁瑣且耗時。 如果我們可以在工作表中列出所有帶有文本和超鏈接地址的超鏈接，那么我們很容易在Excel中檢查所有超鏈接。
列出所有帶有VBA代碼的選定超鏈接
從超鏈接中提取所有實際地址 Kutools for Excel
列出所有帶有VBA代碼的選定超鏈接1。 選擇包含要列出的超鏈接的范圍。
2。 點擊 開發(fā)商>Visual Basic中，一個新的 適用于應(yīng)用程序的Microsoft Visual Basic 將顯示一個窗口，單擊 插頁>模塊，然后將以下代碼輸入到模塊中：
Option ExplicitPrivate Function GetHyperAddy(Cell As Range) As StringOn Error Resume NextGetHyperAddy = Cell.Hyperlinks.Item(1).AddressIf Err.Number <> 0 Then GetHyperAddy = "None"On Error GoTo 0End FunctionSub DistillHyperlinks()Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As RangeApplication.ScreenUpdating = FalseSet clSource = SelectionOn Error Resume NextSet wsTarget = Sheets("Hyperlink List")If Err.Number <> 0 ThenSet wsTarget = Worksheets.AddWith wsTarget.Name = "Hyperlink List"With .Range("A1").Value = "Location".ColumnWidth = 20.Font.Bold = TrueEnd WithWith .Range("B1").Value = "Displayed Text".ColumnWidth = 25.Font.Bold = TrueEnd WithWith .Range("C1").Value = "Hyperlink Target".ColumnWidth = 40.Font.Bold = TrueEnd WithEnd WithSet wsTarget = Sheets("Hyperlink List")End IfOn Error GoTo 0For Each cl In clSourceHyperAddy = GetHyperAddy(cl)If Not HyperAddy = "None" ThenWith wsTarget.Range("A65536").End(xlUp).Offset(1, 0).Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address).Offset(0, 1).Value = cl.Text.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddyEnd WithEnd IfNext clwsTarget.SelectEnd SubCopy3。 然后點擊 按鈕運行代碼。 并且所有超鏈接都將顯示在名為 超鏈接列表。 看截圖：
從超鏈接中提取所有實際地址 Kutools for Excel隨著 Kutools for Excel“ 轉(zhuǎn)換超鏈接 功能，您可以快速從超鏈接中提取真實地址。
Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內(nèi).前往下載購買貝寶/ MyCommerce安裝后 Kutools for Excel，請執(zhí)行以下操作： Kutools for Excel 現(xiàn)在 )
1。 選擇您要提取真實目標(biāo)的超鏈接。
2。 然后點擊 Kutools > link > 轉(zhuǎn)換超鏈接，請參見屏幕截圖：
3。 在 轉(zhuǎn)換超鏈接 對話框中選擇 超鏈接地址替換單元格內(nèi)容 選項從 轉(zhuǎn)換類型 部分，然后指定要在其中放置結(jié)果的單元格 結(jié)果范圍 部分，請參見屏幕截圖：
4。 然后點擊 OK 按鈕，已從超鏈接中提取所有真實地址，請參見屏幕截圖：
備注: 轉(zhuǎn)換來源范圍：如果選中此選項，則提取的結(jié)果將位于原始單元格范圍內(nèi)。
Kutools for Excel 現(xiàn)在
相關(guān)文章：
如何快速刪除Excel中的所有超鏈接？
最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!準(zhǔn)備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
