Як швидко перерахувати всі гіперпосилання в Excel?

Коли ми використовуємо робочий аркуш, можливо, ми створюємо в ньому багато гіперпосилань, і іноді нам потрібно знати, куди посилаються тексти. Якщо натиснути їх по черзі, це буде нудно та трудомістко. Якщо ми зможемо перерахувати всі гіперпосилання з текстами та адресами гіперпосилань на робочому аркуші, нам буде легко перевірити всі гіперпосилання в Excel.

Список усіх вибраних гіперпосилань із кодом VBA

Витягніть усі фактичні адреси з гіперпосилань за допомогою Kutools для Excel

Список усіх вибраних гіперпосилань із кодом VBA

1. Виберіть діапазон, який містить гіперпосилання, які потрібно перерахувати.

2. Клацання Розробник>Візуальний Бейсік, новий Microsoft Visual Basic для програм відобразиться вікно, натисніть Insert>Модуліта введіть наступний код в Модуль:

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Автора Перетворити гіперпосилання функція, ви можете швидко отримати реальні адреси з гіперпосилань.

після установки Kutools для Excel, будь ласка, зробіть наступне :( Безкоштовно завантажте Kutools для Excel зараз )

1. Виберіть гіперпосилання, які потрібно витягти з реальних пунктів призначення.

2. Потім натисніть Кутулс > посилання > Перетворити гіперпосилання, див. скріншот:

3, в Перетворити гіперпосилання діалогове вікно, виберіть Адреси гіперпосилань замінюють вміст комірок опція від Тип перетворення а потім вкажіть клітинку, куди потрібно помістити результат під Діапазон результатів розділ, див. знімок екрана:

4. Потім натисніть OK кнопки, усі реальні адреси були вилучені з гіперпосилань, див. знімок екрана:

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

Безкоштовно завантажте Kutools для Excel зараз

Пов'язані статті:

Як швидко видалити всі гіперпосилання в Excel?