Как получить URL-адреса по гиперссылкам в Excel 2010?

Question

У меня есть столбец ячеек с гиперссылками (на веб-адреса), и мне нужно, чтобы их URL были обычным текстом. Есть ли способ извлечь URL из гиперссылок? Пример: Cell говорит: "CLICKME" Ссылки на: www.www.com

Я хочу, чтобы клетка говорила только www.www.com. Я изучил особенности вставки и не нашел там никаких ответов. Я знаю, как заменить отображаемый текст URL-адресом для одной ячейки, но в моей таблице более 700 таких ячеек, для которых мне это нужно, и я не могу тратить весь день, занимаясь этим по одной ячейке за раз. Предложение?

Answer 1

Это легко с некоторыми VBA -

Sub test()
    Dim link As Hyperlink
    For Each link In ActiveSheet.Hyperlinks
        link.Range.Offset(0, 1).Value = link.Address
    Next
End Sub

Запустите это, и все адреса появятся в ячейке справа от гиперссылки.