Как извлечь линк (ссылку) из гиперссылки Excel

Я столкнулся с тем, что нужно было извлечь линк (ссылку) из гиперссылки excel, другими словами извлечь ссылки со списка текста с гиперссылками в Excel.

Чтобы извлечь ссылки из гиперссылок и поместить их в соседний столбик нужно выполнить несколько простых шагов.

Извлекаем ссылку из xls:

• Открыть документ 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)

После это в столбике справа должны появится отдельные ссылки.

источник