Ако някога ви се наложи да извадите всички линкове като УРЛ адреси от екселски файл трябва да знаете че има и лесен начин 🙂 Отваряте ексел-а със списъка с линковете. Натискате ALT+F1. Там копирате следният код
Function GetAddress(HyperlinkCell As Range)
GetAddress = Replace _
(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function
После натискате ALT+Q. На същият ред, на който ви е линк-а оставяте една празна клетка и на следващата пишете това
=getaddress()
Кликвате между скобите на функцията, след това на линка и набивате Ентер-а. И хоп линка се появява. Може да изтеглите клетката, така че формулата да се копира надолу по списък и да изведете всички адреси.