Я с столкнулась с тем, что нужно было извлечь ссылки со списка текста с гиперссылками в Excel. Решение я нашла в этой статье How to extract a URL from a hyperlink on Excel и перевела ее.
Чтобы извлечь ссылки из гиперссылок и поместить их в соседний столбик нужно выполнить несколько простых шагов:
- Открыть документ Excel.
- Выделите столбик с гиперссылками
- Перейти в режим VBA (Alt+F11)
- Вставить новый модуль (Insert > Module)
- Скопировать код (ниже) и вставить в открывшееся окно
123456Sub ExtractHL()Dim HL As HyperlinkFor Each HL In ActiveSheet.HyperlinksHL.Range.Offset(0, 1).Value = HL.AddressNextEnd Sub - Нажать F5, чтобы запустить макрос
- Выйти из VBA (Alt+Q)
После это в столбике справа должны появится отдельные ссылки.
Подпишитесь на RSS канал - если Вы хотите первыми узнавать о новых статьях на сайте!!!
СПАСИБО!!!!
чет тоже не работает
Феерично.
Спасибо.
Отлично
Благодарю вас!
Скопировать код (ниже)
какой вставить код?
Екатерина, тот который написан под этой строчкой
Идеальная инструкция, спасибо!)
Вау, столько всего перепробовала. Разные статьи перелапатила. Супер. Все сработало! Спасиииибо!
БОЛЬШОЕ ВАМ СПАСИБО! Очень помогло в работе!
Огромное спасибо.
О, так здорово!
Чуть голову не сломал без вашей подсказки!!!
Надо было 7000 URL-ов извлечь из ссылок.
В Ворде через “скопировать гиперссылку – специальная вставка – вставить как неформатированный текст” – думал, неделю копировать буду…
А тут за 1,5 минуты – раз! и готово!!!!!!!!!!
Ну, почему в Excel нет стандартной функции “извлечь URL ссылки” ???
Спасибо огромное!
Супер
Спасибо! все получилось
Спасибо вам! У меня всё получилось. Мучился с гиперссылками уже 2 часа.
И Вам спасибо!
Застряла на этапе “Вставить новый модуль (Insert > Module)”
Что это такое и где искать? ((((
Любовь, (Insert > Module) или (Вставить > Модуль ) – это действие, которое нужно сделать в режиме VBA (Alt+F11)
Откроется окно, куда нужно будет вставить код.
СПАСИБО .ДОлго искала эту функцию
Вот и я почему-то застряла. Нажимаю F5 и ничего не происходит…
Никакого столбика в итоге не появляется((