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

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