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

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

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

док активировать гиперссылки 1

Преобразование набора текстовых URL-адресов в активные гиперссылки с формулами

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

Преобразование кучи текстовых URL-адресов в активные гиперссылки Kutools for Excel


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

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

Введите эту формулу: = ГИПЕРССЫЛКА (A2; A2) в пустую ячейку, в которую вы хотите вывести результат, а затем перетащите дескриптор заполнения вниз, чтобы применить эту формулу к ячейкам, которые вы хотите, и все текстовые URL-адреса были преобразованы в активные гиперссылки, см. снимок экрана:

док активировать гиперссылки 2


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

Приведенный ниже код VBA также может помочь вам решить эту задачу, пожалуйста, сделайте следующее:

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

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

Код VBA: преобразование кучи текстовых URL-адресов в активные гиперссылки:

Sub activateHyperlinks()
'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

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно подсказки, напоминающее вам о выборе ячеек, которые вы хотите преобразовать в интерактивные гиперссылки, см. снимок экрана:

док активировать гиперссылки 3

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

док активировать гиперссылки 4


стрелка синий правый пузырь Преобразование кучи текстовых URL-адресов в активные гиперссылки Kutools for Excel

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

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

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Выделите ячейки, содержащие текстовые URL-адреса, которые вы хотите активировать.

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

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

док активировать гиперссылки 6

4. Затем нажмите Ok Кнопка, и текстовые URL-адреса были активированы сразу, см. снимок экрана:

док активировать гиперссылки 4

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

док активировать гиперссылки 7

Нажмите, чтобы загрузить Kutools for 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% и сокращает количество щелчков мышью на сотни каждый день!
Comments (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
LA OPCION 2:
Convierta un montón de URL de texto en hipervínculos activos con código VBA

ANDA PERFECTO!
GRACIAS!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Tak for input, men jeg kunne ikke få konverteringen til at virke.

Den skrev bare en lang liste text:

= HYPERLINK (A2, A2)

Problemet var, at du havde skrevet formlen med komma og ikke med semikolon.

Den rette formel er =hyperlink(A2;A2)
This comment was minimized by the moderator on the site
Thank you much!!!!
This comment was minimized by the moderator on the site
Спасибо большое за ваш труд
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations