Подскажите пожалуйста, как копировать значения гиперссылок?

[nOob]

Добрый день, господа.

Подскажите пожалуйста в таком вопросе:

Есть Excel-документ 2010, в нем, в столбце А, имеется огромный массив гиперссылок на N строк в формате: Заголовок_1+ссылка на сайт. Мне нужно отделить зерна от плевел и скопировать только ссылки на сайт в соседний столбец В, без названий. На выходе в столбце А должны остаться только Заголовки без ссылок, а в столбце В - только соответствующие ссылки.

Подскажите пожалуйста, как это можно реализовать?

[kuklp]

Подсказываю - макросом. И еще подсказка - почитайте правила форума. Особое внимание - п.2.

[nOob]

Спасибо за обе подсказки.

По правилам - согласен, учту, приношу извинения. Прикреплять лист уже не буду, т. к. решил вопрос.

По макросу. Рабочий макрос вот: возможно пригодиться другим пользователям:

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

Sub TryThis()
Dim cell As Range

For Each cell In [a1:a500]
If cell.Hyperlinks.Count > 0 Then
   cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
End If
Next

End Sub
Пожалуйста, используйте теги форматирования кодов. Знак диез(#) на иконках сверху окна редактирования сообщений. KuklP