Как вытащить гиперссылку из Excel
Макрос для получения ссылок из текста гиперссылок
- Открыть документ Excel.
- Выделите столбик с гиперссылками
- Перейти в режим VBA (Alt+F11)
- Вставить новый модуль (Insert > Module)
- Скопировать код (ниже) и вставить в открывшееся окно
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
- Нажать F5, чтобы запустить макрос
- Выйти из VBA (Alt+Q)
После это в столбике справа должны появится отдельные ссылки.
Как вытащить ссылку из гиперссылки в 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