Активные ссылки в Excel или как URL сделать гиперссылкой

Работая в Excel с большим массивом ссылок иногда требуется, чтобы текстовые URL ссылки на страницу сайта были в виде активной гиперссылки, по которой можно кликнуть мышкой и перейти на саму страницу, самый простой способ в этом случае - это активировать гиперссылку в ячейке Excel, нажав клавишу F2 и затем Enter.

Гиперссылки в Excel

Когда у вас всего несколько строк в таблице, то проделать эту процедуру не составит никакого труда, но если у вас несколько сотен строк или даже несколько тысяч, то такие монотонные действия займут уйму времени. Так как сделать ссылку в excel на web сайт активной и кликабельной? Чтобы ускорить этот процесс его нужно автоматизировать с помощью VBA (Visual Basic) макроса Excel!

Пишем макрос VBA Excel

Сам код макроса очень короткий и не сложный, ниже представлен макрос, который делает активными все гиперссылки, расположенные в столбце "С", код Range([c2], Range("c" & Rows.Count).End(xlUp)). Все урлы страниц преобразуетcя в активные гиперссыки столбца "С" начиная с ячейки "С2" и далее.

Sub HyperLink()
   Dim cell As Range, ra As Range: Application.ScreenUpdating = False
   Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp))
   For Each cell In ra.Cells
      If Len(cell) Then cell.Hyperlinks.Add cell, cell
   Next cell
End Sub

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

Sub HyperLinkSelect()
   Dim cell As Range: Application.ScreenUpdating = False
   For Each cell In Selection
      If Len(cell) Then cell.Hyperlinks.Add cell, cell
   Next cell
End Sub

При желании можно назначить горячую клавишу для вызова макроса, нажимаем Alt + F8, в появившемся окне мышкой выбираем нужный макрос, далее жмем кнопку Параметры и в диалоговом окне указываем любую букву для сочетания клавиш, в моё случае это Alt + d и далее кнопка ОК.

Гиперссылки в Excel