Problem, którego rozwiązanie zostanie dziś pokazane związany jest z hiperłączami. Czasami występuje potrzeba zmiany komórki, w której jest hiperłącze na komórkę w której znajduje się tylko adres z danego hiperłącza w postaci tekstowej. Tak, aby kliknięcie na danej komórce nie powodowało przejścia pod adres wskazywany przez hiperłącze.

Oprócz tego często występuje potrzeba uzyskania listy adresów stron, a nie listy opisów tych adresów. Tak stworzona lista może zostać później obrobiona (np. zostaną z niej wybrane numery obiektów). Niestety Excel nie dysponuje wbudowaną funkcją wydobywania adresów z hiperłącz, ale ten brak można w bardzo prosty sposób uzupełnić wystarczy tylko stworzyć własną funkcję:

Function GetAddress(HyperlinkCell As Range)
    GetAddress = Replace(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function

Przykład zastosowania tej funkcji pokazuje poniższy rysunek: