Môžeš použiť nasledovné makro (pred spustením zálohovať):
Sub ReplaceHyperlinks()
Dim aHyperlink As Hyperlink
For Each aHyperlink In Hyperlinks
aHyperlink.Range.Formula = "=HYPERLINK(""" & aHyperlink.Address & """,""" & aHyperlink.Range & """)"
aHyperlink.Delete
Next aHyperlink
End Sub
Makro nebude fungovať správne v prípade, že máš v texte alebo odkaze úvodzovku (nepravdepodobné). Ak by si tam predsa len nejaké úvodzovky mal, tak stačí doplniť jednoduchý Replace, pomocou ktorého ich zdvojíš.Problém je, že odkazy pomocou funkcie HYPERLINK vytvorené cez VBA nevyzerajú ako odkazy, aj keď sa tak správajú (nejaký bug). Aby vyzerali ako odkaz, tak musíš Excel prinútiť, aby si myslel, že si to zadal ručne - stačí vyjsť na bunku s odkazom a stlačiť F2 a Enter.