- Создаем макрос: Вкладка Вид -> Макросы -> Название ВытащитьУРЛ (в одно слово) -> Создать
- Втавляем код
Sub ВытащитьУРЛ()
With ActiveSheet
For I = 1 To .Hyperlinks.Count
.Hyperlinks(I).Range.Offset(0, 1).Value = .Hyperlinks(I).Address
Next I
End With
End Sub - Выделяем нужные ячейки и жмем «Выполнить».