Как достать адрес гиперссылки при помощи формулы

Сразу спешу расстроить - такой формулы в Excel нет. Но, не смотря на такую досадную информацию, Excel можно расширить и средствами VBA написать такую формулу. Те, кто не умеет программировать, но очень хочет такой функционал - не огорчайтесь! В статье я расскажу, как и что нужно сделать. Из программирования Вам понадобятся знания только как скопировать и вставить текст. Единственный минус такого подхода - формула будет жить только в одном файле.
Итак, пусть у нас есть Excel и ячейка с гиперссылкой

Первое, что нужно сделать - это написать (для ленивых - скопировать :)  ) код, представленный ниже и вставить его в модуль. Да, кратко и непонятно! По порядку:

Шаг 1. Запускаем редактор VBA

Для запуска редактора VBA нужно нажать волшебное сочетание клавиш ALT + F11 и откроется редактор

Шаг 2. Создать модуль

В открывшемся окне нужно создать модуль (это важно, поскольку если написать функцию не в модуле, то она не будет видеться как формула)

Шаг 3. Создаем формулу

Для создания формулы достаточно скопировать код прямо отсюда:

Function HLink(rng As Range)
  HLink = rng.Hyperlinks(1).Address
  If HLink = 0 Then HLink = ""
End Function

Формула готова!

Использование

Использовать сие творение нужно как формулу

Источник: http://blog.contextures.com/archives/2010/12/13/get-the-url-from-an-excel-hyperlink/