Найти тему
SineD

Извлечение ссылки из гиперссылки в отдельную ячейку в Excel

VBA (Visual Basic for Applications) - мощный инструмент, который позволяет создавать макросы и автоматизировать процессы в Excel.

Для извлечения ссылки из гиперссылки можно использовать VBA. Для этого необходимо:

  • Нажмите Alt + F11, чтобы открыть редактор Visual Basic.
  • В меню выберите «Вставка» и затем выберите «Модуль».
  • Введите следующий код в модуль:
Sub ExtractHyperLink()
Dim hl As Hyperlink
For Each hl In ActiveSheet.Hyperlinks
hl.Range.Offset(0, 1).Value = hl.Address
Next
End Sub
  • Выделите необходимый диапазон ячеек с гиперссылками, и нажмите клавишу F5, чтобы выполнить макрос.
  • В ячейках, перемещенных на одну ячейку вправо от ячейки, содержащей гиперссылку появится ссылка, которая будет содержать адрес, указанный в гиперссылке.

Таким образом, после выполнения макроса, в соседней ячейке для каждой гиперссылки на активном листе Excel будет записан ее URL-адрес.