Допустим у вас на листе Excel есть столбец с большим количеством ссылок. Вы хотите получить ulr-адреса всех ссылок столбце рядом с исходным. Вручную это делать пришлось бы очень долго, но мы воспользуемся макросом.
Sub ExtractHL() Dim hl As Hyperlink Dim rng_hl As Range ' столбец со ссылками Set rng_hl = Range("B2:B940") ' цикл по всем ссылкам в столбце со ссылками For Each hl In rng_hl.Hyperlinks ' сдвигаемся на 1 столбец влево и туда вписываем адрес ссылки hl.Range.Offset(0, -1).Value = hl.Address Next End Sub