Как вытащить гиперссылку из 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)

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