Как вытащить гиперссылку (URL) из Excel

Сегодня, меня товарищ попросил с его интернет магазина по продаже светодиодной ленты вытащить все его категории и товар в Url , для одного сервиса.

Для таких задач можно использовать плагины для браузеров, но давно я не экспериментировал с Excel ))

Что имеем на данный момент:

На данный момент есть сайт при копировании меню в excel получаем залинкованное меню

Что нужно получить? 

Нужно на против каждого меню вывести URL (гиперссылки). Использовать для данной задачи будет макросы Microsoft Excel.

Как делать?

Для данной задачи используем макросы VBA (Visual Basic for Applications ).

Инструкция: Как вытащить гиперссылку из Excel

1. 1. Открываем Excel
   2. Копируем меню (в моем случае) или в вашем любой текст содержащий ссылки
   3. Переходим в меню Вид -> Макросы
      
   4. Создаем макрос
   5. копируем в него след КОД

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

   6. Сохраняем макрос
   7. Выделяем наш текст
   8. Запускаем макрос
   9. Радуемся результату )

Ну и как обычно прикладываю видео где вы можете посмотреть как – How to extract a URL from a hyperlink on Excel