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

Вопрос:

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

Подробный ответ:

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

Sub URLExtract()

Dim HL As Hyperlink

For Each HL In ActiveSheet.Hyperlinks

HL.Range.Offset(0, 1).Value = HL.Address

Next

End Sub