Перейти к основному содержанию
 

Как быстро вывести список всех гиперссылок в Excel?

Автор: Сяоян Последнее изменение: 2024 июля 10 г.

Когда мы используем рабочий лист, возможно, мы создаем в нем много гиперссылок, и иногда нам нужно знать, на что ссылаются тексты. Если вы будете щелкать по ним один за другим, это будет утомительно и займет много времени. Если мы сможем перечислить все гиперссылки с текстами и адресами гиперссылок на листе, нам будет легко проверить все гиперссылки в 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. Затем нажмите Кнопка Run кнопку для запуска кода. И все гиперссылки будут отображаться на новом листе с именем Список гиперссылок. Смотрите скриншот:

Скриншот, показывающий список гиперссылок, отображаемых на новом листе Excel


стрелка синий правый пузырь Извлеките все фактические адреса из гиперссылок с помощью Kutools for Excel

Для Kutools for ExcelАвтора Конвертировать гиперссылки С помощью этой функции вы можете быстро извлечь фактические адреса из гиперссылок.

Kutools for Excel предлагает более 300 расширенных функций для оптимизации сложных задач, повышения креативности и эффективности. Улучшено возможностями искусственного интеллектаKutools точно автоматизирует задачи, упрощая управление данными. Подробная информация о Kutools для Excel...         Бесплатная пробная версия...

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

2. Затем нажмите Кутулс > Ссылка > Конвертировать гиперссылки, см. снимок экрана:

Скриншот, показывающий опцию «Преобразовать гиперссылки» на вкладке Kutools на ленте

3. В Конвертировать гиперссылки диалоговое окно, выберите Адреса гиперссылок заменяют содержимое ячейки из файла Тип преобразования раздел, а затем укажите ячейку, в которую вы хотите поместить результат под Диапазон результатов раздел, см. снимок экрана:

Скриншот диалогового окна «Преобразовать гиперссылки»

4. Затем нажмите OK все реальные адреса были извлечены из гиперссылок, см. снимок экрана:

Скриншот, показывающий извлеченные адреса гиперссылок в Excel с помощью Kutools

Внимание: Преобразовать исходный диапазон: извлеченные результаты будут расположены в исходном диапазоне ячеек, если вы отметите эту опцию.

Kutools for Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Get It Now


Связанные статьи:

Как быстро удалить все гиперссылки в Excel?

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!