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

0
test website url
test website url

Бывает так, что прайс лист поставщиков содержит ссылку на фото товара в ячейке, что делать чтобы извлечь адрес гиперссылки из текста в указанной ячейке.

Создаём макрос VBA в эксель для извлечения URL из текста в ячейках

Открываем документ Excel, запускаем редактор макросов VBA при помощи комбинации клавиш Alt+F11, и создаём новый модуль в меню:  Insert > Module

Код модуля:

Public Function ИЗВЛЕЧЬССЫЛКУ(ГИПЕРССЫЛКА As Range) As String
    ИЗВЛЕЧЬССЫЛКУ = ГИПЕРССЫЛКА.Hyperlinks.Item(1).Address
End Function

Сохраняем книгу в xslx с поддержкой макросов, затем, указываем в ячейке напротив извлекаемой =ИЗВЛЕЧЬССЫЛКУ(A1); где А1 — ячейка, где в тексте содержится ссылка.

Можно клонировать, размножить выполнение макроса на остальные строки в столбцах в книге.

UPD: 15.12.2020

В некоторых версиях эксель есть проблема при написании макрона в отображении кирилических символов в строке макроса, потому мы решили написать версию формулы на латинском языке:

Public Function GetLink(Link As Range) As String
    GetLink = Link.Hyperlinks.Item(1).Address
End Function

ОСТАВЬТЕ ОТВЕТ

Please enter your comment!
Please enter your name here