Note: The other languages of the website are Google-translated. Back to English

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

Предположим, у вас есть диапазон ячеек, которые содержат гиперссылки, и теперь вам нужно увидеть реальное назначение гиперссылок и извлечь их из гиперссылок, как показано на следующем снимке экрана. Есть ли простые способы быстро решить эту проблему? Эта статья поможет вам извлечь фактические адреса из нескольких гиперссылок.


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

Здесь Изменить гиперссылку может помочь вам извлечь базовый URL-адрес для каждой из этих гиперссылок и поместить этот фактический адрес в другую ячейку. Вы можете сделать так:

1. Выберите ячейку с помощью гиперссылки и щелкните правой кнопкой мыши, в контекстном меню выберите Изменить гиперссылку, см. снимок экрана:

2, И Изменить гиперссылку появится диалоговое окно, выберите и скопируйте (Ctrl + C) весь URL из Адрес поле диалогового окна.

3. Затем закройте диалоговое окно и вставьте фактический адрес в любую ячейку, которую хотите.

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


стрелка синий правый пузырь Извлекайте фактические адреса из гиперссылок с кодом 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 Sub

3, Затем нажмите 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 кнопка. Вы можете видеть, что реальный адрес гиперссылки извлечен.


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

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

  • Извлекать актуальные адреса из гиперссылок;
  • Преобразование текста URL в интерактивные гиперссылки.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней.

Если вы установили Kutools for Excel, пожалуйста, сделайте следующее:

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

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

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

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

Внимание: Если вы хотите поместить фактические адреса в исходный диапазон, проверьте Преобразовать исходный диапазон.

Нажмите Конвертировать гиперссылки чтобы узнать больше об этой функции.

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


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

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Связанная статья:

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


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (44)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо. это действительно помогло мне
Этот комментарий был сведен к минимуму модератором на сайте
большое спасибо!!! : D
Этот комментарий был сведен к минимуму модератором на сайте
Это просто спасло меня! Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
спасибо, ты так облегчил мою работу
Этот комментарий был сведен к минимуму модератором на сайте
Огромное спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, это спасло мою задницу и заставило меня хорошо выглядеть. 8)
Этот комментарий был сведен к минимуму модератором на сайте
Ты лучший, за тобой так легко следить!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, приятель. Это действительно работает за считанные секунды.
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо. это действительно помогло мне
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо! Очень полезно, но просто и понятно. Так же, как Альберт имел в виду :roll:
Этот комментарий был сведен к минимуму модератором на сайте
Супер! Так просто. Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
благодаря тонну. как и все здесь. это очень полезно и легко.
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо :lol: Я использовал метод VBA, и он прекрасно работал в Excel 365 в ОС Windows 8.1.
Этот комментарий был сведен к минимуму модератором на сайте
Это первый в мире совет по Excel, основанный на макросах, который сработал для меня. Большое спасибо за то, что делаете жизнь эксельщиков лучше.
Этот комментарий был сведен к минимуму модератором на сайте
спасибо, что сэкономили мне 15 минут
Этот комментарий был сведен к минимуму модератором на сайте
Превосходно! сократил мою работу до одной минуты.
Этот комментарий был сведен к минимуму модератором на сайте
Это сэкономило мне массу времени! Я извлек 500 идентификаторов профилей из более чем 500 имен, связанных с их профилями. Этот код работал очень хорошо, и ему было легко следовать. Огромное спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
У меня это почему-то не работает. Я создал определенную функцию, как вы описали, но она ничего не делает :\ Я также хочу объединить ее с функцией гиперссылки, например: =HYPERLINK(=getURL(A1), [A1]) Так что окончательный результат скопирует URL-адрес A1 и отобразит его как текстовую строку A1 (т.е. просто скопирует A1 в другую ячейку, включая ее текст и гиперссылку. Простая вещь, которую Excel по какой-то причине не может сделать...).
Этот комментарий был сведен к минимуму модератором на сайте
Огромное спасибо! Сэкономил мне много времени на 800+ этих ячеек!
Этот комментарий был сведен к минимуму модератором на сайте
Очень хороший инструмент! Я конвертировал 16K+ ссылок. Инструмент сработал быстро и без нареканий.
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL