Как извлечь фактические адреса из гиперссылок в Excel?
Предположим, у вас есть диапазон ячеек, содержащих гиперссылки, и теперь вам нужно увидеть реальное назначение этих гиперссылок и извлечь их, как показано на следующем скриншоте. Есть ли простые способы быстро решить эту проблему? В этой статье мы покажем вам, как извлечь фактические адреса из нескольких гиперссылок.
Извлечение фактических адресов из гиперссылок с помощью функции Изменить гиперссылку
Быстро и легко извлекать фактические адреса из гиперссылок с помощью Kutools для Excel
Извлечение фактических адресов из гиперссылок с помощью кода VBA
Извлечение фактических адресов из гиперссылок с помощью пользовательской функции
Извлечение фактических адресов из гиперссылок с помощью функции Изменить гиперссылку
Здесь функция Изменить гиперссылку может помочь вам извлечь базовый URL для каждой из этих гиперссылок и поместить этот фактический адрес в другую ячейку. Вы можете сделать это следующим образом:
1. Выберите ячейку с гиперссылкой и щелкните правой кнопкой мыши, из контекстного меню выберите Изменить гиперссылку, см. скриншот:
2. Появится диалоговое окно Изменить гиперссылку, выделите и скопируйте (Ctrl+C) весь URL из поля Адрес этого диалогового окна.
3. Затем закройте диалоговое окно и вставьте фактический адрес в любую ячейку, которую хотите.
Примечание: С помощью этого метода можно извлечь только один адрес гиперссылки за раз, но если вам нужно извлечь несколько гиперссылок, вам придется применять эту функцию повторно.
Быстро и легко извлекать фактические адреса из гиперссылок с помощью Kutools для Excel
Вот удобный инструмент, называемый Kutools для Excel, с его функцией Конвертировать гиперссылки вы можете быстро справиться со следующими операциями:
- Извлечь фактические адреса из гиперссылок;
- Преобразовать текст URL в кликабельные гиперссылки.
Если вы установили Kutools для Excel, пожалуйста, сделайте следующее:
1. Выберите диапазон, который содержит гиперссылки, которые нужно извлечь.
2. Нажмите Kutools > Ссылка > Конвертировать гиперссылки, см. скриншот:
3. В Конвертировать гиперссылки диалоговом окне выберите Конвертировать адрес гиперссылки в содержимое ячейки вариант, и нажмите 
кнопку из Результат диапазона чтобы указать ячейку для размещения результата.
4. Затем нажмите OK, фактические адреса были извлечены из гиперссылок. См. скриншот:
Примечание: Если вы хотите поместить фактические адреса в исходный диапазон, пожалуйста, отметьте Конвертировать исходный диапазон.
Скачайте и попробуйте Kutools для Excel прямо сейчас бесплатно!
Извлечение фактических адресов из гиперссылок с помощью кода VBA
Для большого количества гиперссылок вышеупомянутый метод будет утомительным и отнимет много времени, поэтому следующий код VBA поможет вам быстро извлечь несколько адресов из гиперссылок одновременно.
1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.
Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If Rng.Hyperlinks.Count > 0 Then
Rng.Value = Rng.Hyperlinks.Item(1).Address
End If
Next
End Sub3. Затем нажмите клавишу F5, чтобы запустить код, и появится диалоговое окно, чтобы выбрать гиперссылки, из которых вы хотите извлечь реальные адреса, см. скриншот:
4. Затем нажмите OK, и содержимое выбранных ячеек было преобразовано в реальные адреса гиперссылок в исходном диапазоне. См. скриншоты:
 |  |  |
Извлечение фактических адресов из гиперссылок с помощью определенной пользователем функции
Следующая определенная пользователем функция также может извлечь фактический URL из гиперссылок.
1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
3. Сохраните код и закройте окно, выберите пустую ячейку, чтобы ввести эту формулу =GetURL(A2) (A2 — это ячейка, в которой находится гиперссылка), и нажмите кнопку Enter. Вы увидите, что реальный адрес гиперссылки был извлечен.
Связанная статья:
Как преобразовать текст URL в кликабельную гиперссылку в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек