ВРЕМЯ РАБОТЫ:Как извлечь ссылку из гиперссылки в Excel?
07.09.2020
Excel - популярный инструмент современного человека за работой на компьютере, но далеко не все владеют им досконально и в совершенстве.
Для извлечения ссылок из гиперссылок выполните следующие действия:
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
В столбике справа появятся отдельные ссылки.
Для извлечения ссылок из гиперссылок выполните следующие действия:
- Выделите столбец с гиперссылками
- Перейти в режим VBA (Alt+F11)
- Вставьте новый модуль (Insert > Module)
- Скопировать код (ниже) и вставить в открывшееся окно
- Нажать F5, чтобы запустить макрос
- Выйти из VBA (Alt+Q)
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
В столбике справа появятся отдельные ссылки.
Рассказать друзьям:
Получить подробную консультацию по решениям информационной безопасности, сетевому оборудованию, серверному оборудованию можно, позвонив по номеру телефона:
+375 44 567-76-49 или написав на наш email: pu@irsen.byИнтересные статьи
2025 © ООО «ИРСЕН ГРУПП» УНП 191757734 Республика Беларусь, 220086, г. Минск, ул. Калиновского 111 а, к. 205
Свидетельство о государственной регистрации № 191757734 от 15.06. 2012 г. выдано Минским горисполкомом.
Обращаем ваше внимание на то, что данный интернет-сайт носит исключительно информационный характер и ни при
каких условиях информационные материалы, фотографии и цены, размещенные на сайте, не являются публичной
офертой, определяемой положениями Гражданского кодекса РБ. Для получения полной и достоверной информации о
товаре и актуальных ценах связывайтесь с нами по указанным на сайте телефонам.