Prova con una semplice macro
codice:
Option Explicit
Sub linka()
Dim cella As Range
For Each cella In Range("a1:a10")
ActiveSheet.Hyperlinks.Add anchor:=Range("b" & cella.Row), Address:="Z:\Cancellazione Ipoteche\Note Ipotecarie\Fatti\" & Mid(cella.Hyperlinks(1).Address, InStrRev(cella.Hyperlinks(1).Address, "/") + 1, Len(cella.Hyperlinks(1).Address)), TextToDisplay:=cella.Hyperlinks(1).TextToDisplay
Next cella
End Sub
Nel mio esempio i link si trovano nel range a1:a10, mentre quelli nuovi verranno scritti nella colonna adiacente. Adatta i range al tuo contesto.