Автоматическое проставление гиперссылок

[Arzt Hofman]

Суть такая, есть столбец с ссылками, есть столбец с данными, а именно названиями, к которым эти ссылки хотелось бы прикрепить собственно говоря как гиперссылки. Тыкать и прикреплять по очереди, вообще не вдохновляет, их 20000. Очень надеюсь на помощь. Макрос чтобы вытащить из гиперссылки название и ссылку по отдельности нашел, а вот наоборот чтобы собрать не могу.... буду очень признателен!!!

[Шпец Докапыч]

Если в 1-м столбце ссылки, а во 2-м данные, то так:

Код Выделить Развернуть

  For i = 1 To 20000
    ActiveSheet.Hyperlinks.Add Cells(i, 2), Cells(i, 1), , Cells(i, 2).Value
  Next

[Prist]

http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-giperssylka/