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