Я с столкнулась с тем, что нужно было извлечь ссылки со списка текста с гиперссылками в Excel. Решение я нашла в этой статье How to extract a URL from a hyperlink on Excel и перевела ее.
Чтобы извлечь ссылки из гиперссылок и поместить их в соседний столбик нужно выполнить несколько простых шагов:
Открыть документ Excel.
Выделите столбик с гиперссылками
Перейти в режим VBA (Alt+F11)
Вставить новый модуль (Insert > Module)
Скопировать код (ниже) и вставить в открывшееся окно
1
2
3
4
5
6
Sub ExtractHL()
Dim HL AsHyperlink
ForEachHL InActiveSheet.Hyperlinks
HL.Range.Offset(0,1).Value=HL.Address
Next
EndSub
Нажать F5, чтобы запустить макрос
Выйти из VBA (Alt+Q)
После это в столбике справа должны появится отдельные ссылки.
Option 2: If you plan to add more hyperlinks to the spreadsheet and need to store the formula on the sheet
Open up a new workbook.
Get into VBA (Press Alt+F11)
Insert a new module (Insert > Module)
Copy and Paste the Excel user defined function below
Get out of VBA (Press Alt+Q)
Use this syntax for this custom Excel function: =GetURL(cell,[default_value])
1
2
3
4
5
6
7
8
9
10
FunctionGetURL(cell Asrange,_
Optional default_value AsVariant)
'Lists the Hyperlink Address for a Given Cell
'Ifcell does notcontainahyperlink,returndefault_value
Любовь, (Insert > Module) или (Вставить > Модуль ) – это действие, которое нужно сделать в режиме VBA (Alt+F11)
Откроется окно, куда нужно будет вставить код.
СПАСИБО!!!!
чет тоже не работает
Феерично.
Спасибо.
Отлично
Благодарю вас!
Скопировать код (ниже)
какой вставить код?
Екатерина, тот который написан под этой строчкой
Идеальная инструкция, спасибо!)
Вау, столько всего перепробовала. Разные статьи перелапатила. Супер. Все сработало! Спасиииибо!
БОЛЬШОЕ ВАМ СПАСИБО! Очень помогло в работе!
Огромное спасибо.
О, так здорово!
Чуть голову не сломал без вашей подсказки!!!
Надо было 7000 URL-ов извлечь из ссылок.
В Ворде через “скопировать гиперссылку – специальная вставка – вставить как неформатированный текст” – думал, неделю копировать буду…
А тут за 1,5 минуты – раз! и готово!!!!!!!!!!
Ну, почему в Excel нет стандартной функции “извлечь URL ссылки” ???
Спасибо огромное!
Супер
Спасибо! все получилось
Спасибо вам! У меня всё получилось. Мучился с гиперссылками уже 2 часа.
И Вам спасибо!
Застряла на этапе “Вставить новый модуль (Insert > Module)”
Что это такое и где искать? ((((
Любовь, (Insert > Module) или (Вставить > Модуль ) – это действие, которое нужно сделать в режиме VBA (Alt+F11)
Откроется окно, куда нужно будет вставить код.
СПАСИБО .ДОлго искала эту функцию
Вот и я почему-то застряла. Нажимаю F5 и ничего не происходит…
Никакого столбика в итоге не появляется((