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

Я с столкнулась с тем, что нужно было извлечь ссылки со списка текста с гиперссылками в Excel. Решение гиперссылки Excel я нашла в этой статье How to extract a URL from a hyperlink on Excel и перевела ее.

Чтобы извлечь ссылки из гиперссылок и поместить их в соседний столбик нужно выполнить несколько простых шагов:

• Открыть документ Excel.
• Выделите столбик с гиперссылками
• Перейти в режим VBA (Alt+F11)
• Вставить новый модуль (Insert > Module)
• Скопировать код (ниже) и вставить в открывшееся окно

  Sub ExtractHL()
  Dim HL As Hyperlink
  For Each HL In ActiveSheet.Hyperlinks
  HL.Range.Offset(0, 1).Value = HL.Address
  Next
  End Sub

• Нажать F5, чтобы запустить макрос
• Выйти из VBA (Alt+Q)

После это в столбике справа должны появится отдельные ссылки.

Function GetURL(cell As range, _
Optional default_value As Variant)
'Lists the Hyperlink Address for a Given Cell
'If cell does not contain a hyperlink, return default_value
If (cell.range("A1").Hyperlinks.Count <> 1) Then
GetURL = default_value
Else
GetURL = cell.range("A1").Hyperlinks(1).Address & "#" & cell.range("A1").Hyperlinks(1).SubAddress
End If
End Function