Excel. Как текст гиперссылки выкинуть рядом с ячейками

[Avsha]

Приветствую,

есть столбец ячеек с гиперссылками,
Как рядом получить столбец текста (адреса) гиперссылок для всех ячеек?

Тот же вопрос и по примечаниям,
как выкинуть примечания ячеек в столбик рядом как значения ячеек?

Вручную больно утомительно

Ясно, что макросом можно, штатного ничего нет?

[Teslenko_EA]

Здравствуйте Avsha.
С текстом ячейки содержащей гиперссылку, думаю не очень сложно - =C13&""
А с примечаниями пожалуй без подобной функции не обойтись:

Код: Выделить всё

Public Function sRem(oCell) As String
Dim s
On Error GoTo Exit_
    s = oCell.Comment.Text
    If Len(s) > 0 Then sRem = s
Exit_:
End Function

Евгений.

[Avsha]

Teslenko_EA, спасибо с примечанием все OK!

а с гиперсылкой я имел в виду - выкинуть ее адрес, т.е. например,
http://forum.developing.ru/showthread.php?t=14797

[Teslenko_EA]

Avsha, конкатенация со строкой нулевой длины действительно возвратит текст ссылки, а ее адрес можно получить подобной функцией:

Код: Выделить всё

Function textH(oCell) As String
Dim s$
On Error GoTo Exit_
    s = oCell.Hyperlinks(1).Address
    If Len(s) > 0 Then textH = s
Exit_:
End Function

Евгений.

[Avsha]

Teslenko_EA,
спасибо за рабочие примеры,
я думаю, вопрос полностью решен... силой VBA

Надеюсь, появится когда-нибудь в специальной вставке Excel
галочки - вставить "значения из Примечания" или "адреса Гиперссылок"