Изьять адресс эл.почты из гиперссылки

[M17]

Доброго времени суток всем. Помогите разобраться, как в Excel изьять адресс эл.почты из гиперссылки и вставить его в графу "Текст" в автоматическом режиме? Очень нужно, т.к. много ячеек в которых отображается слово "Email" вместо эл.адреса.

Заранее спасибо.

[SAS888]

Не совсем понятно, что такое вставить его в графу "Текст". Это куда?
Следующий пример "вытаскивает" адрес эл.почты (или просто адрес) из всех ячеек листа, содержащих гиперссылку и помещает его в ту же строку, где находится гиперссылка, в столбец рядом в виде текста. Доработайте код и вставляйте куда хотите.

Sub HyperToText()

    Dim i As Long, hr As Range
    With ActiveSheet
        If .Hyperlinks.Count > 0 Then
            For i = 1 To .Hyperlinks.Count
                Set hr = .Hyperlinks(i).Range
                Cells(hr.Row, hr.Column + 1) = .Hyperlinks(i).Address
            Next
        End If
    End With

End Sub

[M17]

Большое спасибо что откликнулись на зов помощи. Если вас незатруднит помогите разобраться доконца. Ниже прикреплён фаил с примером, если возможно чтото зделать помогите пожалуйста.

Заранее благодарен.

[SAS888]

Посмотрите вложение. Запустите макрос. Для упрощения, чтобы не создавать новую гиперссылку в новой ячейке, просто заменяется текст во всех ячейках с уже существующими гиперссылками.