MS Excel. Как "вытащить" гиперссылки из ячеек

Настройки MS Office, Open Office и пр. офисного ПО. Полезные советы и пр. То, чего не найдешь в бескрайних просторах Интернета. Решения тех проблем, которые не решаются типовыми ответами, которые можно получить в техподдержке Майкрософта - а именно: переустановить продукт или купить какой-ть другой лицензионный диск.


Модератор: UncleFather

Аватара пользователя
UncleFather
Site Admin
Сообщения: 1505
Зарегистрирован: 17 авг 2004 16:20, Вт
Контактная информация:

MS Excel. Как "вытащить" гиперссылки из ячеек

Сообщение UncleFather »

Задача:

В книге MS Excel имеется столбец (или просто разбросанные ячейки), значением ячеек которого являются гиперссылки. На экране мы видим лишь связанный с гиперссылкой текст и, только если навести курсор на конкретную гиперссылку, можно увидеть, собственно, сам адрес (url) куда эта гиперссылка ведет:

01.JPG

Необходимо в соседний столбец вывести сами адреса (url) гиперссылок.
На удивление, в самом Microsoft Excel нет такой встроенной функции. Обратная (та, которая формирует гиперссылки) есть - "Гиперссылка":

02.JPG
02.JPG (30.9 КБ) 15963 просмотра

а вот так, чтобы из гиперссылки вытянуть url - такой функции нет.

Решение:

Поскольку встроенной функции не имеется, то воспользуемся макросами Visual Basic for Applications (VBA).

Создаем новый макрос:

Код: Выделить всё

With ActiveSheet 
      For I = 1 To .Hyperlinks.Count 
            .Hyperlinks(I).Range.Offset(0,1).Value = .Hyperlinks(I).Address 
      Next I 
End With

Этот макрос просматривает весь активный лист на предмет наличия гиперссылок и вставляет url гиперссылки в ячейку справа от самой гиперссылки:

03.JPG

Alexander A. Manaeff©

Понравилась статья? Будем крайне признательны за репосты в соцсетях! Материально поддержать проект можно здесь

Мои странички:
ВКонтакте
Одноклассники
Youtube
Facebook
Instagram

Изображение
Изображение
Изображение
Изображение