Как бързо да изброя всички хипервръзки в Excel?

Когато използваме работен лист, може би създаваме много хипервръзки в него и понякога трябва да знаем къде се свързват текстовете. Ако щракнете върху тях един по един, това ще бъде досадно и отнема много време. Ако можем да изброим всички хипервръзки с текстове и адреси на хипервръзки в работен лист, ще ни бъде лесно да проверим всички хипервръзки в Excel.

Избройте всички избрани хипервръзки с VBA код

Извлечете всички действителни адреси от хипервръзки с Kutools за Excel

Избройте всички избрани хипервръзки с VBA код

1. Изберете диапазона, който съдържа хипервръзките, които искате да изброите.

2. Щракнете Софтуерен Инженер >Visual Basic, Нов Microsoft Visual Basic за приложения ще се покаже прозорец, щракнете Поставете > Модулии въведете следния код в модула:

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With 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:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

3, След това кликнете бутон за изпълнение на кода. И всички хипервръзки ще бъдат показани в нов работен лист, наречен Списък с хипервръзки. Вижте екранна снимка:

Извлечете всички действителни адреси от хипервръзки с Kutools за Excel

С Kutools за ExcelЕ Конвертиране на хипервръзки можете бързо да извлечете действителните адреси от хипервръзките.

1. Изберете хипервръзките, които искате да извлечете истинските дестинации.

2, След това кликнете Kutools > връзка > Конвертиране на хипервръзки, вижте екранна снимка:

3. В Конвертиране на хипервръзки изберете диалоговия прозорец Адресите на хипервръзките заместват съдържанието на клетката опция от Тип конвертиране и след това посочете клетка, където искате да поставите резултата под Диапазон на резултатите раздел, вижте екранна снимка:

4, След това кликнете OK всички реални адреси са извлечени от хипервръзките, вижте екранната снимка:

Забележка: Преобразуване на изходния диапазон: извлечените резултати ще бъдат разположени в оригиналния диапазон от клетки, ако поставите отметка на тази опция.

Свързани член:

Как бързо да изтриете всички хипервръзки в Excel?