Как извлечь фактические URL-адреса из гиперссылок в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек