VBA. Полезные макросы. Извлечь текст url-адреса из гиперссылки Excel

Допустим у вас на листе 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