Как быстро получить список всех гиперссылок в 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 Sub3. Затем нажмите кнопку 
, чтобы запустить код. Все гиперссылки появятся на новом листе с названием Список гиперссылок. См. снимок экрана:
Извлечение всех фактических адресов из гиперссылок с помощью Kutools для Excel
С помощью функции Kutools для Excel — Конвертировать гиперссылки — можно быстро извлечь фактические адреса из гиперссылок.
1. Выделите гиперссылки, из которых необходимо извлечь реальные адреса назначения.
2. Затем нажмите Kutools > Ссылка > Конвертировать гиперссылки, см. снимок экрана:
3. В диалоговом окне Конвертировать гиперссылки выберите параметр Конвертировать адрес гиперссылки в содержимое ячейки в разделе Тип преобразования и укажите ячейку для размещения результата в разделе Диапазон результата. См. снимок экрана:
4. Затем нажмите кнопку ОК, и все реальные адреса будут извлечены из гиперссылок. См. снимок экрана:
Примечание: Конвертировать исходный диапазон: если выбрать этот параметр, извлечённые результаты будут размещены в исходном диапазоне ячеек.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Связанная статья:
Как быстро удалить все гиперссылки в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек