Автор: Миндубаев Рамазан Рубрика: Поисковая оптимизация (SEO) Комментариев нет

Как вытащить гиперссылку из Excel

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

Задача:
В Экселе имеется столбец в значениях ячеек есть строки с гиперссылками. Excel показывать только текстовое описание, саму гиперссылку видно, только при наведение курсора мыши, либо по щелчку правой кнопкой и нажатии «Гиперссылка».

Решение:

Необходимо в соседний столбец вывести URL  гиперссылок.
В Microsoft Excel нет такой встроенной функции, либо я её не нашел =(

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

Создаем макрос (название можно задать только в 1 слово)

Вставляем код, чтобы получилось вот так

Сам код

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

закрываем  Visual Basic for Applications (VBA)

После выделяем все ячейки и жмем «Выполнить»

На выходе получаем в соседнем столбце все URL

Пользуйтесь.