Как извлечь веб-адреса в excel?

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

Ручной метод — настоящая головная боль: вам придется копировать и вставлять каждый URL-адрес один за другим. Поэтому лучший способ — создать UDF в VBA . И сегодня я хотел бы поделиться с вами простым кодом для этой UDF.

Код VBA для извлечения URL-адресов гиперссылок

 Function GiveMeURL(rng As Range) As String On Error Resume Next GiveMeURL = rng.Hyperlinks(1).Address End Function

Как использовать этот код

Чтобы использовать эту UDF, необходимо выполнить следующие шаги:

1. Откройте редактор Visual Basic на вкладке «Разработчик» или используйте сочетание клавиш ALT+F11.
2. Вставьте новый модуль, вставьте в него приведенный выше код и закройте его.
3. Теперь в своей электронной таблице введите функцию =GiveMeURL(A1) и нажмите Enter.