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

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

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


стрелка синий правый пузырь Преобразование текста URL в интерактивную гиперссылку с кодом VBA

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

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

2. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

3. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

Sub ConvertToHyperlinks()
'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
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

4, Затем нажмите F5 нажмите клавишу для запуска кода, появится всплывающее диалоговое окно для выбора диапазона, затем щелкните OK, а выбранные несвязанные URL-адреса были преобразованы в интерактивные гиперссылки. Смотрите скриншоты:

2

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

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

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

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

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

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

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

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

Ноты:

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

2. Если гиперссылка связана с текущим документом, отметьте Гиперссылки - это место в этом документе опцию.

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

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


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

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

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

Как извлечь актуальные адреса из гиперссылок в 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% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (17)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
ты замечательный!!! Спасибо большое спасибо спасибо спасибо!!!!! :лол: :D :-)
Этот комментарий был сведен к минимуму модератором на сайте
Почему вы изменили его? Это была простая легкая рутина, которая работала каждый раз. Теперь он намного больше и вызывает сбой Excel.
Этот комментарий был сведен к минимуму модератором на сайте
отличная работа мой друг!!!!!!! слишком хорошо
Этот комментарий был сведен к минимуму модератором на сайте
Я не знаю, это только у меня или, возможно, у всех остальных проблемы с вашим сайтом. Кажется, что часть текста в ваших сообщениях убегает за пределы экрана. Может кто-нибудь еще, пожалуйста, прокомментируйте и дайте мне знать, если это происходит и с ними? Это может быть проблема с моим веб-браузером, потому что у меня это случалось ранее. Престижность Не стесняйтесь посетить мой веб-сайт http://culinotests.fr/news/vider-un-poulet-pour-la-premiere-fois
Этот комментарий был сведен к минимуму модератором на сайте
Я хотел сделать что-то немного другое - создать слова с гиперссылками для добавления на веб-сайт с помощью WYSIWYG (вместо HTML-кодирования всего этого). Если у вас хорошие руки, попробуйте: введите гиперссылку "C" > нажмите на ячейку, которую вы хотите ссылка... Команда "K" и вставьте команду "V" с текстом, на который вы хотите сделать гиперссылку Повторить xn
Этот комментарий был сведен к минимуму модератором на сайте
Код почти работает, но автор оставил небольшую ошибку копирования-вставки. Нужно убрать "" из первой строки, а "" из последней строки, и тогда заработает. Ваше здоровье.
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, мой друг! это сработало! :смешной:
Этот комментарий был сведен к минимуму модератором на сайте
Мужчина! Это так здорово, я так долго пытался найти простой способ, и это заняло секунды! Работает отлично!!!
Этот комментарий был сведен к минимуму модератором на сайте
Это замечательно! Работал как шарм
Этот комментарий был сведен к минимуму модератором на сайте
Это очень полезно... Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Мне пришлось переключить почти 55,000 XNUMX ячеек с обычного текста на гиперссылки. Это помогло мне сократить время с «остальной части моей естественной жизни» до пяти минут. Благодарю вас!
Этот комментарий был сведен к минимуму модератором на сайте
hi
когда я нажимаю на гиперссылку .. я не перехожу на страницу электронной почты (как Outlook или Gmail). Пожалуйста, поддержите
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Бабу,
Может быть, приведенная ниже статья может помочь вам решить вашу проблему, пожалуйста, просмотрите ее:
https://www.extendoffice.com/documents/excel/3304-excel-convert-email-to-hyperlink.html

Надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
О, дерьмо .... это сломало мой Excel. По ошибке я выбрал всю колонку, и она застыла на... века!!
Этот комментарий был сведен к минимуму модератором на сайте
Muito bom, só uma dúvida, are a possibilidade deixar um intervalo fixo já na macro (sem precisar aparecer aquele pop-up pra selecionar o intervalo), type clico pra excutar a macro e ele pega o interval que já está configurado na macro e ativa ос ссылки, pulando etapa де тер дие clicar em ok и tals. Se puderem me ajudar com esse dúvida serei grato.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Тосетти

Чтобы решить вашу проблему, примените приведенный ниже код: (Сначала вы должны выбрать тексты гиперссылок)

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Application.Selection
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Дай вашему богу здоровья, вам, матерям и детям, первенца в честь автора назову
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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