Как быстро вывести список всех гиперссылок в Excel?
Когда мы используем рабочий лист, возможно, мы создаем в нем много гиперссылок, и иногда нам нужно знать, на что ссылаются тексты. Если вы будете щелкать по ним один за другим, это будет утомительно и займет много времени. Если мы сможем перечислить все гиперссылки с текстами и адресами гиперссылок на листе, нам будет легко проверить все гиперссылки в Excel.
Список всех выбранных гиперссылок с кодом VBA
Извлеките все фактические адреса из гиперссылок с помощью Kutools for Excel
Список всех выбранных гиперссылок с кодом VBA
1. Выберите диапазон, содержащий гиперссылки, которые вы хотите перечислить.
2. Нажмите Застройщик>Визуальный Бейсик, Новый 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 for Excel
Для Kutools for ExcelАвтора Конвертировать гиперссылки функция, вы можете быстро извлечь реальные адреса из гиперссылок.
| Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее :( Бесплатная загрузка Kutools для Excel сейчас )
1. Выберите гиперссылки, по которым вы хотите извлечь реальные места назначения.
2. Затем нажмите Кутулс > Ссылка > Конвертировать гиперссылки, см. снимок экрана:
3. В Конвертировать гиперссылки диалоговое окно, выберите Адреса гиперссылок заменяют содержимое ячейки из файла Тип преобразования раздел, а затем укажите ячейку, в которую вы хотите поместить результат под Диапазон результатов раздел, см. снимок экрана:
4. Затем нажмите OK все реальные адреса были извлечены из гиперссылок, см. снимок экрана:
Внимание: Преобразовать исходный диапазон: извлеченные результаты будут расположены в исходном диапазоне ячеек, если вы отметите эту опцию.
Бесплатная загрузка Kutools для Excel сейчас
Связанные статьи:
Как быстро удалить все гиперссылки в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
